Кризис
<<  Кризис моделей развития: конец 1960-х – 1970-е гг Жизненные циклы  >>
Циклы
Циклы
Цикл – это многократные повторяемые действия
Цикл – это многократные повторяемые действия
Цикл с параметром
Цикл с параметром
Напечатать 10 раз фразу « турбо паскаль»
Напечатать 10 раз фразу « турбо паскаль»
Цикл с предусловием (цикл «пока»)
Цикл с предусловием (цикл «пока»)
Вводить числа с клавиатуры, пока не будет введено число 0
Вводить числа с клавиатуры, пока не будет введено число 0
Цикл с постусловием
Цикл с постусловием
Вводить числа с клавиатуры, пока не будет введено число 0
Вводить числа с клавиатуры, пока не будет введено число 0
Даны целые числа К и N. Вывести N раз число K. Найти все делители
Даны целые числа К и N. Вывести N раз число K. Найти все делители
Program for; var n,k,i:integer; begin writeln('введите число K');
Program for; var n,k,i:integer; begin writeln('введите число K');
Program cikl; Var n,i:longint; BEGIN Write('Введите число
Program cikl; Var n,i:longint; BEGIN Write('Введите число
Program ciklp; Var n,i:longint; BEGIN Write('Введите число
Program ciklp; Var n,i:longint; BEGIN Write('Введите число

Презентация на тему: «Циклы». Автор: Comp. Файл: «Циклы.pptx». Размер zip-архива: 617 КБ.

Циклы

содержание презентации «Циклы.pptx»
СлайдТекст
1 Циклы

Циклы

2 Цикл – это многократные повторяемые действия

Цикл – это многократные повторяемые действия

В Паскале существует 3 основных вида циклов: -цикл с параметром -цикл с предусловием -цикл с постусловием

3 Цикл с параметром

Цикл с параметром

For i:=A to B do S; A<=B For i:=A downto B do S; A>=B i – счетчик цикла, является переменной порядкового типа данных, А – начальное значение, В – конечное значение счетчика цикла, S – тело цикла (повторяющиеся действия)

4 Напечатать 10 раз фразу « турбо паскаль»

Напечатать 10 раз фразу « турбо паскаль»

Program primer; var i: integer; Begin For i:=1 to 10 do writeln('турбо Паскаль'); End.

5 Цикл с предусловием (цикл «пока»)

Цикл с предусловием (цикл «пока»)

While условие do S; Цикл будет повторяться до тех пор, пока условие – истина.

6 Вводить числа с клавиатуры, пока не будет введено число 0

Вводить числа с клавиатуры, пока не будет введено число 0

Program chisla; var i:integer; begin writeln(' введите число'); readln(i); while i<>0 do begin writeln(' введите число'); readln(i); end; readln end.

7 Цикл с постусловием

Цикл с постусловием

Repeat S Until условие; Цикл будет повторяться, пока условие – ложно

8 Вводить числа с клавиатуры, пока не будет введено число 0

Вводить числа с клавиатуры, пока не будет введено число 0

Program chisla; var i:integer; begin writeln(' введите число'); readln(i); repeat writeln(' введите число'); readln(i); until i=0; readln end.

9 Даны целые числа К и N. Вывести N раз число K. Найти все делители

Даны целые числа К и N. Вывести N раз число K. Найти все делители

натурального числа n. Найти все делители натурального числа n.

10 Program for; var n,k,i:integer; begin writeln('введите число K');

Program for; var n,k,i:integer; begin writeln('введите число K');

readln(k); writeln('введите число N'); readln(n); for i:=1 to n do writeln(k); readln; end.

11 Program cikl; Var n,i:longint; BEGIN Write('Введите число

Program cikl; Var n,i:longint; BEGIN Write('Введите число

..'); Readln(n); Write('Делители числа ',n,' : '); i:=1; while i<=n do begin if n mod i = 0 then Write(i,' '); Inc(i); end; readln; END.

12 Program ciklp; Var n,i:longint; BEGIN Write('Введите число

Program ciklp; Var n,i:longint; BEGIN Write('Введите число

..'); Readln(n); Write('Делители числа ',n,' : '); i:=1; repeat if n mod i = 0 then Write(i,' '); Inc(i); until i>n; readln; END.

«Циклы»
http://900igr.net/prezentacija/ekonomika/tsikly-163777.html
cсылка на страницу

Кризис

11 презентаций о кризисе
Урок

Экономика

125 тем
Слайды