Инфоурок / Информатика / Презентации / Презентация на тему "Решение задач с использованием циклов на языке Turbo Pascal" (9 класс)
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 21 ОКТЯБРЯ!

Конкурс "Законы экологии"

Презентация на тему "Решение задач с использованием циклов на языке 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...
10 1

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

№ слайда 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.


Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 18 октября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДA-007452

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