nikita píše:
no ja neviem ale asi hej tak ak by si plz mohol tak mi to posli
PS: a nedalo by sa to potom dat nejako do kopy aby toho bolo menej????
Kód:
program Prevody;
uses CRT;
var sestnast,desat,I,kod,hex:integer;
vysledok,pomocna:string;
vyber:char;
label menu;
begin
menu:
clrscr;
writeln('1: prevod z desiatkovej sustavy do sestnastkovej sustavy');
writeln('2: prevod zo sestnastkovej do desiatkovej sustavy');
writeln('3: koniec');
writeln;
readln(vyber);
case vyber of
'1': begin
write('Zadaj cislo v 10 sustave: ');
readln(desat);
vysledok:='';
while desat>0 do begin
sestnast:=desat mod 16;
case sestnast of
10: vysledok:='A'+vysledok;
11: vysledok:='B'+vysledok;
12: vysledok:='C'+vysledok;
13: vysledok:='D'+vysledok;
14: vysledok:='E'+vysledok;
15: vysledok:='F'+vysledok;
0..9: begin
str(sestnast,pomocna);
vysledok:=pomocna+vysledok;
end;
end;
desat:=desat div 16;
end;
writeln('Zadane cislo je v sestnastkovej sustave: ',vysledok);
writeln;
write ('Pokracovat? [Y/N]: ');
readln(vyber);
if uppercase(vyber)='Y' then goto menu;
end;
'2': begin
write('Zadaj cislo v 16 sustave: ');
readln(pomocna);
hex:=0;
sestnast:=1;
For I:=length(pomocna) downto 1 do begin
case pomocna[I] of
'A': desat:=10;
'B': desat:=11;
'C': desat:=12;
'D': desat:=13;
'E': desat:=14;
'F': desat:=15;
'0'..'9': val(pomocna[I],desat,kod);
end;
hex:=hex+sestnast*desat;
sestnast:=sestnast*16;
end;
writeln('Zadane cislo je v desiatkovej sustave: ',hex);
writeln;
write ('Pokracovat? [Y/N]: ');
readln(vyber);
if uppercase(vyber)='Y' then goto menu else exit;
end;
'3': exit;
end;
end.
//v céčku by to bola záležitosť 5-tich riadkov, tak neviem prečo sa zahadzuješ s trápnym pascalom.
Choď na stránku: