Outline · [ Standard ] · Linear+ Pomozite Hitno!, Domaci

[sladja92]

Ljudi , Pomozite oko ovog zadatka:
Napisati program koji uneti broj u osnovi m1 prevodi u osnovu m2.
( Moze sa prevodjenjem u osnovu 10, a ne mora! )
Kod ispisati u Pascalu.

[Hannibal Lecter]

E pogledacu sada imao sam to na kompu ali ne znam da li i dalje imam.
Ne znam ovako da resim

[Hannibal Lecter]

Ovo su ti funkcije za prevodjenje broja iz osnove N u decimalni zapis i obrnuto. Prvo broj osnove m1 prevedes u dec, pa iz dec u osnovu m2

CODE

function N2Dec(b:string;osn:integer):integer;
var
 a:integer;
 c:char;
 i, n: integer;
begin
 a:=0;
 for i:=1 to length(B) do
 begin
 c:=upcase(b[i]);
 if c<='9' then
   n:=ord©-ord('0')
 else
   n:=ord©-ord('A')+10;
 a:=a*osn+n;
 end;
 N2Dec:=a;
end;

function Dec2N(a,osn:integer):string;
var b:string;
   c:char;
   n:integer;
begin
 b:='';
 while a>0 do
 begin
   n:=a mod osn;
   if n<10 then c:=****n+ord('0'))
   else c:=****n+ord('A')-10);
   b:=c+b;
   a:=a div osn;
 end;
Dec2N:=b;
end;

[sladja92]

Hvala puno