Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Цикл FOR в Паскале

program z1;begin writeln(‘Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); end.
Задача. Вывести на экран 5 раз слово «Молодец».Особенность: одинаковые действия выполняются 5 раз. program z1;begin writeln(‘Молодец');  writeln('Молодец');  writeln('Молодец');  writeln('Молодец');  writeln('Молодец'); end. Циклы в языке Паскаль.  Цикл FOR. ЦиклыЦикл – это многократное выполнение одинаковой последовательности действий. Общий вид оператора FOR:Цикл FOR 1) For := to do ; Задача. Цикл FOR 2) For := downto do ; Задача ???Принцип работыProgram z1;var Сколько раз выполняется цикл?a := 1;for i:=1 to 3 do a := var s,k: integer;beginS:=9;for k:=1 to 5 do s:=s+12;writeln(s);end.Решение: 9+5*12=69Ответ: 691 var s,k: integer;beginS:=0;for k:=0 to 11 do s:=s+4;writeln(s);end.Решение: 0+12*4=48Ответ: 482)3)var s,k: integer;beginS:=3;for var s,k: integer;beginS:=0;for k:=-15 to 5 do s:=s+12;writeln(s);end.Решение: 21*12=252Ответ: 2524)5)var s,k: integer;beginS:=10;for var s,k: integer;beginS:=100;for k:=-2 downto -8 do s:=s-10;writeln(s);end.Решение: 100-7*10=30Ответ: 306) 7)var s,k: integer;beginS:=0;for k:=1 to 11 do s:=s+k;writeln(s);end.1 8)var s,k: integer;beginS:=12;for k:=1 to 11 do s:=s+(2*k-1);writeln(s);end.Решение: S=12+(1+3+5+…+21)= 12+ Sn = =12+121=133Ответ: 133Sn= Практическое задание.
Слайды презентации

Слайд 2 program z1;
begin
writeln(‘Молодец');
writeln('Молодец');
writeln('Молодец');

program z1;begin writeln(‘Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); writeln('Молодец'); end.

writeln('Молодец');
writeln('Молодец');
end.


Слайд 3 Циклы в языке Паскаль. Цикл FOR.

Циклы в языке Паскаль. Цикл FOR.

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

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

Слайд 5 Общий вид оператора FOR:
Цикл FOR
1) For

Общий вид оператора FOR:Цикл FOR 1) For := to do ;

цикла>:= to do ;
Задача. Напечатать

5 раз слово «молодец».

Схема цикла

Program z1;
var i:integer;
begin
For i:=1 to 5 do
writeln (‘Молодец’);
end.


Слайд 6 Цикл FOR
2) For := downto

Цикл FOR 2) For := downto do ; Задача ???Принцип работыProgram

do ;
Задача ???
Принцип работы
Program z1;
var i:integer;
begin
For

i:=5 downto 1 do writeln (i);
end.

Слайд 7 Сколько раз выполняется цикл?
a := 1;
for i:=1 to

Сколько раз выполняется цикл?a := 1;for i:=1 to 3 do a

3 do a := a+1;
a = 4
a := 1;
for

i:=3 to 1 do a := a+1;

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4


Слайд 8 var s,k: integer;
begin
S:=9;
for k:=1 to 5 do s:=s+12;
writeln(s);
end.
Решение:

var s,k: integer;beginS:=9;for k:=1 to 5 do s:=s+12;writeln(s);end.Решение: 9+5*12=69Ответ: 691

9+5*12=69
Ответ: 69
1 9+12
2

(9+12)+12

3 (9+12+12)+12

4 (9+12+12+12)+12

5 (9+12+12+12+12)+12

1)


Слайд 9 var s,k: integer;
begin
S:=0;
for k:=0 to 11 do s:=s+4;
writeln(s);
end.
Решение:

var s,k: integer;beginS:=0;for k:=0 to 11 do s:=s+4;writeln(s);end.Решение: 0+12*4=48Ответ: 482)3)var s,k:

0+12*4=48
Ответ: 48
2)
3)
var s,k: integer;
begin
S:=3;
for k:=12 to 31 do s:=s+8;
writeln(s);
end.
Решение:

3+20*8=163
Ответ: 163

Слайд 10 var s,k: integer;
begin
S:=0;
for k:=-15 to 5 do s:=s+12;
writeln(s);
end.
Решение:

var s,k: integer;beginS:=0;for k:=-15 to 5 do s:=s+12;writeln(s);end.Решение: 21*12=252Ответ: 2524)5)var s,k:

21*12=252
Ответ: 252
4)
5)
var s,k: integer;
begin
S:=10;
for k:=1 downto 11 do s:=s+15;
writeln(s);
end.
Решение:

цикл не выполнится ни разу, s=10
Ответ: 10

Слайд 11 var s,k: integer;
begin
S:=100;
for k:=-2 downto -8 do s:=s-10;
writeln(s);
end.
Решение:

var s,k: integer;beginS:=100;for k:=-2 downto -8 do s:=s-10;writeln(s);end.Решение: 100-7*10=30Ответ: 306)

100-7*10=30
Ответ: 30
6)


Слайд 12 7)
var s,k: integer;
begin
S:=0;
for k:=1 to 11 do s:=s+k;
writeln(s);
end.
1

7)var s,k: integer;beginS:=0;for k:=1 to 11 do s:=s+k;writeln(s);end.1   0+12

0+1
2

(0+1)+2

3 (0+1+2)+3

4 (0+1+2+3)+4

…. …..

11 (0+1+2+3+4+…+10)+11

Решение: S=0+(1+2+3+…+11)= 0+ Sn =66
Ответ: 66

Sn=


Слайд 13 8)
var s,k: integer;
begin
S:=12;
for k:=1 to 11 do s:=s+(2*k-1);
writeln(s);
end.
Решение:

8)var s,k: integer;beginS:=12;for k:=1 to 11 do s:=s+(2*k-1);writeln(s);end.Решение: S=12+(1+3+5+…+21)= 12+ Sn = =12+121=133Ответ: 133Sn=

S=12+(1+3+5+…+21)= 12+ Sn = =12+121=133
Ответ: 133
Sn=


  • Имя файла: tsikl-for-v-paskale.pptx
  • Количество просмотров: 138
  • Количество скачиваний: 1