четверг, 1 декабря 2016 г.

Снова про циклы

Для повторения-закрепления давайте разберем 3 программы с использованием изученных нами 3-х видов циклов.
Задание представлено на картинке.
Для задачи a) используем цикл For, для задачи б) используем цикл While, для задачи с) цикл Repeat

Program p1;
var f,a:integer;
begin
a:=0;
While a<=10 do
      begin
      f:=a*a*a+5*a*a-7*a+14;
      writeln('f(',a,')=',f); a:=a+1;
      end;
end.


Program p2;
var f,a:real; i:integer
begin
a:=5;
  For i:=1 to 7 do
      begin
      f:=sqrt(abs(a+1));
      writeln('f(', a:2:1,')=', f:5:2);
      a:=a+0.5;
      end;
end.

Program p3;
var f,a:real;
begin
a:=0;
  Repeat
      f:=(a+1)/(a*a+4);
      writeln('f(',a:2:1,')=',f:5:2);
      a:=a+4;
      until a>24;
end.

Задание 8. Выбрать 2 функции из трех и написать программу с использованием другого (не рассмотренного на уроке) вида цикла.

Комментариев нет:

Отправить комментарий