практикум по циклам для 9 классов
учебно-методический материал по информатике и икт (9 класс)

Практическая работа

 Циклы в языке программирования Pascal АВС.

Оператор цикла for

Он может быть представлен в двух форматах:

for <параметр цикла> := to do <оператор>;

for <параметр цикла> := downto do <оператор>;

где Sl и S2 — выражения, определяющие соответственно начальное и конечное значения параметра цикла;

for ... do — заголовок цикла;

<оператор> — тело цикла.

Значение управляющей переменной изменяется на +1 (в случае to) или –1 (в случае downto).

Пример   1.        Вывести квадраты первых десяти натуральных чисел.

Решение     Используемые переменные: i –натуральные числа, x– их квадраты

Program pr1;

Var  i, x:  integer;

 begin

for i:=1 to 10 do begin        

     x:=sqr(i);                        

     write(x, '  ');                  

end;

end.

Результат записать в тетрадь.

Пример  2.        Найти сумму  1 + 1/3 + 1/5 +...(N слагаемых).

 Program pr2;

Var   I, N:  integer;

        S:  real;

begin

           Write('N='); Readln(N);    

          S:=0;                                  

For I:=1 to N do    

      S:=S+1/(2*I-1);

Writeln('S=',S:5:2);  

end.

Результат записать в тетрадь.

Оператор цикла Repeat

Пример 3.

        Вычислить значения функции y:=sin(x)*x интервале [ -π/2, π/2 ] с шагом  π/10.

 Program pr3;

Var x, y:  real;

begin

x:=-pi/2;

repeat

      y:=sin(x)*x;

      writeln('x=', x : 8 : 2,'  y=', y : 8 : 2);

      x:=x+pi/10

 until x > pi / 2;

end.

Оператор цикла while

while <условие продолжения повторений> do

          <тело цикла>;

Пример 4.        Задана арифметическая прогрессия   -21; - 16;… Определить номер первого положительного члена прогрессии.   a – очередной член прогрессии,   n – его порядковый номер

Program Pr9;

var

     a, n: integer;

begin

     a:= -21;   n:=1;                    

     while a<=0 do  begin        

               a:=a+5;  n:=n+1;              writeln(‘n=’, n);                

end.           

Результат: n=6

Пример 5. Первоначальный вклад составил S рублей. Через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.

Например, S=1000 р, x=10%

1 год S=1000+1000*10/100=1100

2 год S=1100+1100*10/100=1210

Program pr10;

Var  s, sum, x:  real;

n: integer;

 Begin

Write(‘S=’); Readln(S);

Write(‘x=’); Readln(x);

Sum:=2*s; n:=0;

While S<=Sum do begin    

     s:=s+s*x/100;                        

     n:=n+1;

end;

write('через  ', n, ‘ лет’);                  

end.

Задания для самостоятельной работы:

1. Дано натуральное число n. Найти сумму S=2/5 + 2/9 + 2/13 +… . (n слагаемых)
2. Вычислить значение  функции y=x3-1 на интервале [-1 , 3] с шагом 0. 2.
3. Вы положили c S рублей в банк под  p%  ежегодного прироста.

Определить:  а) когда сумма вклада утроится?

б) какой будет сумма вклада после 10 лет?

4. Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало продукции на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем Т?