'BEGIN''COMMENT' MODUL PRO TESTOVANI I/O OPERACI KOMP. ALGOLE 2900 00100000 MODUL : HJS U9900A MALA 00200000 ENTRYNAME : EALG 00300000 DAT.VYDANI: UNOR 78 00400000 AUTOR : MENSIK ; 00500000 00600000 'INTEGER'J,I,IN,OUT,MT,D,FI,FR,ZN,FS ; 00700000 'REAL'R ; 00800000 'BOOLEAN' B ; 00900000 'PROCEDURE' TISKARR(K,A,B,C); 00910000 'VALUE'K; 'INTEGER'K; 'INTEGER''ARRAY'A; 'ARRAY'B; 00920000 'BOOLEAN''ARRAY'C; 00921000 'BEGIN' WRITETEXT(OUT,'('%%IWRITEARRAY,WRITEARRAY,BWRITEARRAY_:% 00930000 ')'); 00940000 IWRITEARRAY(OUT,FI,K,A,'('IRA')'); NEWLINE(OUT,2); 00950000 WRITEARRAY (OUT,FI,K,B,'('RRA')'); NEWLINE(OUT,2); 00960000 BWRITEARRAY(OUT,'('0')',K,C,'('BRA')'); NEWLINE(OUT,2) 00970000 'END'; 00980000 01000000 IN:=60; OUT:=30; MT:=100; D:=120; SET(MT, 6); SET(D,2); 01100000 FI:=FORMAT('('2S-N2D;')'); FR:=FORMAT('('2S-D.4D@+ND ')'); 01200000 FS:=FORMAT('('N2D')'); 01300000 WRITETEXT(OUT,'(''('10S')' TESTOVACI_PRIKLADY_PRO_ALGOLE _%%% 01400000 COPYTEXT_:_ ')'); 01500000 COPYTEXT( IN,OUT, '('@ @')'); 01600000 NEWLINE (OUT,3); 01700000 WRITETEXT(OUT,'('INTEGERREAD,IWRITE,READ,WRITE,READBOOLEAN, 01800000 WRITEBOOLEAN,OUTPUT_:_')'); 01900000 I:=INTEGERR(IN); IWRITE(OUT,FI,I); ZN:=INBASICS(IN); 02000000 OUTBASICS(OUT,ZN); 02100000 R:=READ(IN); WRITE(OUT,FR,R); ZN:=CHARIN(IN); 02200000 CHAROUT(OUT,ZN); 02300000 B:=READBOOL(IN); WRITEBOOL(OUT,B); 02400000 OUTPUT(OUT,I); 02500000 02600000 WRITETEXT(OUT,'('%%INBASICSYMBOL,OUTBASICSYMBOL_:_%')'); 02700000 'FOR'I:=1'STEP'1'UNTIL'94 'DO' 02800000 'BEGIN' ZN :=INBASICS(IN); SPACE(OUT,2); 02900000 OUTBASICS(OUT,ZN); CHAROUT(OUT, 77); 03000000 IWRITE(OUT,FS,ZN); CHAROUT(OUT, 93) 03100000 'END'; 03200000 03300000 WRITETEXT(OUT,'('%%CHARIN,CHAROUT_:_%')'); 03400000 'FOR'I:=1'STEP'1'UNTIL'66'DO' 03500000 'BEGIN' ZN:=CHARIN(IN); SPACE(OUT,2); 03600000 CHAROUT(OUT,ZN); CHAROUT(OUT, 77); 03700000 IWRITE(OUT,FS,ZN); CHAROUT(OUT, 93) 03800000 'END'; 03900000 04000000 'BEGIN' 04100000 'INTEGER''ARRAY' IAR (/1:10/); 04200000 'REAL''ARRAY' RAR (/1:10/); 04300000 'BOOLEAN''ARRAY' BAR (/1:10/); 04400000 WRITETEXT(OUT,'('%% IREADARRAY,READARRAY,BREADARRAY(A60)_:% ')'); 04500000 IREADARR(IN,IAR,'('IARRAY')'); 04600000 READARRA(IN,RAR,'('RARRAY')'); 04700000 BREADARR(IN,0,BAR,'('BARRAY')'); 04800000 TISKARR(1,IAR,RAR,BAR); 04900000 05000000 WRITETEXT(OUT,'('%% IWRITEBINARY,WRITEBINARY,BWRITEBINARY(A100)_:% 05100000 ')'); 05110000 IWRITEBI(MT,IAR,'('IAR')'); 05200000 WRITEBIN(MT,RAR,'('RAR')'); 05300000 BWRITEBI(MT,BAR,'('BAR')'); 05400000 WRITETEXT(OUT,'('%% IWRITEARRAY,WRITEARRAY,BWRITEARRAY(A120)_:% 05410000 ')'); 05420000 OUT:=D; TISKARR(1,IAR,RAR,BAR); OUT:=30 05500000 'END'; 05600000 'BEGIN' 05700000 'INTEGER''ARRAY'IA(/1:2,1:5/); 05800000 'REAL''ARRAY' RA(/1:2,1:5/); 05900000 'BOOLEAN''ARRAY'BA(/1:2,1:5/); 06000000 WRITETEXT(OUT,'('%% IREADBINARY,READBINARY,BREADBINARY, 06100000 INTERCHANGE,SKIP,REWIND(A100)_:% ')'); 06110000 INTERCHANGE(MT); 06200000 IREADBIN(MT,IA,'('IAR')'); SKIP(MT,1); 06300000 BREADBIN(MT,BA,'('BAR')'); REWIND(MT); 06400000 READBINA(MT,RA,'('RAR')'); 06500000 TISKARR (2,IA,RA,BA); 06600000 WRITETEXT(OUT,'('%% IREADARRAY,READARRAY,BREADARRAY,INTERCHANGE 06610000 (A120)_:% ')' ) ; 06620000 INTERCHANGE(D); 06700000 'FOR'I:=1'STEP'1'UNTIL'2'DO' 06710000 'FOR'J:=1'STEP'1'UNTIL'5'DO' 06720000 'BEGIN' IA(/I,J/):=0; RA(/I,J/):=.0; BA(/I,J/):='FALSE' 'END'; 06730000 IREADARR(D, IA,'('IRA')'); 06800000 READARRA(D, RA,'('RRA')'); 06900000 BREADARR(D,0,BA,'('BRA')'); 07000000 TISKARR (2, IA,RA,BA ) 07100000 'END'; 07200000 CLOSE(IN); CLOSE(OUT); CLOSE(MT); CLOSE(D) 07300000 'END';