Скачиваний:
288
Добавлен:
04.03.2014
Размер:
7.05 Кб
Скачать
Program Roma_durachek;
Uses Crt,Module;
var nc:byte;
f:file of real;
ch:char;
t:array[1..30] of real;
n, i:integer;

{$F+}
function super(x:real):real;
begin
super:=cos(x)+ln(x)+x-1.5;
end;
{$F-}

procedure w(n:integer);
var nc:byte;
begin
textbackground(0);
clrscr;
TextBackGround(11);
Window(11,3,61,5);
Clrscr;
textcolor(15);
textbackground(1);
window(10,2,60,4);
clrscr;
Writeln;
write(' Ћ ‘ Ќ Ћ ‚ Ќ Ћ … Њ … Ќ ћ');
if n=1 then nc:=12 else nc:=2;
textbackground(nc);
window(20,7,50,7);
clrscr;
write(' ‡Ђ„ЂЌ€… -1');
if n=2 then nc:=12 else nc:=2;
textbackground(nc);
window(20,9,50,9);
clrscr;
write(' ‡Ђ„ЂЌ€… -2 ');
if n=3 then nc:=12 else nc:=2;
textbackground(nc);
window(20,11,50,11);
clrscr;
write(' ‡Ђ„ЂЌ€… -3');
if n=4 then nc:=12 else nc:=2;
textbackground(nc);
window(20,13,50,13);
clrscr;
write(' ‡Ђ„ЂЌ€… -4');
if n=5 then nc:=12 else nc:=2;
textbackground(nc);
window(20,15,50,15);
clrscr;
write(' ‚›•Ћ„');
end;


begin
nc:=1;
w(1);
while true do
begin
ch:=#1;
while(ch<>#13 )and(ch<>#0) do
ch:=readkey;
if ch=#0 then
ch:=readkey;
case ch of
#72: nc:=nc-1;
#80: nc:=nc+1;
#13: case nc of
1:begin
TextMode(co80);TextBackGround(0);ClrScr;
ni:=ki;
while(ni=ki) or (ni>ki) do begin
clrscr;
write('‚ў-⥠Ё­вҐаў « ­  Є®в®а®¬ Ўг¤Ґв Ёбб«Ґ¤®ў ­  дг-жЁп y=cos(x)+ln(x)+x-1.5:');
read(ni,ki);
end;
shag:=10;
while(shag>1) or (shag<0.001) do begin
write('‚ўҐ¤ЁвҐ и Ј:');readln(shag);
if (shag<=1) and (shag>=0.5) then begin writeln('Њ «.б⥯Ґ­м ўлз.');end
else
if (shag<0.5) and (shag>=0.1) then begin writeln('‘।.б⥯Ґ­м ўлз.');end
else
if (shag<0.1) and (shag>0.0009) then begin writeln('Ѓ®«.б⥯Ґ­м ўлз.');end
else writeln(' Ј ў Ё­вҐаў «Ґ ®в 0.001 ¤® 1');
end;
readln;
kol:=round((ki-ni)/shag);
writeln('MAX 10 ўҐй. Є®а­Ґ©!');
writeln('Џа®ўҐаЁ¬ ',kol,' ЁЄб®ў');
kruto(ni,shag,kol,super,a,num);
for i:=1 to num do
write(a[i]:3:2,' ');
kleuvo(a,num);
readln;
end;
2:begin
TextMode(co80);TextBackGround(0);ClrScr;
writeln;k:=1;
write('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл :');
readln(n,m);
writeln('Љ Є®© Ўг¤Ґв вЁЇ');
write('(c=0-楫л©, c=1-ўҐйҐб⢥­­л©)');write('c=');
readln(c);
if c=0 then begin
write('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ў ¬ ббЁў:');
for i:=1 to n do begin
for j:=1 to m do begin
gotoXY(k,i+6);
readln(d0[i,j]);
k:=k+10;
end;
k:=1;
end;
good(d0,c,n,m);
end
else begin
writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ў ¬ ббЁў:');
for i:=1 to n do begin
for j:=1 to m do begin
gotoXY(k,i+6);
readln(d1[i,j]);
k:=k+10;
end;
k:=1;
end;
good(d1,c,n,m);
end;
readln;
end;
3:begin
TextMode(co80);TextBackGround(0);ClrScr;
i_no_ne_I:=0;
For i_no_ne_I:=1 to nefiga Do begin
_x[i_no_ne_I]:=0;
_y[i_no_ne_I]:=0;
end;
For i_no_ne_I:=1 to nefiga Do begin
TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг X ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
TextColor(14);Read(_x[i_no_ne_I]);
TextColor(green);Write('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вг Y ',i_no_ne_I,'-®©(Ґ©) в®зЄЁ: ');
TextColor(14);Read(_y[i_no_ne_I]);
Writeln;
end;
Ya_dostau_iz_shirokih_shtanin_BIG_PROCEDURE(_x,_y,pridurok,kadr1,kadr2);
Writeln(pridurok:4:2,' ¬Ґ¦¤г ',Kadr1,' Ё ',Kadr2);
ReadLn;
ReadLn;
end;
4:begin
TextMode(co80);TextBackGround(0);ClrScr;
clrscr;
assign(f,'f.dat');
rewrite(f);

Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® зЁбҐ« ў ¬ ббЁўҐ');readln(n);
for i:=1 to n do begin
Write('‚ўҐ¤ЁвҐ ', i, '-© н«Ґ¬Ґ­в ¬ ббЁў : ');
readln(t[i]);
write(f,t[i]);
end;
close(f);
Fuck;

readln;
end;
5:begin exit;end;
end;
end;
if nc=0 then nc:=5;
if nc=6 then nc:=1;
w(nc);
end;
end.
Соседние файлы в папке Alex