Другие языки программирования и технологии
как вывести на экран в паскале 30 раз слово "привет" ?
1 раз вывести на экран слово "привет" я моу. скажите какую функцию подключить, чтобы повторилось это 30 раз?
Копайте в сторону цикла for
Любой оператор цикла или гоуту, так что 4 простых варианта. Самый простой - цикл форнекст.
program loop;
var i: shortint;
BEGIN
for i:=1 to 30 do writeln('привет');
readln;
END.
примечания:
1. readln можно и убрать, но тогда выведенный текст после окончания программы снесётся.
2. Если заменить writeln на write то будет написано подряд без пробелов в одну линию, вот так: "приветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветпривет".
Примечания написал на случай если тебе объяснять работу программы.
program loop;
var i: shortint;
BEGIN
for i:=1 to 30 do writeln('привет');
readln;
END.
примечания:
1. readln можно и убрать, но тогда выведенный текст после окончания программы снесётся.
2. Если заменить writeln на write то будет написано подряд без пробелов в одну линию, вот так: "приветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветприветпривет".
Примечания написал на случай если тебе объяснять работу программы.
For <переменная цикла>:=<начальное значение> To(DownTo) <конечное значение> Do <блок операторов>
обьявляй переменную, присваивай ей 0, фигачиш конечное значение 30 и фигачиш блок операторов, рисующих "привет". После запуска вылетит 30 раз.
обьявляй переменную, присваивай ей 0, фигачиш конечное значение 30 и фигачиш блок операторов, рисующих "привет". После запуска вылетит 30 раз.
for i:=1 to 30 do
begin writeln('Привет');
end;
Конструкция думаю не такая сложная и понятная. Если за to подписать 50, то выведет, соответственно, 50 раз.
Можно, как вариант, без всяких циклов просто скопировать строчку 30 раз. При этом факт в том, что в плане производительности такая программа будет выполняться быстрее (потребует меньше тактов, которые потребуются на расчет цикла) , но будет занимать больше оперативной памяти и харда только (по настоящим меркам - ненамного).
begin writeln('Привет');
end;
Конструкция думаю не такая сложная и понятная. Если за to подписать 50, то выведет, соответственно, 50 раз.
Можно, как вариант, без всяких циклов просто скопировать строчку 30 раз. При этом факт в том, что в плане производительности такая программа будет выполняться быстрее (потребует меньше тактов, которые потребуются на расчет цикла) , но будет занимать больше оперативной памяти и харда только (по настоящим меркам - ненамного).
var i, a: integer;
begin
write('сколько раз выдавать слово привет');
read (a);
for i:=1 to a do
writeln('Привет');
end.
begin
write('сколько раз выдавать слово привет');
read (a);
for i:=1 to a do
writeln('Привет');
end.
Тут все подробно http://mypascal.ru/blog/vyvod_na_ehkran_v_paskale/2013-06-27-16
Похожие вопросы
- На Паскаль!! Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст.
- Возможно ли в Паскале получить какой-нибудь символ уже выведенный на экран?
- Паскаль.Элементарно,но чё то никак( дан массив.все его элементы разделить на первый элемент.и вывести на экран
- Среди двузначных чисел вывести на экран те, сумма цифр которых равна х(0<х<18). Число х вводится с клавиатуры.В паскале!
- Помогите с массивами! Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных.
- Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x)
- как вывести на экран из массива чисел минимальное число, стоящие на нечетных позициях?
- Написать программу на с++:дпн порядковый номер месяца,вывести на экран его название
- Вывести на экран два максимальных элемента всех нечетных строк массива c#
- С клавиатуры вводится 4 числа. Вывести на экран сумму двух наименьших