Урок 12. Оператор цикла

Цель урока: изучить решение задач с использованием оператора цикла.

Пример 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 пикселей.

Пример работы программы: