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

• 1 слайд

  Решение задач
  с использованием циклов
  на языке Turbo Pascal
  

• 2 слайд

  Запись оператора цикла While
  While <условие> do <оператор >;
  

• 3 слайд

  Repeat
  оператор 1;
  оператор 2;
  ...
  оператор n;
  Until <условие>;
  Запись оператора цикла Repeat … Until
  

• 4 слайд

  For i := n1 to (downto) n2 do <оператор>;
  Запись оператора цикла For
  

• 5 слайд

  Найти сумму первых n элементов ряда
  a
  p
  s
  b
  

• 6 слайд

  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;
  

• 7 слайд

  нет
  да
  Начало
  Составить программу, печатающую таблицу значений функции на отрезке [-5, 5] с шагом 1
  x: = -5, 5, 1
  x<1
  y: = 2 * x - 1
  y: = x*x*x–4*x+2
  Вывод x, y
  Конец
  да
  нет
  

• 8 слайд

  x: = 1, b, 1
  да
  gotoxy(20, 5+y)
  да
  Вывести на экран прямоугольник
  , заполненный *
  * * * * * * * *
  * * * * * * * *
  * * * * * * * *
  * * * * * * * *
  Начало
  Ввод a
  Ввод b
  y: = 1, a, 1
  Вывод *
  нет
  нет
  Конец
  

• 9 слайд

  Начало
  Ввод 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.
  

• 10 слайд

  * * * * * * *
  * * * * * * *
  * * * * * * *
  * * * * * * *
  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.