Курсовые / 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.