Презентация на тему Решение задач с использованием циклов на языке Turbo Pascal (9 класс)

Запись оператора цикла While While <условие> do <оператор >; Repeat оператор 1; оператор 2; ... оператор n;Until <условие>; Запись оператора цикла Repeat … Until For i := n1 to (downto) n2 do <оператор>; Запись оператора цикла For Найти сумму первых n элементов ряда a p s b For i:=1 to n do Until i>n; Repeat end; While i<=n do begin Program sum; Var n, i: integer; s, p, a, b, x: real; Begin writeln(‘Введите число членов ряда, n=’); readln(n); i:=1; s:=0; Writeln(’Сумма первых ’,n,’элементов ряда = ’,s); Readln; End. write('Введите x= '); readln(x); a:=1; a:=a*i; p:=b/a; s:=s+p; b:=b*x; i:=i+1; b:=x; нет да Начало Составить программу, печатающую таблицу значений функции на отрезке [-5, 5] с шагом 1 x: = -5, 5, 1 x<1 y: = 2 * x - 1 y: = x*x*x–4*x+2 Вывод x, y Конец да нет x: = 1, b, 1 да gotoxy(20, 5+y) да Вывести на экран прямоугольник , заполненный * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Начало Ввод a Ввод b y: = 1, a, 1 Вывод * нет нет Конец Начало Ввод a Ввод b y: = 1, a, 1 gotoxy(20, 5+y) x: = 1, b, 1 Вывод * Конец да нет нет да Program pr; Uses Crt; Var a, b, x, y:integer; Begin Clrscr; Write('Введите высоту a= '); Readln(a); Write('Введите ширину b= '); Readln(b); For y:=1 to a do begin gotoxy(20, 5+y); For x:=1 to b do write('* '); end; Readln; End. * * * * * * * * * * * * * * * * * * * * * * * * * * * * Uses Crt;Var a, b, x, y, c:integer;Begin clrscr; randomize; write(‘введите высоту a= '); readln(a); write(‘введите длину b= '); readln(b); for y:=1 to a do begin gotoxy(20, 5+y); for x:=1 to b do begin c:=random(16); TextColor(c); write('* '); end; end; readln;End.