Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
14 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
144.00 kB
Просмотров:
48
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![Тема Операторы организации](/documents_6/38ea61b8042a784ac06afb68000de67b/img0.jpg)
Содержание слайда: Тема: Операторы организации циклов
Цель: Познакомить с форматом и алгоритмом работы операторов цикла с предусловием и постусловием.
№2 слайд![Оператор повторения с](/documents_6/38ea61b8042a784ac06afb68000de67b/img1.jpg)
Содержание слайда: Оператор повторения с предусловием
while
Формат:
while условие do
begin
тело цикла
end;
№3 слайд![Блок-схема while ........](/documents_6/38ea61b8042a784ac06afb68000de67b/img2.jpg)
Содержание слайда: Блок-схема while
........
While Bl do
begin
P1;
P2;
.
.
Pn;
end;
........
№4 слайд![Работа оператора while](/documents_6/38ea61b8042a784ac06afb68000de67b/img3.jpg)
Содержание слайда: Работа оператора while
проверяется условие;
если оно истинно, то выполняется тело цикла;
вновь проверяется условие и т.д.,
как только на очередном шаге окажется, что условие ложно, то выполнение цикла прекратится
Если условие сразу ложно, то тело цикла не выполнится ни разу.
№5 слайд![Пример While x lt do x x Если](/documents_6/38ea61b8042a784ac06afb68000de67b/img4.jpg)
Содержание слайда: Пример1
While x<=0 do
x:=x+1;
Если x отрицательно, то к этому значению будет добавляться по 1 до тех пор, пока значение не станет положительным.
Если x положительно, то значение x не изменяется.
№6 слайд![Задача Составить программу](/documents_6/38ea61b8042a784ac06afb68000de67b/img5.jpg)
Содержание слайда: Задача: Составить программу подсчета S
№7 слайд![Вычислить сумму квадратов](/documents_6/38ea61b8042a784ac06afb68000de67b/img6.jpg)
Содержание слайда: Вычислить сумму квадратов целых чисел в диапазоне от m до n: ;
если n<m тогда сумма не вычисляется и S=0.
№8 слайд![задание Написать программу](/documents_6/38ea61b8042a784ac06afb68000de67b/img7.jpg)
Содержание слайда: задание
Написать программу для решения задачи.
Дано натуральное число n. Определить количество и сумму цифр числа.
Сумма в 10 000 у. е. положена в банк. При этом прирост составляет 3% в год и считается непрерывным. Через какой срок сумма вклада увеличится в x раз.
№9 слайд![Оператор повторения с](/documents_6/38ea61b8042a784ac06afb68000de67b/img8.jpg)
Содержание слайда: Оператор повторения с постусловием repeat
Формат: repeat
тело цикла
until условие;
Работа оператора:
Тело цикла выполняется пока условие ложно.
Выполнение прекращается, если условие истинно.
Цикл repeat обязательно выполняется хотя бы один раз, а цикл while может не выполниться ни разу.
№10 слайд![блок-схема Repeat](/documents_6/38ea61b8042a784ac06afb68000de67b/img9.jpg)
Содержание слайда: блок-схема Repeat
№11 слайд![Пример Repeat x x- until x](/documents_6/38ea61b8042a784ac06afb68000de67b/img10.jpg)
Содержание слайда: Пример2
Repeat
x:=x-1
until x=0;
Сначала выполняется оператор x:=x-1;
затем проверяется условие x=0.
если , то оператор еще раз выполнится.
Если x=0, то управление передается на оператор, следующий за until.
№12 слайд![Задача Составить программу](/documents_6/38ea61b8042a784ac06afb68000de67b/img11.jpg)
Содержание слайда: Задача: Составить программу подсчета S
Program s_Repeat;
Var s:real;
n,i:integer;
Begin
readln(n);
s:=0;
i:=1;
repeat
S:=s+1/i;
i:=i+1;
until i>n;
writeln(s);
End.
№13 слайд![задание Написать программу](/documents_6/38ea61b8042a784ac06afb68000de67b/img12.jpg)
Содержание слайда: задание
Написать программу для решения задач используя команду Repeat:
Дано натуральное число n. Определить сумму четных цифр числа.
Сумма в 10 000 у. е. положена в банк. При этом прирост составляет 3% в год и считается непрерывным. Через какой срок сумма вклада увеличится в x раз.
№14 слайд![Program Schet Program Schet](/documents_6/38ea61b8042a784ac06afb68000de67b/img13.jpg)
Содержание слайда: Program Schet;
Program Schet;
{Uvelichenie summ vklada_Lavruhina}
Var
NS:longint;
P,X,KS:real;
K:byte;
Begin
WriteLn('Vvedite nachalnuy summu');
Read(NS);
WriteLn('Vvedite procent');
Read(P);
WriteLn('Vvedite uvelichenie vklada');
Read(X);
K:=0;
KS:=NS;
repeat
K:=K+1;
KS:=KS*P/100+KS;
UNTIL KS>(NS*X);
WriteLn('Konechnaja summa',KS:4:2);
WriteLn('Cherez let',K:4);
End.