Программирование на языке Паскаль. Циклы. Тема 4

Содержание

Слайд 2

Циклы

Цикл – это многократное выполнение одинаковой последовательности действий.
цикл с известным числом шагов
цикл

Циклы Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным
с неизвестным числом шагов (цикл с условием)
Задача. Вывести на экран 5 раз слово «Привет».
Особенность: одинаковые действия выполняются 5 раз.

Слайд 3

Циклы

program qq;
begin
writeln('Привет');
writeln('Привет');
writeln('Привет');
writeln('Привет');
writeln('Привет');
end.

Циклы program qq; begin writeln('Привет'); writeln('Привет'); writeln('Привет'); writeln('Привет'); writeln('Привет'); end.

Слайд 4

Циклы

начало

конец

Блок-схема:

да

нет

тело цикла

Циклы начало конец Блок-схема: да нет тело цикла

Слайд 5

Циклы

program Privet;
begin
{ сделай 5 раз }
writeln('Привет');
end.

N := N +

Циклы program Privet; begin { сделай 5 раз } writeln('Привет'); end. N := N + 1;
1;

Слайд 6

Алгоритм

начало

Привет!

конец

да

нет

N = 5?

N := 0;

N := N + 1;

еще не сделали ни

Алгоритм начало Привет! конец да нет N = 5? N := 0;
одного раза

проверить, все ли сделали

вывод на экран

считаем очередной шаг

Слайд 7

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

program Privet2;
var N: integer;
begin
N:= 0;
while ( N <>

Цикл с условием program Privet2; var N: integer; begin N:= 0; while
5 ) do begin
writeln('Привет!');
N:= N + 1;
end
end.

Слайд 8

Ввод количества

program Privet2;
var N : integer;
begin
N:= 0;
writeln('Введите число шагов:');
read(K);

Ввод количества program Privet2; var N : integer; begin N:= 0; writeln('Введите
while ( N <> ) do begin
writeln('Привет!');
N:= N + 1;
end
end.

K

, K

Слайд 9

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

Вместо знаков вопроса добавьте числа и операторы так, чтобы цикл

Цикл с условием Вместо знаков вопроса добавьте числа и операторы так, чтобы
выполнился ровно 5 раз:

program Privet3;
var N: integer;
begin
N:= 5;
while ( N <> ??? ) do begin
writeln('Привет!');
???;
end
end.

0

N:= N - 1;

Слайд 10

program Primer1;
var N: integer;
begin
N:= 1;
while ( N <= 5 )

program Primer1; var N: integer; begin N:= 1; while ( N writeln(N);
do begin
writeln(N);
N:= N + 1;
end
end.

Что получим?

1
2
3
4
5

Слайд 11

program Primer2;
var N: integer;
begin
N:= 1;
while ( N <= 5 )

program Primer2; var N: integer; begin N:= 1; while ( N writeln(N);
do begin
writeln(N);
N:= N + 2;
end
end.

Что получим?

1
3
5

Слайд 12

program Primer4;
var N: integer;
begin
N:= 1;
while ( N <= 5 )

program Primer4; var N: integer; begin N:= 1; while ( N writeln(N*N*N);
do begin
writeln(N*N*N);
N:= N + 1;
end
end.

Что получим?

1
8
27
64
125

Слайд 13

program Primer5;
var N: integer;
begin
N:= 5;
while ( N >= 1 )

program Primer5; var N: integer; begin N:= 5; while ( N >=
do begin
writeln(N*N*N);
N:= N - 1;
end
end.

Что получим?

125
64
27
8
1

Слайд 14

Задания

«3»: Ввести натуральное число вывести квадраты и кубы всех чисел от 1

Задания «3»: Ввести натуральное число вывести квадраты и кубы всех чисел от
до этого числа.
Пример:
Введите натуральное число:
3
1: 1 1
2: 4 8
3: 9 27
«4»: Ввести два целых числа a и b (a ≤ b) и вывести квадраты все чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25
Имя файла: Программирование-на-языке-Паскаль.-Циклы.-Тема-4.pptx
Количество просмотров: 47
Количество скачиваний: 0