Блок – схема программы.

t:=0,5 ; h: = 0,01 ;

T<=5

TRUE

FALSE

TRUE

FALSE

t>3

y:=cos(t/3)

y:=1/t;

вывод t, y ;

T: = t + h

Задание 5

Составить программу, в которой с помощью оператора For подсчитать сумму ряда:

Блок – схема программы.

S:=0; i:=1

i < = 100

FALSE

TRUE

S:=S+1/sqr(I)+I+1

i:=i+1

Вывод S;

program 5;

var

I:integer; (Объявление переменных}

S:real;

begin

S:=0; (Присваивание начального значения переменной)

for I:=1 to 100 do (Выполнять от I=1 до I=100)

S:=S+1/sqr(I)+I+1; (Прибавить к сумме очередное значение зависимое от I)

writeln('Сумма ряда равна = ',S:10:7); (Вывести вычисленное значение)

end.

Задание 6

Составить программу, в которой с помощью оператора REPEAT протабулировать функцию y=2.5+sin(-x) в диапазоне параметра от 1 до 10 с шагом 0.5.

Program 6;

Const

X_min=1; (Объявление констант)

X_max=10;

H=0.5;

Var

X,Y:real; (Объявление переменных)

begin

X:=X_min; (Присвоение начального значения)

REPEAT (Нахождения значений функции в зависимости от х)

Y:=2.5+sin(-X);

WRITELN (`X=`,X:4:1,` Y=`,Y:6:2); (Вывод значения в зависимости от Y)

X:=X+H; (Увеличение значение на H)

UNTIL X>X_max;

end.

Блок – схема программы.

X_min=1 X_max=10; H=0.5;

Y:=2.5+sin(-X);

вывод x; y ;

x: = x + h;

x > h

FALSE

TRUE