'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';