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. |