setfillstyle(1,9);
bar(40,200,330,300);
rectangle(45,205,325,295);
rectangle(47,207,323,293);
if ea mod 2 =0 then
outtextxy(56,227,'Введите 0 -е значение финкции:')
else
outtextxy(56,227,' Enter 0 -th value of function:');
for i:=0 to n do
begin
setfillstyle(1,0);
bar(137,250,180,273);
gotoxy(19,17);
read(p1);
y[i]:=p1;
bar(120,227,134,240);
str(i+1,s);
outtextxy(120,227,s);
bar(310,220,320,250);
end;
procedure wwod2(ea:word;var ea1:word;var n:integer;var a,b:real;var
st:string);
{Окно 2 меню автомат. подсчета}
var
i:integer;
c,k:char;
x:longint;
f:string;
repeat
x:=-600000;
if keypressed then
c:=readkey;
c:='t';
newsc(ea);
setfillstyle(1,15);
bar(70,120,342,330);
setcolor(12);
rectangle(75,125,337,325);
rectangle(77,127,335,323);
settextstyle(0,0,0);
setfillstyle(1,11);
bar(80,170,330,190);
outtextxy(80,130,'Меню ввода параметров нахождения');
outtextxy(80,140,' интеграла');
outtextxy(80,180,' Ввести количество узлов(n)');
outtextxy(80,210,' Ввести приделы интегрирования');
outtextxy(80,240,' Ввести функцию');
outtextxy(80,270,' Считать интеграл');
outtextxy(80,300,' Выход ');
end
outtextxy(80,130,'Menu of entering the parameters');
outtextxy(80,140,' of integral');
outtextxy(80,180,' Put in the number of units ');
outtextxy(80,210,' Enter the bounds of integral');
outtextxy(80,240,' Enter function');
outtextxy(80,270,' Count integral');
outtextxy(80,300,' Exit ');
helpwin(ea);
outtextxy(360,140,' Нажмите Enter для');
outtextxy(360,155,' ввода количества узлов');
outtextxy(360,140,' Press Enter to put');
outtextxy(360,155,' in the number of units');
case c of
#80:
x:=x-1;
#72:
x:=x+1;
case (abs(x) mod 5) of
0:
bar(80,200,330,220);
bar(80,290,330,310);
outtextxy(360,155,'in the number of units.');
1:
bar(80,230,330,250);
outtextxy(360,140,' Нажмите ENTER для ввода');
outtextxy(360,155,'приделов интегрирования.');
outtextxy(360,140,' Press ENTER to put in');
outtextxy(360,155,'the bounds of integral.');
2:
bar(80,260,330,280);
outtextxy(360,155,'функции.');
outtextxy(360,140,' Press ENTER to enter');
outtextxy(360,155,'function.');
3:
outtextxy(360,140,' Нажмите ENTER для начала');
outtextxy(360,155,'подсчета самого интеграла.');
outtextxy(360,140,' Press ENTER to begin');
outtextxy(360,155,'integral calculations.');
4:
until c=#13;
wwodn(ea,n);
wwodab(ea,a,b);
setcolor(15);
bar(70,200,340,300);
rectangle(75,205,335,295);
rectangle(77,207,333,293);
outtextxy(86,227,'Введите функцию f(x):');
setcolor(14);
outtextxy(360,140,' В этом окне необходимо');
outtextxy(360,155,' ввести саму функцию.');
outtextxy(360,200,'Примечание: 1.данная программа ');
outtextxy(360,215,'распознает только ');
outtextxy(360,230,'элементарные функции.');
outtextxy(360,245,'(x,cos(x) и др.)');
outtextxy(360,260,’2.При неправильном вводе’);
outtextxy(360,275,’по умолчанию f(x)=x;’);
outtextxy(360,275,’3.Если после нажатия ENTER’);
outtextxy(360,275,’ничего не произошло, то
outtextxy(360,275,’занововведите функцию.’);
outtextxy(86,227,'Enter function f(x):');
outtextxy(360,140,' In this window you have');
outtextxy(360,155,' to enter the function.');
outtextxy(360,200,'Note: This version of ');
outtextxy(360,215,'programm can indentify only ');
outtextxy(360,230,'simple functions, as');
outtextxy(360,245,'x,cos(x) and other.');
bar(86,255,330,275);
readln;
gotoxy(13,17);
read(st);
writeln(st);
3:if (n0)and(a<>b)and(st<>'')and((abs(x) mod 5)=3);
procedure win3(ea:word;n:integer;a,b:real;int:double;f:string;h:array of
double;var k:word);
{Последнее окно просмотра результатов}
c:char;
p1,p:string;
y:array[0..16] of double;
funktia(n,a,b,y,1,f);
f:='('+f+')'+'dx =';
Страницы: 1, 2, 3, 4, 5, 6