В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Evgenn4ik
Evgenn4ik
25.05.2022 17:53 •  Информатика

Как составить программу на паскале чтобы получился рисунок?

Показать ответ
Ответ:
BabaShyra
BabaShyra
15.12.2020 00:11

type mas=array[1..10,1..10]of integer;

procedure vvod(var a:mas;var m,n:integer;c:char);

var i,j:integer;

begin

repeat

writeln('Введите размеры массива ',c,' m,n от 2 до 10');

readln(m,n);

until(m in [2..10])and(n in [2..10]);

writeln('Введите элементы массива целые числа, в том числе суммы в четных строках по возрастанию');

for i:=1 to m do

for j:=1 to n do

begin

 write(c,'[',i,',',j,']=');

 readln(a[i,j]);

end;

end;

procedure print(a:mas;m,n:integer;st:string);

var i,j,s:integer;

begin

writeln(st);

writeln('Сумма':n*5+8);

for i:=1 to m do

begin

 s:=0;

 for j:=1 to n do

  begin

   write(a[i,j]:5);

   s:=s+a[i,j];

  end;

 writeln(s:8);

end;

end;

procedure check(a:mas;m,n:integer);

var i,j,k,s,s1:integer;

begin

k:=0;

i:=2;

while(i<=m)and(k=0) do

begin

 s:=0;

 for j:=1 to n do

 s:=s+a[i,j];

 if i=2 then s1:=s

 else if s<=s1 then k:=1;

 s1:=s;

 i:=i+2;

end;

writeln('k=',k);

if k=0 then writeln('Суммы в четных строках упорядочены по возрастанию')

else writeln('Суммы в четных строках не упорядочены по возрастанию');

writeln;

end;

var a,b:mas;

   ma,na,mb,nb:integer;

begin

vvod(a,ma,na,'A');

print(a,ma,na,'Массив А');

check(a,ma,na);

vvod(b,mb,nb,'B');

print(b,mb,nb,'Массив B');

check(b,mb,nb);

end.

0,0(0 оценок)
Ответ:
dylanboy
dylanboy
11.03.2021 15:41

Математическое извлечение квадратного корня можно заменить на возведение в степень 1/2 или же, в десятичной записи, в степень 0,5.

Таким образом в языке программирования Python квадратный корень извлекается как x**0.5

Однако, для удобства записи есть также функция извлечения квадратного корня в библиотеке math и функция эта называется sqrt.

Таким образом, чтобы найти квадратный корень из числа x, мы можем записать math.sqrt(x) - не забыв предварительно импортировать библиотеку math или программа выдаст ошибку

Приведём пример решения задачи из предоставленного скриншота:

import math

x=int(input())

print(math.sqrt((x**2-7*x+6)/(x**3)))

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота