|
Отчет.
Цель работы:
составить программу расчета таблицы значений функции 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; просмотров: 115 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Федеральное агентство железнодорожного транспорта | | | В наше время, металлургия является достаточно востребованной отраслью в промышленности. Чугун, прокат, сталь – это является продукцией металлургического комбината. С помощью этой продукции могут 1 страница |