Полный текст:
Постусловие
Функция
В 14
Найти среднее значение функции f(x).
Составить программу расчета таблицs значений функции f(x) на интервале a <= x <=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать.
да
нет
X,Y
конец
X>-1,x<1
Y=x*sin2px/O(1-x2)
начало
A,b,n
H=(b-a)/n
program zk1;
uses crt;
var
x,y:real;
begin
{clrscr;}
writeln('vvedite x');
readln(x);
x:=x/180*pi;
y:=x*sin(2*pi*x)/sqrt(1-sqr(x));
writeln('y=',y:6:2);
readln;
end.
Разветвление
ОДЗ 1-х2>0
X2<0
-1<x<1
program zk2;
uses crt;
var
x,y:real;
begin
{clrscr; }
writeln('vvedite x');
readln(x);
if (x>-1) and (x<1) then
begin
y:=x*sin(2*pi*x)/sqrt(1-sqr(x));
writeln('y=',y:6:4);
end
else
writeln('x ne vhodit v ODZ');
readln;
end.
да
нет
да
X,Y
конец
X>-1,x<1
Y=x*sin2px/O(1-x2)
X>b
начало
A,b,n
S=s+y
x=x+h
нет
H=(b-a)/n
S=s/n
X,Y
S
циклический
program zk3;
uses crt;
var
n:integer;
a,b,x,y,h,s:real;
begin
clrscr;
writeln('vvedite a,b,n');
readln(a,b,n);
h:=(b-a)/n;
x:=a;
s:=0;
writeln(' x y');
repeat
if (x>-1) and (x<1) then
begin
y:=x*sin(2*x*pi)/sqrt(1-sqr(x));
writeln(x:6:2,' ',y:6:2);
end
s:=s+y;
x:=x+h;
until (x>b);
s:=s/n;
writeln;
writeln('crednee=',s:6:4);
readln;
end.
Массив и функция
program zk3;
uses crt;
var
n:integer;
a,b,x,y,h,s:real;
function fx(x:real):real;
var
yy:real;
begin
if (x>-1) and (x<1) then
yy:=x*sin(2*x*pi)/sqrt(1-sqr(x));
fx:=yy;
end;
begin
clrscr;
writeln('vvedite a,b,n');
readln(a,b,n);
h:=(b-a)/n;
x:=a;
s:=0;
writeln(' x y');
repeat
y:=fx(x);
writeln(x:6:2,' ',y:6:2);
s:=s+y;
x:=x+h;
until (x>b);
s:=s/n;
writeln;
writeln('crednee=',s:6:4);
readln;
end.
да
конец
X>b
начало
A,b,n
S=s+y
x=x+h
нет
H=(b-a)/n
S=s/n
X,Y
S
X,Y
X=a;s=0
Y=fx(x)
да
нет
X>-1,x<1
Yy=x*sin2px/O(1-x2)
Начало fx(x)
Конец fx(x)
fx=yy
Блок-схема функции