В Паскале 3 оператора цикла repeat while for

В Паскале 3 оператора цикла: repeat, while, for.

Оператор цикла с постусловием. REPEAT oператор 1; … oператор n; тело цикла UNTIL условие Условие окончания цикла VAR Slovo: string; BEGIN repeat Write. Ln (‘Введите слово’); Read. Ln (Slovo); Write. Ln (Slovo, ‘!’); until Slovo=‘хватит’; Write. Ln (‘Хватит так хватит!’); Read. Ln END. Сначала выполняются операторы в теле цикла. Затем проверяется истинность условия, стоящего после UNTIL. Если условие ложно, то вновь выполняются оператора тела цикла. Повторение операторов в теле цикла продолжается до тех пор, пока условие не станет истинным.

Начальное и конечное значения параметра цикла Оператор цикла с параметром. FOR i: =n 0 ТО nk DO оператор; FOR DO Переменная цикла (параметр цикла) Тело цикла 1) Сначала вычисляются выражения для n 0 и nk, если они заданы неявно; 2) Параметру цикла (пусть это будет i) присваивается начальное значение n 0 и оно сравнивается с конечным значением nk. Если i<=nk, то выполняется тело цикла; 3) Параметр цикла i автоматически увеличивается на 1 и сравнивается с nk. Если i<=nk, то вновь выполняется тело цикла, и так до тех пор, пока i не станет > nk. 4) Когда i превысит nk, выполнение оператора в теле цикла прекращается. Футбол! Футбол! Футбол! VAR i: integer; BEGIN FOR i: =1 TO 10 DO Write. Ln (‘Футбол!’); Read. Ln END.

FOR i: =n 0 DОWNTO nk DO оператор; FOR DO Параметр цикла на каждом шаге уменьшает на 1 свое значение, начиная с n 0 и кончая nk. Uses CRT; VAR i: integer; BEGIN FOR i: =100 DОWNTO 1 DO 10 9 begin 8 7 Write. Ln (i); 6 5 Delay (5000) 4 end; 3 2 Read. Ln 1 VAR i: integer; BEGIN FOR i: =10 DОWNTO 1 DO Write. Ln (i); Read. Ln END.

1. Напишите программу вывода на экран след. . последовательности целых чисел: а) 3, 5, 7, 9, 11, 12, 13, 15; б) 100, 99, …, 2, 1. Используйте оператор Repeat. 2. Выведите 5 раз на экран введенное Вами слово, например: «Гол!» .

Компьютер предлагает человеку ввести слово, после чего распечатывает это слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово, и так до тех пор, пока человек не введет слово «хватит» . Распечатав и его с восклицательным знаком, компьютер отвечает: «Хватит так хватит» - и заканчивает работу. Перед распечаткой каждого слова ставить его порядковый номер.

Вычислить и напечатать с шестью десятичными знаками квадраты чисел 0. 000 0. 001 0. 002 0. 003 … 0. 999 1. 000 Для х = 2700, 900, 300, 100 … и т. д. вычислять и печатать y = x/4 + 20 и z = 2 y + 0. 23 до тех пор, пока yz не станет меньше 1/x.

Если камень бросить горизонтально со 100 метровой башни со скоростью v = 20 м/с, то по законам физики расстояние, которое он пролетит от башни по горизонтали (s), будет выражаться формулой s = vt, где t – время полета камня в секундах. Высота над землей h будет выражаться формулой h = 100 - 9. 81 t 2 / 2. Вычислять и печатать t, s и h для t = 0, 0. 2, 0. 4, 0. 6 и т. д. до тех пор, пока камень не упадет на землю.

1. Просуммировать квадраты натуральных чисел от 5 до 11. 2. Вычислить произведение кубов натуральных чисел от 2 до 7. 3. Напечатать таблицу умножения в следующем виде: 3. 1*1= 1 1*2= 2 1*3= 3 1*4= 4 1*5= 5 1*6= 6 1*7= 7 1*8= 8 1*9= 9 2*1= 2 2*2= 4 2*3= 6 2*4= 8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18 и. т. д.

4. Найти сумму цифр некоторого числа, вводимого с клавиатуры. 5. С помощью операторов цикла вывести на экран следующие совокупности символов: * * * * * * * * * ! ! ! !

6. Найти произведение цифр четырехзначного числа, вводимого с клавиатуры. 7. Составить программу, которая запрашивает пароль до тех пор, пока он не будет правильно введен.

8. Жители островов Чунга и Чанга раз в год по праздникам решили обмениваться драгоценностями. Жители Чунга, у которых изначально было в три раза больше драгоценностей, половину из них решили дарить жителям Чанга, а жители Чанга четверть своих – жителям Чунга. Какая часть драгоценностей будет на каждом из островов через М лет.