Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовые проекты / Soft / Cursov / Curs2
.txt prog
D := 0;
B := 1;
C := 1;
A := C + InpVar;
D := C+B+234;
C := A + B + C;
D := ((C) +(A+B)) - (InpVar + 1) + (A+B);
E := (D - 22) - (A + B);
CompileTest := 0;
if (a<b or a<c xor( e=0 xor(d=0
and (b<c or (a<c and (c<>e or not(b=0)))))))
a:=0 else a:=1;
if (InpVar > 0 or -1 <> InpVar)
while (a<1) do a:=a+(b+1)
else CompileTest := InpVar+1;
end.
D := 0;
B := 1;
C := 1;
A := C + InpVar;
D := C+B+234;
C := A + B + C;
D := ((C) +(A+B)) - (InpVar + 1) + (A+B);
E := (D - 22) - (A + B);
CompileTest := 0;
if (a<b or a<c xor( e=0 xor(d=0
and (b<c or (a<c and (c<>e or not(b=0)))))))
a:=0 else a:=1;
if (InpVar > 0 or -1 <> InpVar)
while (a<1) do a:=a+(b+1)
else CompileTest := InpVar+1;
end.