Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз. - 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.
Объяснение кода листинга программы
- В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC и используется для работы с консольным вводом-выводом.
- Вторая строка объявляет процедуру p с одним параметром n типа integer.
- В третьей строке объявляется переменная i типа integer.
- В четвертой строке начинается цикл for, который выполняется n раз, где n - значение переменной i.
- Внутри цикла на каждой итерации выводится на экран фраза «Добрый день!» с помощью функции write.
- Если значение переменной i делится на 5 без остатка (i mod 5=0), то после вывода фразы выводится символ новой строки с помощью функции writeln.
- В пятой строке считывается значение переменной n с помощью функции read.
- В шестой строке очищается экран с помощью функции clrscr.
- В седьмой строке вызывается процедура p с параметром n.
- Программа завершается.