Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация на тему "Решение задач с использованием циклов на языке Turbo Pascal" (9 класс)

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


  • Информатика

Поделитесь материалом с коллегами:

Запись оператора цикла While While  do ;
Repeat оператор 1; оператор 2; ... оператор n; 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
нет да Составить программу, печатающую таблицу значений функции на отрезке [-...
да да Вывести на экран прямоугольник , заполненный * * * * * * * * * * * * *...
Program pr; Uses Crt; Var a, b, x, y:integer; Begin Clrscr; Write('Введите вы...
* * * * * * * * * * * * * * * * * * * * * * * * * * * * Uses Crt; Var a, b, x...
1 из 10

Описание презентации по отдельным слайдам:

№ слайда 1
Описание слайда:

№ слайда 2 Запись оператора цикла While While  do ;
Описание слайда:

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

№ слайда 3 Repeat оператор 1; оператор 2; ... оператор n; Until ; Запись оператора цикла
Описание слайда:

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

№ слайда 4 For i := n1 to (downto) n2 do ; Запись оператора цикла For
Описание слайда:

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

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

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

№ слайда 6 For i:=1 to n do Until i&gt;n; Repeat end; While i
Описание слайда:

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 да

№ слайда 8 да да Вывести на экран прямоугольник , заполненный * * * * * * * * * * * * *
Описание слайда:

да да Вывести на экран прямоугольник , заполненный * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

№ слайда 9 Program pr; Uses Crt; Var a, b, x, y:integer; Begin Clrscr; Write(&#039;Введите вы
Описание слайда:

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
Описание слайда:

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


Автор
Дата добавления 18.08.2015
Раздел Информатика
Подраздел Презентации
Просмотров503
Номер материала ДA-007452
Получить свидетельство о публикации

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх