Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз. - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз.

Решение задачи: «Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз.»

textual
Листинг программы
uses crt;
procedure p(n:integer);
var i:integer;
begin
for i:=1 to n do
 begin
  write('Добрый день!    ');
  if i mod 5=0 then writeln
 end;
end;
var n:integer;
begin
write('n=');
read(n);
clrscr;
p(n);
end.

Объяснение кода листинга программы

  1. В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC и используется для работы с консольным вводом-выводом.
  2. Вторая строка объявляет процедуру p с одним параметром n типа integer.
  3. В третьей строке объявляется переменная i типа integer.
  4. В четвертой строке начинается цикл for, который выполняется n раз, где n - значение переменной i.
  5. Внутри цикла на каждой итерации выводится на экран фраза «Добрый день!» с помощью функции write.
  6. Если значение переменной i делится на 5 без остатка (i mod 5=0), то после вывода фразы выводится символ новой строки с помощью функции writeln.
  7. В пятой строке считывается значение переменной n с помощью функции read.
  8. В шестой строке очищается экран с помощью функции clrscr.
  9. В седьмой строке вызывается процедура p с параметром n.
  10. Программа завершается.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы