М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
LLarь
LLarь
24.07.2021 14:44 •  Информатика

Хелпаите Надо написать 2 программы на Паскале..


Хелпаите Надо написать 2 программы на Паскале..
Хелпаите Надо написать 2 программы на Паскале..

👇
Открыть все ответы
Ответ:
сашадобро
сашадобро
24.07.2021

1) цикл с предусловием

Переведено с английского языка.-В большинстве языков компьютерного программирования цикл while является оператором потока управления, который позволяет многократно выполнять код в зависимости от заданного логического условия. Цикл while можно рассматривать как повторяющийся оператор if.

2)Цикл while применяют, если число повторений неизвестно заранее. Цикл while в Паскаль является оператором цикла с предварительным условием, то есть заголовок цикла содержит в себе логическое условие, при истинности которого выполняются команды тела цикла. Логическое выражение заголовка цикла может быть и составным.

3)Цикл с предусловием записывается так:

while выражение do

оператор;

Цикл с постусловием выглидит так:

repeat

тело цикла

until выражение

То есть цикл с постусловием обязательно выполнится хотя бы один раз, и после выполнения тела цикла будет проведена проверка продолжения цикла. В случае же с while, проверка осуществляется перед выполнением цикла.

4)Таким образом, операторы, образующие тело цикла оператора repeat, выполняются по крайней мере один раз. Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла

На 5 вопрос я не знаю ответа, прости

4,4(51 оценок)
Ответ:
mia017
mia017
24.07.2021

const n=20; m=10;

var  

a:array[1..n] of integer;

k:array[0..m-1] of integer;

i,j,max:integer;

begin

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(m);

write(a[i],'  ');

end;

writeln;

for j:=0 to m-1 do k[j]:=0;

for i:=1 to n do k[a[i]]:=k[a[i]]+1;

max:=0;

for j:=1 to m-1 do

 if k[j]>k[max] then max:=j;

writeln('Самый часто встречающийся элемент: ',max);

writeln('Встречается в массиве ',k[max],' раз(а)');

end.

Объяснение:Пример:

Исходный массив:

1  1  8  8  6  2  3  8  8  9  5  2  6  9  8  7  3  9  7  9  

Самый часто встречающийся элемент 8

Встречается в массиве 5 раз(а)

4,7(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ