HECZZ
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1НАЙТИ ОДЗ\
2ВВВИСТИ Ч И ОПРОДИЛИТЬ ВХОДИТЬ ИЛИ НЕВХОДИТ ОДЗ
ОНА У МЕНЯ ЄСТЬ НО МНЕ НУЖНО ПЕРЕДЕЛАТЬ ПОД ТАКОЄ ВИРАЖЕНИЯ-
F(0)=sqrt(5*X)*arccos(SIN(3*P*X)+SIN(P*X);
program Boy_Lab5;
uses crt;
var x:real;
function obl(a:real):boolean;
begin
if ( а вот тут как написать одз от той функции правельно)then obl:=false
else obl:=true;
end;
function fx(b:real):real;
begin
fx=sqrt(5*x)*.......;<---вот тут я незаню как описать arccos(sin(3*p*x)+sin(p*x)
end;
begin
write('Vvedit znachenny x: ');
readln(x);
if obl(x) then writeln(fx(x):10:9)
else writeln('X ne vxodit v oblasti');
readln;
end.
Добавлено:
КАК ЗДЕЛАТЬ В ЕТОЙ ПРОГРАМЕ МЕНЮ НЕ ПО ВЕРТИКАЛИ А ПО ГОРИЗОНТАЛИ.ЗАРАНИЕ СПС
Program LAB9;
uses crt,graph;
var
drivervar,modevar,x,y,n:integer;
key:char;
procedure text0; begin setcolor(lightblue);
settextstyle(0,0,2);
outtextxy(100,40,'vubor tipa graficheskogo adaptera'); end;
procedure A; begin setcolor(lightred); outtextxy(40,100,'CGA'); end;
procedure B; begin setcolor(lightgreen); outtextxy(40,200,'EGA'); end;
procedure C; begin setcolor(lightgreen); outtextxy(40,300,'VGA'); end;
procedure D; begin setcolor(lightgreen); outtextxy(40,400,'SVGA'); end;
begin
drivervar:=detect;
initgraph(drivervar,modevar,'');
setcolor(lightblue);
setfillstyle(1,0);
settextstyle(0,0,2);
outtextxy(100,40,'vubor ya3uka programipoBahi9');
setcolor(lightgreen);
settextstyle(0,0,2);
A;B;C;D;
n:=1;
repeat text0;
key:=readkey;
If key=#80 then n:=n+1;
if key=#72 then n:=n-1;
If n>4 then n:=1 else if n<1 then n:=4;
If key=#13 then begin setfillstyle(1,0); floodfill(10,10,15);
setcolor(yellow); settextstyle(0,0,1);
floodfill(2,2,2);
if n=1 then outtextxy(0,240,'vubor ya3uka programipoBahi9 PASCAL');
if n=2 then outtextxy(0,240,'vubor ya3uka programipoBahi9 FORTAN');
if n=3 then outtextxy(0,240,'vubor ya3uka programipoBahi9 BASIK');
if n=4 then outtextxy(0,240,'vubor ya3uka programipoBahi9 SEE');
readln; floodfill(2,2,2);
end;
if n=1 then Begin setcolor(lightred); settextstyle(0,0,2);
outtextxy(40,100,'PASCAL');
B; C; D;
end;
if n>1 then Begin setcolor(lightgreen); settextstyle(0,0,2);
outtextxy(40,100,'PASCAL');
B; C; D; end;
if n=2 then Begin setcolor(lightred); settextstyle(0,0,2);
outtextxy(40,200,'FORTAN');
C; D;
end;
if n=3 then Begin setcolor(lightred); settextstyle(0,0,2);
outtextxy(40,300,'BASIK');
B; D;
end;
if n=4 then Begin setcolor(lightred); settextstyle(0,0,2);
outtextxy(40,400,'SEE');
B;C;
end;
until key=#27;
exit;
closegraph;
end. |
