Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа. / РЯП_Ксю / Our_compiler / Examples / test_tr
.pas program test_b_m;
const N=10;
var x:byte;
BM:boolmatr[1, N]; {boolean matrix}
tmp:shortint;
tmp3:shortint;
tmp4:shortint;
begin
x:=1;
repeat
BM[1,x]:=false;
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
BM[1,5]:=true;
writeln(' ');
x:=1;
repeat
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
tmp:=124;
writeln('tmp = ', tmp);
tmp2:=7;
writeln(' ');
writeln('Content: [1 X]');
writeln(' ');
x:=1;
tmp4:=18;
repeat
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
tmp4:=54;
end.
const N=10;
var x:byte;
BM:boolmatr[1, N]; {boolean matrix}
tmp:shortint;
tmp3:shortint;
tmp4:shortint;
begin
x:=1;
repeat
BM[1,x]:=false;
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
BM[1,5]:=true;
writeln(' ');
x:=1;
repeat
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
tmp:=124;
writeln('tmp = ', tmp);
tmp2:=7;
writeln(' ');
writeln('Content: [1 X]');
writeln(' ');
x:=1;
tmp4:=18;
repeat
writeln(BM[1,x]);
x:=x+1;
until x=N+1;
tmp4:=54;
end.
Соседние файлы в папке Examples