Курсовые / curstau / XXX

program afh;
Uses Crt,Dos, graph;
VAR
D,I,II,III,J,JJ:INTEGER;
T,TK:REAL;
TF,GF,EF,YF,UF:ARRAY[0..500] OF REAL;
FF:FILE OF REAL;
PROCEDURE PPP;
BEGIN
FOR II:=0 TO 20 DO
BEGIN
I:=II*25;
WRITELN(TF[I]:7:3,GF[I]:11:3,EF[I]:11:3,UF[I]:11:3,YF[I]:11:3);
END;
END;
begin
TextAttr:=58;
ClrScr;

REPEAT
TextAttr:=111;
ClrScr;

FOR I:=1 TO 10 DO WRITELN(' ');
WRITELN(' 1.‚‚Ћ„ ЏЂђЂЊ…’ђЋ‚.');
WRITELN(' 2.ЊЋ„…‹€ђЋ‚ЂЌ€… .');
WRITELN(' 3.‡ЂЏ€‘њ ');
WRITELN(' 4.—’…Ќ€… ');
WRITE(' 0.ЉЋЌ…– ђЂЃЋ’›. -------->');
READLN(D);
IF D=1 THEN
BEGIN

END;
IF D=2 THEN
BEGIN
TextAttr:=111;
ClrScr;
WRITELN(' T G E U Y');
I:=0;
TK:=0.1;
T:=0;
FOR II:=1 TO 20 DO
BEGIN
FOR III:=1 TO 25 DO
BEGIN
I:=I+1;
T:=t+tk;
TF[I]:=T;
GF[I]:=SIN(I*6.28/500);
EF[I]:=SIN(I*3.141/500);
UF[I]:=1;
YF[I]:=1;



END;
END;
PPP;

END;
IF D=3 THEN
BEGIN
ASSIGN(FF,'RA.DAT');
REWRITE(FF);
FOR I:=0 TO 500 DO
BEGIN
WRITE(FF,TF[I]);
WRITE(FF,GF[I]);
WRITE(FF,EF[I]);
WRITE(FF,UF[I]);
WRITE(FF,YF[I]);
END;
CLOSE(FF);
END;


IF D=4 THEN
BEGIN
ASSIGN(FF,'RA.DAT');
RESET(FF);
I:=0;
{IF IORESULT=0 THEN }
WHILE NOT EOF (FF) DO BEGIN
READ(FF,TF[I]);
READ(FF,GF[I]);
READ(FF,EF[I]);
READ(FF,UF[I]);
READ(FF,YF[I]);
INC (I);
END;
CLOSE(FF);
PPP;
END;

IF (0<D) THEN READLN;
UNTIL D=0;
end.