Скачиваний:
12
Добавлен:
01.05.2014
Размер:
1.95 Кб
Скачать
{ Test program source for Compilator }
{ 13.05.2007 }
program test;
const c1 = -6;
c2 = 1000;
c3 = 10;
c4 = -10;
cf = false;
ct = true;
var i,j,k,m,n,t,q:integer;
f1, f2, f3, f4: boolean;
begin

writes('it`s My Compilator Big Test ');
writes('GO!!!');
writes('');

writes(' Test Read-Write:');
writes('Input <i>:');
read(i);
writes('<i> ==');
write(i);
{============================}

writes(' Test Expr:');

i := c4;
writes(' => -10 ? :');
write(i);

j := i;
writes(' => -10 ? :');
write(j);

k := -c3*2 - 10000 div (10*i+---100);
writes(' => 30 ? :');
write(k);

f1 := not false and (i+j=-20);
writes(' => true ? :');
write(f1);

m := (k-3) mod -((1*j+i) *10 div 10);
writes(' => 7 ? :');
write(m);

read(q);

{============================}

writes('');
writes(' Test If (Exp):');
writes('if # 1');
if (17 < m+10) then begin
writes('error!!')
end else begin
writes('OK');
writes(' => 1? :') ;
write(17 - (m+10) = 0)
end;

writes('if # 2');
if not (1<=0) then begin
writes('OK')
end else begin
writes('error!!')
end;

read(q);

{============================}

writes('');
writes(' Test If-Then-If-Then-Else:');
writes('if #1 => 1 ? :');
if true then if true then write(1) else write(-1);
writes('if #2 => -1 ? :');
if true then if false then write(1) else write(-1);
writes('if #3 => no write ? :');
if false then if true then write(1) else write(-1);
writes('if #4 => no write ? :');
if false then if false then write(1) else write(-1);

read(q);

{============================}
writes('');
writes(' Test Repeat-Repeat-Until-Until:');
i:=0;
j:=0;
repeat
writes('i = ');
write (i);
j:=0;
repeat
writes(' j = ');
write (j);
j := j+1;
until j > i;
i := i+1;
until i >= 5;

{============================}
writes('');
writes('End of My Compilator Big Test');

read(q);


end.
Соседние файлы в папке proga
  • #
    01.05.2014189 б11Create_asm.bat
  • #
    01.05.201473 б12Create_txt.bat
  • #
    01.05.2014182 б11Delete_all.bat
  • #
    01.05.2014116 б11Delete_asm.bat
  • #
    01.05.201466 б11Delete_txt.bat
  • #
    01.05.20141.95 Кб12i_base.txt
  • #
    01.05.2014699 б12i_matr.txt
  • #
    01.05.201426 б11RUN_Program.bat