Задачи на применение операторов организации цикла

1. Составить программу, которая вычисляет и печатает сумму квадратов нечетных чисел от 1 до 19.

2. Вычислить кубы чисел от 11 до 20.

3. Вычислить длины окружностей с радиусами от 21 до 30.

4. Составить программу, которая вычисляет и печатает сумму квадратов четных чисел от 2 до 20.

5. Написать программу, которая вычисляет и печатает двадцать площадей кругов с радиусами от 1 до 20.

6. Написать программу, которая вычисляет и печатает объемы цилиндров высотой h=20 и радиусами оснований от 1 до 15.

7. В первый час работница делает 12 заготовок, во второй – на 2 заготовки больше и т.д. Сколько заготовок она сделает за 8 часов работы?

8. Вычислить значения синусов в интервале от 0 до 6.283, шаг 0,31415.

9. Вычислить значения квадратов косинусов в интервале от 0 до 7,770 с шагом 0,1.

10. Вычислить значение квадратных корней из нечетных чисел в интервале от 1 до 21.

11. Напишите программу для вычисления площадей квадратов со сторонами от 3 до 10.

 

Образец решения одной задачи.

На языке PASCAL.

Цикл с параметром

program z411;

var a,s: integer;

begin

for a:=3 to 10 do

begin

s:=sqr(a);

writeln (‘a=’,a,’ s=’,s);

   end;

end.

 

Цикл с предусловием:

program z411;

var a,s: integer;

begin

a:=3;

while a<=10 do

begin

s:=sqr(a);

writeln (‘a=’,a,’ s=’,s);

a:=a+1;

end;

end.

 

Цикл с постусловием:

program z411;

var a,s: integer;

begin

a:=3;

repeat

s:=sqr(a);

writeln (‘a=’,a,’ s=’,s);

a:=a+1;

until a>10

end.