Question

Va rog mult ajutati-ma trebuie sa elaborez un program care stimuleaza functionarea unui convertor numeric-analog

Answer 1

Pascal(codul nu este perfect daca nu prostesc deoarece am salvat numarul binar care poate ajunge fooooarte lung intr-un integer-long dar nu sunt familiar cu arradinamic in pascal). Ca tema iti propun sa-l refaci:

Program HelloWorld(output);

var  in_nr:integer;temp_nr:longint;
begin
    readln(in_nr);
  temp_nr:=0;
      //Acum impartim in_nr la 2 pana ramane 0 si afisam de fiecare data restul

    while in_nr>0 do
        begin
            temp_nr*=10;
            writeln(temp_nr);
            temp_nr+=(in_nr mod 2)+1;   //Nr. sa fie valid in caz ca da 0
            in_nr:=in_nr div 2;
        end;
            while temp_nr>0 do
        begin
            write((temp_nr mod 10)-1);
            temp_nr:=temp_nr div 10;
        end;
    end.