Алгоритмы и программы циклической структуры.

В Паскале 3 оператора цикла: repeat, while, for.
Оператор цикла
с постусловием.
REPEAT
oператор 1;
…
oператор n;
тело цикла
UNTIL условие
Условие окончания цикла
VAR
Slovo: string;
BEGIN
repeat
WriteLn (‘Введите слово’);
ReadLn (Slovo);
WriteLn (Slovo,‘!’);
until
Slovo=‘хватит’;
WriteLn (‘Хватит так хватит!’);
ReadLn
END.
Сначала выполняются операторы в теле цикла. Затем проверяется
истинность условия, стоящего после UNTIL. Если условие ложно, то
вновь выполняются оператора тела цикла. Повторение операторов в
теле цикла продолжается до тех пор, пока условие не станет истинным.
Начальное и
конечное значения
параметра цикла
Оператор цикла
с параметром.
FOR i:=n0 ТО nk DO оператор;
Переменная
цикла
(параметр цикла)
Тело цикла
1) Сначала вычисляются выражения для n0 и nk, если они заданы неявно;
2) Параметру цикла (пусть это будет i) присваивается начальное значение n0 и оно
сравнивается с конечным значением nk. Если i<=nk, то выполняется тело цикла;
3) Параметр цикла i автоматически увеличивается на 1 и сравнивается с nk. Если
i<=nk, то вновь выполняется тело цикла, и так до тех пор, пока i не станет > nk.
4) Когда i превысит nk, выполнение оператора в теле цикла прекращается.
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
Футбол!
VAR i: integer;
BEGIN
FOR i:=1 TO 10 DO WriteLn (‘Футбол!’);
ReadLn
END.
FOR i:=n0 DОWNTO nk DO оператор;
Параметр цикла на каждом шаге уменьшает на
1 свое значение, начиная
с n0 и кончая nk.
Uses CRT;
VAR i: integer;
BEGIN
FOR i:=100 DОWNTO 1 DO
begin
10
9
WriteLn (i);
8
7
Delay (5000)
6
5
end;
4
ReadLn
3
2
END.
1
VAR i: integer;
BEGIN
FOR i:=10 DОWNTO 1 DO WriteLn (i);
ReadLn
END.
Напишите программу вывода на экран след.
последовательности целых чисел:
а) 3, 5, 7, 9, 11, 12, 13, 15;
б) 100, 99, …, 2, 1.
Используйте оператор Repeat .
1.
2. Выведите 5 раз на экран
введенное Вами слово, например:
«Гол!» .
Компьютер предлагает человеку ввести
слово, после чего распечатывает это
слово, снабдив его восклицательным
знаком. Затем снова предлагает ввести
слово, и так до тех пор, пока человек не
введет слово «хватит». Распечатав и его с
восклицательным знаком, компьютер
отвечает: «Хватит так хватит» - и
заканчивает работу. Перед распечаткой
каждого слова ставить его порядковый
номер.
Вычислить и напечатать с шестью десятичными
знаками квадраты чисел
0.000 0.001 0.002 0.003 … 0.999 1.000
Для х = 2700, 900, 300, 100 … и т.д. вычислять и
печатать
y = x/4 + 20 и z = 2y + 0.23
до тех пор, пока
yz не станет меньше 1/x.
Если камень бросить горизонтально со 100метровой
башни
со
скоростью
v = 20 м/с, то по законам физики расстояние,
которое он пролетит от башни по горизонтали
(s), будет выражаться формулой s = vt, где t –
время полета камня в секундах. Высота над
землей
h
будет выражаться формулой
h = 100 - 9.81t2 / 2. Вычислять и печатать t, s и
h для t = 0, 0.2, 0.4, 0.6 и т.д. до тех пор, пока
камень не упадет на землю.
1.
Просуммировать квадраты натуральных
чисел от 5 до 11.
2. Вычислить произведение кубов натуральных
чисел от 2 до 7.
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
и.т.д.
3.
4. Найти сумму цифр некоторого числа,
вводимого с клавиатуры.
5. С помощью операторов цикла вывести на
экран следующие совокупности символов:
*******
*
*******
******
*****
****
***
!
!!
!!!
!!!!
!!!!!
6. Найти произведение цифр
четырехзначного числа, вводимого с
клавиатуры.
7. Составить программу, которая
запрашивает пароль до тех пор, пока он
не будет правильно введен.
8. Жители островов Чунга и Чанга раз в год
по праздникам решили обмениваться
драгоценностями. Жители Чунга, у которых
изначально было в три раза больше
драгоценностей, половину из них решили
дарить жителям Чанга, а жители Чанга
четверть своих – жителям Чунга. Какая
часть драгоценностей будет на каждом из
островов через М лет.