составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках.

Отчет.

Цель работы:

составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках.

Задачи:

- составить программу для цикла с for;

- для цикла с постусловием;

- для цикла с предусловием;

Цикл для.

program asdf;

var

fx,x,a,b,s: real;

i,n: integer;

begin

writeln('Введите границы интервала a,b');

readln(a,b);

writeln('Введите количество точек n');

readln(n);

s:=0;

x:=a;

for i:=1 to n do

begin

fx:=5*(1-exp(-0.5*x))*cos(2*pi*x);

writeln('fx=',fx:8:3);

x:=x+n;

if fx>0 then s:=s+fx;

end;

writeln('Сумма положительных значений s=',s:8:3);

readln;

end.

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

program asdf;

var

fx,x,a,b,s: real;

i,n: integer;

begin

writeln('Введите границы интервала a,b');

readln(a,b);

writeln('Введите количество точек n');

readln(n);

s:=0;

x:=a;

i:= 1;

repeat

i:= i+1;

until i=n;

begin

fx:=5*(1-exp(-0.5*x))*cos(2*pi*x);

writeln('fx=',fx:8:3);

x:=x+n;

if fx>0 then s:=s+fx;

end;

writeln('Сумма положительных значений s=',s:8:3);

readln;

end.

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

program asdf;

var

fx,x,a,b,s: real;

i,n: integer;

begin

writeln('Введите границы интервала a,b');

readln(a,b);

writeln('Введите количество точек n');

readln(n);

s:=0;

x:=a;

while i<=N do

begin

fx:=5*(1-exp(-0.5*x))*cos(2*pi*x);

writeln('fx=',fx:8:3);

x:=x+n;

do o s:=s+fx;

end;

writeln('Сумма положительных значений s=',s:8:3);

readln;

end.

нет

Дата добавления: 2015-09-29