Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа. / РЯП_Ксю / Our_compiler / Examples / test_3
.pas program test_b_m;
const N=10;
const MIN_MARGIN = -5;
MAX_MARGIN = 10;
type TIndex = integer;
var i:TIndex;
Sum:integer;
var x:byte;
BM:boolmatr[1, N]; {boolean matrix}
tmp:shortint;
begin
writeln('Input Matrix');
x:=1;
repeat
BM[1,x]:=false;
x:=x+1;
until x=N+1;
BM[1,5]:=true;
x:=5;
tmp:=1;
if BM[tmp,x]=true then
begin
writeln('TRUE = ',BM[tmp,x]);
end
else
begin
writeln('FALSE = ', BM[tmp,x]);
end;
i:=MIN_MARGIN;
Sum:=0;
repeat
Sum:= Sum+i;
writeln(i);
writeln('Partial sum = ', Sum);
i:=i+1;
until i>MAX_MARGIN;
writeln('Sum(',MIN_MARGIN,'..',MAX_MARGIN,')= ',Sum);
end.
const N=10;
const MIN_MARGIN = -5;
MAX_MARGIN = 10;
type TIndex = integer;
var i:TIndex;
Sum:integer;
var x:byte;
BM:boolmatr[1, N]; {boolean matrix}
tmp:shortint;
begin
writeln('Input Matrix');
x:=1;
repeat
BM[1,x]:=false;
x:=x+1;
until x=N+1;
BM[1,5]:=true;
x:=5;
tmp:=1;
if BM[tmp,x]=true then
begin
writeln('TRUE = ',BM[tmp,x]);
end
else
begin
writeln('FALSE = ', BM[tmp,x]);
end;
i:=MIN_MARGIN;
Sum:=0;
repeat
Sum:= Sum+i;
writeln(i);
writeln('Partial sum = ', Sum);
i:=i+1;
until i>MAX_MARGIN;
writeln('Sum(',MIN_MARGIN,'..',MAX_MARGIN,')= ',Sum);
end.
Соседние файлы в папке Examples