Цель урока: изучить решение задач с использованием оператора цикла.
Пример 1. С клавиатуры вводится стоимость 1 кг. конфет. Необходимо вывести на экран стоимость 100, 200 …1 кг. конфет. Результат работы программы должен выглядеть так:
var x:integer;
begin
write ('Сколько стоит 1 кг конфет: ');
read (x);
for var i:=1 to 10 do
writeln (i/10, ' кг. конфет стоит: ', x*i/10);
end.
Результат работы программы:
Пример 2. Найти первые пять НЕЧЕТНЫХ чисел начиная с числа 545.
var
k, x: integer;
begin
k := 0;
x := 545;
while k < 5 do
begin
if x mod 2 <> 0 then
begin
writeln(x);
k := k + 1;
end;
x := x + 1;
end;
end.
Задания по теме урока
Задание 1. Составьте программу, которая 15 раз выводит на экран ваши фамилию и имя.
Задание 2. Составьте программу для нахождения суммы первых ста натуральных ЧЕТНЫХ чисел.
Задание 3. Составьте программу, которая выведет на экран все НЕЧЕТНЫЕ числа в диапазоне от 25 до 48.
Задание 4. Составьте программу, которая запрашивает стоимость 1 кг. груш (значение стоимости вводится с клавиатуры) и выводит на экран стоимость 1, 2, 3 … 10 кг. груш. Результат работы программы должен выглядеть следующим образом:
Введите стоимость 1 кг. груш: 4.2 руб.
Стоимость 1 кг. груш = 4.2 руб.
Стоимость 2 кг. груш = 8.4 руб.
...
Стоимость 10 кг. груш = 42 руб.
Задание 5. Напишите программу, которая рисует концентрические окружности с центром в середине графического окна. Радиус самой маленькой окружности — 10 пикселей. Разница радиусов — 20 пикселей.
Пример работы программы:
Домашнее задание
§ 17.3 учебного пособия, ответить на вопросы
Форма отправки решений
Форма видна только зарегистрированным пользователям.