Sergay121
12.03.2022 17:46

нужно,ко 2 заданию программу написать (Тип left, right и т.д). Что бы в Паскале рисунок этот получился​


нужно,ко 2 заданию программу написать (Тип left, right и т.д). Что бы в Паскале рисунок этот получил

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
1234567891241
25.02.2023 11:03
Наглядные формы

представления информации

Человек лучше понимает и запоминает ту информацию, которая представлена наглядно — с рисунков, фотографий, схем, диаграмм.

И дети, и взрослые любят иллюстрированные книги, потому что рисунки позволяют очень быстро понять, о чём идет речь. Так, чтобы понять, о чем написано в выделенном ниже фрагменте текста, вам потребуется приблизительно полминуты; чтобы воспринять смысл рисунка, будет достаточно нескольких секунд. Проверьте.

В современных супермаркетах каждый товар имеет на упаковке штрих код — метку, состоящую из чёрных линии. Для чтения штрих-кодов применяют специальные штрих-сканеры. С их в компьютер вводят данные о стоимости покупки.

Для того чтобы показать, как устроены окружающие нас объекты (предметы, процессы, явления) и как они связаны друг с другом, используют схемы.

Для наглядного представления разных числовых данных используют диаграммы.

Самое главное

Наглядные формы представления информации — это рисунки, схемы, диаграммы и так далее.

Иллюстрации читателю очень быстро понять, о чём идёт речь, и создать в его представлении определённые образы.

Для того чтобы показать, как устроены окружающие нас объекты (предметы, процессы, явления) и как они связаны друг с другом, используют схемы.

Для наглядного представления разных числовых данных используют диаграммы.
0,0(0 оценок)
Ответ:
царапина123
22.01.2021 21:13
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота