Wystarczyło zadać pytanie na jednym forum. Administrator forum może być zniesmaczony.
Sprecyzuj co dokładnie chcesz uzyskać, no i gdzie masz ten program? Bo z tego co piszesz wychodzi że niewiesz jak
mnożyć dowolną liczbę przez 1.000, przez 1.000.000. Chyba że chodzi Ci o wartości informatyczne i z tym masz problem

Jeśli idzie o te drugie to, pamiętaj że w informatyce przedrostek giga oznacza liczbę 1024*1024*1024 = 1073741824, wynika ona z działania 2³⁰, natomiast w
fizyce i matematyce Giga to 10⁹ = 1.000.000.000. A to dlatego że w informatyce stosowany jest system dwójkowy [0,1] a nie dziesiętny.
Analogicznie postępuje się przy Kilo i Mega.

Pozdrawiam Stefan Pruszkiewicz


Uses Crt;

Type TRozmiary = (Bytes, KiloBytes, MegaBytes, GigaBytes);

function Zamien(Wartosc : Real; Z, Na : TRozmiary) : Real;
var WspZ,WspNa : Real;
begin
case Z of
Bytes : WspZ:=1;
KiloBytes : WspZ:=1024;
MegaBytes : WspZ:=1024*1024;
GigaBytes : WspZ:=1024*1024*1024
end;
case Na of
Bytes : WspNa:=1;
KiloBytes : WspNa:=1024;
MegaBytes : WspNa:=1024*1024;
GigaBytes : WspNa:=1024*1024*1024
end;
Zamien:= (WspZ/WspNa)*Wartosc
end;

Const Liczba : Real = 512;

Begin
ClrScr; {Zamiana z GigaBajtów na kolejno: Bajty, KiloBajty i MegaBajty}
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba,GigaBytes,Bytes):0:0,' B');
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba,GigaBytes,KiloBytes):0:0,' kB');
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba,GigaBytes,MegaBytes):0:0,' MB');
Writeln; {Zamiana z Bajtów na kolejno: KiloBajty i MegaBajty i GigaBajty}
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,KiloBytes):0:20,' kB');
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,MegaBytes):0:20,' MB');
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,GigaBytes):0:20,' GB');
Readln
End.

Cały problem sprowadza się tu do obliczenia współczynnika (WspZ/WspNa) przez który nalezy przemnożyć daną liczbę i...
That's All Folks

Pozdrawiam Stefan Pruszkiewicz

dziekuje za pomoc