Question

Napisz program według schematu Botton-up design(od szczegółu do ogółu) którydokonuje konwersji liczby dziesiętnej na dwójkową.

Program ma być wykonany w języku Pascal.

Daje naj. :)

Answer 1

program nazwa;
uses crt;
var
        a:integer;

procedure bin(liczba:integer);
begin
        if (liczba >= 2) then
                bin(liczba div 2);
        write(liczba mod 2);
end;

begin
clrscr;
        writeln('Podaj liczbe naturalna: ');
        readln(a);
        write(a,'(D)=');
        bin(a);
        write('(B)');
readln;
end.