6.4.. Napisati program za pretvaranje dužine puta u kilometrima u dužinu u miljama (1 milja = 1,825 km).

Opis rješenja: Odnos milja i kilometara je km = m * 1.825. Poslije ucitavanja dužine u miljama izvodi se:
I varijanta - izracunavanje izraza, a zatim ispis;
II varijanta - izracunavanje izraza je u naredbi ispisa Writeln.

Tekstualni algoritam:

1. ulaz - ucitati: "Duzinu u miljama: "; m
2. obrada - izracunati: m = km / 1.825;
3. izlaz - ispisati: m, km

Listing programa:

PROGRAM p06411100;
USES WinCRT;
VAR
  m, km: Real;
BEGIN
  Writeln('Pretvaranje duzine puta u kilometrima u duzinu u miljama (1 milja = 1,825 km).');
  Write('Duzina u kilometrima: ');
  Readln(km);                                 { duzina u kilometrima }
  m := km / 1.825;                            { konverzija }
  Writeln('km = ', km:4:2,',  m = ', m:4:2);  { duzina u miljama }
END.

II varijanta    pretvoranje u naredbi izlaza
PROGRAM p06411100;
USES WinCRT;
VAR
  km: Real;
BEGIN
  Writeln('Pretvaranje duzine puta u kilometrima u duzinu u miljama (1 milja = 1,825 km).');
  Write('Duzina u kilometrima: ');
  Readln(km);                                 { duzina u kilometrima }
  Writeln('km = ', km:4:2,',  m = ', (km / 1.825):4:2);  { konverzija, duzina u miljama }
END.

Ispis na ekranu:

Index