Категория
Информатика
Тип
курсовая работа
Страницы
9 стр.
Дата
29.03.2013
Формат файла
.html — Html-документ
Архив
289765.zip — 5.52 kb
  • arifmeticheskie-osnovy-postroenija-jevm_289765_1.html — 24.27 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

writeln('Insert A');

perevod(a) ;

if (long=false) and (symb=false) then

begin

writeln('Insert B');

perevod(b);

writeln('A in BCD');

vivdcode(a);

writeln('B in BCD');

vivdcode(b);

end;

end;

2:begin

if (long=false) and (symb=false) then

begin

if a[1]=b[1] then

begin

show;

Sum(A,B,C);

min(c);

writeln(^M^J,'C in BCD');

vivdcode(c);

debox(c);

writeln;

end

else

begin

if a[1]<> 0 then

begin

dop(a);

writeln('A in dop');

vivdcode(a);

end

else

begin

dop(b);

writeln('B in dop');

vivdcode(b);

end;

sum(A,B,C);

writeln('C=A+B');

writeln('C in BCD');

if c[2]<>0 then

undop(c);

vivdcode(c);

debox(c);

end;

end;

end;

end;

until (u=2);;.

Модуль Maincrt,Adding,Winw;

f:byte;

glavwin;

repeat

CH:=readkey;

case ch of

char(19):begin clrscr; Step; end;

char(1): begin clrscr; Auto; end;

char(27): ggg:= True;

char(8): help;

else Beep;

end;

until ggg=true;

end.<</p>



Ваше мнение



CAPTCHA