| WRITELN ([<файл немесе құрылғы аты >,]<өрнектер тізбегі>);
Бұл процедура шақырылғанда, файлдың ағымдағы жолының құрастырылуы аяқталады. Келесі WRITE немесе WRITELN операторы жаңа жол құрастырады. WRITELN операторын па-раметрсіз қолдануға да болады.
Мысалы, WRITE жəне WRITELN операторларын қатар қол-данғанда, мəндерді жол-жолмен реттеп шығаруға болады:
VAR A,B,C,D,E:INTEGER;
BEGIN
A:=1;B:=2;C:=3;D:=4;E:=5;
WRITELN (‘A=’,A,’B=’,B);
WRITE(‘C=’,C);
WRITELN(‘D=’,D,’E=’,E);
END.
Нəтиже экранда екі жолға шығады:
_A=1_B=2
_C=3_D=4_E=5
A (M,N) бүтін сандар матрицасын экранда тікбұрышты кесте түрінде шығаруды төмендегідей түрде іске асыруға болады:
. . .
FOR I:=1 TO M DO
BEGIN
FOR J:=1 TO N DO
WRITE(A[I,J]:5);
WRITELN
END;
6–1618 81
A(M,N) нақты сандар матрицасын, үтірден кейін бір разряд-пен, кесте түрінде принтерге шығару программасы:
USES PRINTER;
VAR A:ARRAY[1..10,1..10]OF REAL;
M,N:INTEGER;
BEGIN
READLN(M,N);
FOR I:=1 TO M DO
FOR J:=1 TO N DO
READ(A[I,J]);
FOR I:=1 TO M DO
BEGIN
FOR J:=1 TO N DO
WRITE(LST,A[I,J]:6:1);
WRITELN(LST)
END;
READKEY
END.
Достарыңызбен бөлісу: |
