6.4.. Napisati program za pretvaranje velicinu fajla izraženu u megabajtima ispisuje u kilobajtima.

Opis rješenja: Odnos kilobajta i megabajta je kb = mb * 1024. Poslije ucitavanja vrijednosti izvodi se:
I varijanta - izracunavanje izraza, a zatim ispis;
II varijanta - izracunavanje izraza je u naredbi ispisa Writeln.

Tekstualni algoritam:

1. ulaz - ucitati: "Velicina u megabajtima: "; mb
2. obrada - izracunati: kb = mb * 1024;
3. izlaz - ispisati: mb, kb

Listing programa:

PROGRAM p06411110;
USES WinCRT;
VAR
  mb, kb: Real;
BEGIN
  Writeln('Pretvaranje velicinu fajla izrazenu u megabajtima ispisuje u kilobajtima');
  Write('Velicina u megabajtima: ');
  Readln(mb);                                  { velicina u megabajtima }
  kb := mb * 1024;                             { konverzija }
  Writeln('mb = ', mb:4:2,',  kb = ', kb:4:2); { velicina u kb }
END.

II varijanta    pretvoranje u naredbi izlaza
PROGRAM p06411110;
USES WinCRT;
VAR
  mb: Real;
BEGIN
  Writeln('Pretvaranje velicinu fajla izrazenu u megabajtima ispisuje u kilobajtima');
  Write('Velicina u megabajtima: ');
  Readln(mb);                                  { velicina u megabajtima }
  Writeln('mb = ', mb:4:2,',,  kb = ', (mb * 1024):4:2);  { velicina u kb }
END.

Ispis na ekranu:

Index