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

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

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

Цикл с предусловим пока условие истинно, выполняется тело цикла тело цикла условие данет

Цикл с постусловим повторяется выполнение тела цикла до того, как условие станет истинным тело цикла условие данет

Цикл со счетчиком счетчик Тело цикла

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

1. Вывести на экран n раз слово ИНФОРМАТИКА program f1; var n, i : integer; begin writeln(введи число n); readln(n); for i:=1 to n do writeln (ИНФОРМАТИКА); end. i:=1,n,1 ИНФОРМАТИКА КОНЕЦ 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.