Реферат: Взаимодействие основных частей ЭВМ при выполнении программы
end
else
CH := C;
ClearDevice
end; {Quastion}
{-----------------}
function Mark(Res: Byte): Char;
begin
case Res of
1: Mark := '1';
2: Mark := '2';
|
3: Mark := '3';
4: Mark := '4';
5: Mark := '5';
else
Mark := '0'
end
end; {Mark}
{-----------------}
var
I: Byte;
Result: Byte;
StrRes: string[2];
TempS: TText;
C: Char;
begin
C := #0;
ClearDevice;
Result := 0;