Pascal Алгоритмы циклической структуры, программирование на языке Pascal 9 класс

Цикл (повтор) – это… такая форма организации действий, при которой одна и та же последовательность действий повторяется несколько раз ( или ни разу) до тех пор, пока выполняется некоторое условие.

Циклы бывают: Циклы с условием (ПОКА и ДО), в которых тело цикла выполняется до тех пор, пока выполняется условие. Циклы со счетчиком (ДЛЯ), в которых тело цикла выполняется определенное количество раз;

Pascal Цикл с предусловием (пока). Условие Да Нет Серия команд

Формат записи WHILE DO ; Блок-схема алгоритма операторы да

Цикл с постусловием ( до) Repeat Until ; тело цикла условие да-нет

Цикл со счетчиком (с параметром) счетчик Тело цикла

8 Увеличение переменной на 1: for := downto do begin end; for := downto do begin end; Уменьшение переменной на 1: переменная начальное значение конечное значение тело цикла for := to do begin end; for := to do begin end; переменная начальное значение конечное значение тело цикла

1. Переменная цикла, нач. значение и кон. значение должны быть одного и того же типа (integer). 2. Конечное и начальное значения определяются до начала работы цикла и не должны изменяться во время его выполнения. 3. Значение переменной цикла изменяется автоматически и его нельзя изменять внутри цикла.

Написать программу вычисления N !

I=1, N, 1 ввод N вывод S S:=0 S:=S+I начало конец 2. Вычислить сумму натуральных чисел от 1 до N program f2; var i, S, N : integer; begin readln(N); S:=0; for i:=1 to N do S:=S+I; writeln (сумма =, S); end.

3. Вычислить сумму 3-хзначных чисел кратных 5 program f3; var i, S : integer; begin S:=0; for i:=100 to 999 do if i mod 5 =0 then S:=S+I; writeln (сумма трехзначных, кратных 5, S); end.

Условия Нечетные числа i mod 2 <>0 или i mod 2 =1 Числа кратные 5 i mod 5 =0 Четные числа i mod 2 =0 Числа кратные 5 и 13 (i mod 5 =0) and (i mod 13 =0)

4. Найти среднее арифметическое целых чисел из интервала (-6;6] program f4; var i, S, K, SA : integer; begin S:=0; K:=0; for i:=-5 to 6 do begin S := S + i; K := K + 1; end; SA := S / K; writeln (среднее арифметическое =, SА); end.

5. Вывести на экран таблицу умножения на 3 3 * 1 = 3 3 * 2 = 6 3 * 3 = 9 3 * 4 = 12 3 * 5 = 15 3 * 6 = 18 3 * 7 = 21 3 * 8 = 24 3 * 9 = 27 3 * 10 = 30 Результат должен выглядеть так: Повторяется запись: 3*i=x, где значение x:=3*I Выводить будем: 3 *, i, =, x

5. Продолжение program f5; var i, x: integer; begin for i:=1 to 10 do begin x := 3 * i; writeln (3*, i,=, x); end; end.

6. Составить таблицу 11 значений функции у=12 х²-23 х+4 на отрезке [-10,10] с шагом 2 for i:=1 to 11 do begin x := -12+2*I; y := 12*x*x-23*х+4; writeln (x,y); end; i x

7. Вычислить сумму 160 членов арифметической прогрессии а 1=-50 d=0.3 program f7; var a1, S, a :real; i : integer; begin S:=0; a1:=-50; d:=0.3; for i:=1 to 160 do begin a:=a1+d*(i-1) S := S + a; end; writeln (сумма =, S); end.

8. Вычислить сумму 160 членов геометрической прогрессии b1=-5 q=2 program f8; var b1, S, b, i : integer; begin S:=0; b1:=2; b:=b1; for i:=1 to 160 do begin b:=b*q; S := S + b; end; writeln (сумма =, S); end.

9. Найти произведение натуральных чисел не более 67 program f9; var i, P : integer; begin P:=1; for i:=1 to 67 do P:=P*i; writeln (произведение=, Р); end.

10. Вычислить произведение и количество 5- значных чисел кратных 29 или 3 program f10; var i, P, K : integer; begin P:=1; K:=0; for i:=10000 to do if (i mod 29 =0) or (i mod 3) then begin P:=P*i; K:=K+1; end; writeln (произведение=, Р); writeln (количество=, K); end.