6.4.. Napisati program za pretvaranje dužine puta u miljama u dužinu u kilometrima (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: km = m * 1.825;
3. izlaz - ispisati: m, km

Listing programa:

PROGRAM p06411070;
USES WinCRT;
VAR
  m, km: Real;
BEGIN
  Writeln('Pretvaranje duzine puta u miljama u dužinu u kilometrima (1 milja = 1,825 km).');
  Write('Duzinu u miljama: ');
  Readln(m);                                  { duzina u miljama }
  km := m * 1.825;                            { konverzija }
  Writeln('m = ', m:4:2,',  km = ', km:4:2);  { duzina u km }
END.

II varijanta    pretvoranje u naredbi izlaza
PROGRAM p06411070;
USES WinCRT;
VAR
  m: Real;
BEGIN
  Writeln('Pretvaranje duzine puta u miljama u dužinu u kilometrima (1 milja = 1,825 km).');
  Write('Duzinu u miljama: ');
  Readln(m);                                  { duzina u miljama }

  Writeln('m = ', m:4:2,',  km = ', (m * 1.825):4:2);  { duzina u km }
END.

Ispis na ekranu:

Index