Что бы перевести из десятичной в двоичную, нужно всего лишь десятичной число делить на 2. ответ: 100110111001
Вот блок-схема алгоритма выполнения домашнего задания по математике.
*Однако, обрати внимание!
На этапе проверки решения в тетради, может образоваться (РЕКУРСИВНЫЙ алгоритм т.е. Рекурсия)
uses graphabc;
begin
SetPenWidth(2);
rectangle (100,100,500,300);
line(300,100,300,300);
moveto(100,100);
lineto(200,50);
lineto(400,50);
lineto(500,100);
line(200,50,300,100);
SetBrushColor(clGray);
rectangle(150,150,250,250);
end.
Program D1KPxx18;
uses crt;
var
x,y,a:real;
label 1,2,3,4;
begin
4:writeln('Выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход');
read(a);
if a=1 then
goto 1;
if a=2 then
goto 2;
if a=3 then
goto 3;
1:begin
writeln('Введите "х"');
read(x);
y:=sin(x);
writeln('Синус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
2:begin
writeln('Введите "х"');
read(x);
y:=cos(x);
writeln('Косинус "х" равен ',y);
writeln('Ещё? 1-No, 2-Yes');
read(a);
if a=2 then goto 4
else goto 3;
end;
3:writeln('Пока!');
<span>end.
Программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как меню... это если я правильно понял что именно значило:"Организовать меню")))
</span>