Презентация на тему 9 класс программирование циклических алгоритмов или как обыграть казино?

уроков
Краткое повторение задачи «три семерки»
Изучение нового теоретического материала
Решение задач

по новой теме
Подведение итогов
Домашнее задание

алгоритмы это такие, в которых одни и те же

действия повторяются многократно.

циклические алгоритмы бывают двух видов:

Циклы с известным количеством повторений

Циклы с неизвестным количеством повторений, т.е. циклы с условием. Существует условие продолжения цикла и условие завершения цикла.

i:=A to N do
Begin
…… { действия }
End;

Где i счетчик

цикла
А – начальное значение
N – конечное значение
Цикл выполняется (N-A)+1 раз

Циклы с известным количеством повторений

С уменьшением счетчика

For i:=A downto N do
Begin
…… { действия }
End;

Где i счетчик цикла
А – начальное значение
N – конечное значение
Цикл выполняется (N-A)+1 раз

на экран 10 раз имя программиста

Математическая модель – нет

особого описания

Диалог – без диалога

Написание программы

for i:=0 to 10 do
begin

writeln (i,'olga')
end;
End.

Исходный текст программы

Задача 1.

задачи: написать программу, которая играет с пользователем в игру

«три семерки» 100 раз

Математическая модель – нет особого описания

Диалог – без диалога

Написание программы: для написания программы используем цикл с известным количеством повторений

Задача 2.

i,a,b,c : integer;

begin
randomize;
a:=1+random(7);
b:=1+random(7);

c:=1+random(7);
if (a=7) and (b=7) and (c=7) then
begin
writeln (a, b,c, 'ura viigrali') ;
end
else
begin
writeln (a, b,c, 'proigrali') ;
end;
End.

Задание:
Проанализируйте исходный текст программы
Измените исходный текст программы, используя цикл с известным количеством повторений

i,a,b,c:integer;

begin
randomize;
for i:=1 to 100 do

begin
a:=1+random(7);
b:=1+random(7);
c:=1+random(7);
if (a=7) and (b=7) and (c=7) then
begin
writeln (a, b,c, 'ura viigrali') ;
end
else
begin
writeln (i, ')',a, b,c, 'proigrali') ;
end;
end;
End.

c предусловием (условие продолжения цикла)


While {условие}

DO

Begin
…… { действия }
End;

Циклы с неизвестным количеством повторений с постусловием (условие завершения цикла)


Repeat

…… { действия }

Until { условие };

пользователем в игру «Три семерки» до тех пор пока

пользователь не выиграет.
Математическая модель: нет особого описания
Диалог: без диалога
Написание программы: используем цикл с пост- условием.

Задача 3.

a:=1+random(7);
b:=1+random(7);
c:=1+random(7);

if (a=b) and (b=c) and (c=a) then
begin
writeln (i,')',a, b,c, 'ura viigrali') ;
end
else
begin
writeln (i,')', a, b,c, 'proigrali') ;
end;
i:=i+1;
until (a=7) and (b=7) and (c=7) ;
End.

пользователем в игру «Три семерки» до тех пор пока

пользователь не выиграет.
Математическая модель: нет особого описания
Диалог: без диалога
Написание программы: используем цикл с предусловием. Особенности: введем дополнительную переменную, для вычисления суммы чисел a,b,c. Пока сумма меньше 21, ПК продолжает играть.

Задача 4.

< 21) do
begin
a:=1+random(7);

b:=1+random(7);
c:=1+random(7);
sum:=a+b+c;
if (sum=21) then
begin
writeln (i,')',a, b,c, 'ura viigrali') ;
end
else
begin
writeln (i,')', a, b,c, 'proigrali') ;
end;
i:=i+1;
end;
End.

Задача 4.

цифры «7» ?

От простой «Винды» до «Висты» все подвластно

программисту?

Кто пойдет играть в игровой автомат?

Кто будет играть в виртуальном казино?