Выбранный для просмотра документ Урок Цикл с предусловием.docx
Скачать материал "Урок, Презентация "Цикл с предусловием""
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ УРОК.ppt
Скачать материал "Урок, Презентация "Цикл с предусловием""
Рабочие листы
к вашим урокам
Скачать
1 слайд
2 слайд
Что такое алгоритм?
Алгоpитм —понятное и точное предписание исполнителю совершить определенную последовательность действий для получения решения задачи.
3 слайд
Установите соответствие
4 слайд
Задача №1
Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$.
5 слайд
Цикл с предусловием
Программирование циклов с заданным условием продолжения работы
6 слайд
Оператор цикла с предусловием
Формат оператора:
while условие do тело цикла;
7 слайд
Блок-схема
8 слайд
var i: integer;
s:real;
begin
i:=1; s:=1;
while s<=100 do
begin i:=i+1;
s:=s*2+i;
end;
write(i);
end.
Программа
начало
конец
I:=1
S:=1
S<=100
I:=I+1
S:=S*2+I
Вывод I
9 слайд
Определите результат
Задание 1
I:=10;
while I>3 do
i:=I-1;
Writeln(2*I);
Задание 2
C:=5;
while C<15 do C:=C+2;
Writeln(C);
Задание 3
I:=0;
S:=0;
while I<5 do
Begin
I:=I+1;
S:=S+I;
End;
Writeln(S,’ ‘,I);
С
Результат
C>0
Результат
I
P
P<10
10 слайд
Определите результат
Задание 1
I:=0;
while I<3 do
i:=I+1;
Writeln(sqr(I));
Задание 2
C:=-5;
while C>0 do C:=C-2;
Writeln(C);
Задание 3
I:=1;
P:=1;
while P<10 do
Begin
I:=I+1;
P:=P*I;
End;
Writeln(P,’ ‘,I);
С
Результат
C>0
Результат
I
P
P<10
11 слайд
12 слайд
Задача №2
Ученик решил заняться бегом. Ему посоветовали в первый день пробежать 1 км. В последующие дни дистанция пробежки увеличивается на 5%. В какой день он пробежит суммарную дистанцию больше 100 км?
13 слайд
Задача №3
В банке взяли кредит суммой 1000000 , под 11% годовых на 10 лет (120 месяцев).
Какую сумму необходимо вернуть банку.
Дифференцированные или равнодолевые платежи
14 слайд
Бег
var s,a:real; k:integer;
begin a:=1;k:=0;
while s<100 do
begin s:=s+a;
write(a:0:3,' ');
a:=a+a/100*5;
k:=k+1;
end;
writeln;
writeln(s:0:2); writeln(k);
end.
15 слайд
Кредит в банке
(Дифференцированные или равнодолевые платежи)
var s,p,dolg,m,plata:real; i,n:integer;
begin {read(dolg); read(p); read(n);}
dolg:=1000000; p:=11; n:=120;
m:=dolg/n; i:=0;s:=0;
while dolg>0 do
begin plata:=m+dolg/100*p/12;
write(plata:0:2,' ');
s:=s+plata;
dolg:=dolg-m;
i:=i+1;
end;
writeln;
writeln(s:0:2); writeln(i);
end.
16 слайд
Задача №2
Подсчитать сумму всех нечётных чисел
от 101 до 301.
Cоставить программу
17 слайд
Домашнее задание
Составьте блок-схему и программу к задаче.
Ученик в первый день выучил 5 английских слов. В каждый следующий день он выучивал на 2 слова больше, чем в предыдущий.
Сколько английских слов выучит ученик в 10 день занятий? Сколько всего слов выучит за 10 дней?
18 слайд
Slide 16
var i: integer;
s:real;
begin
i:=1; s:=1;
while s<=100 do
begin i:=i+1;
s:=s*2+i;
end;
write(i);
end.
var i: integer;
s:real;
begin
i:=1; s:=1;
while s<=100 do
begin i:=i+1;
s:=s*2+i;
end;
write(i);
end.
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
6 662 694 материала в базе
Настоящий материал опубликован пользователем Кашапов Юнус Абдулхамитович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
600 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.