6.4.. Napisati program kojim se prevodi temperatura iz skale Celzija u skalu Farenhajta.

Opis rješenja: Odnos Celzujsovih i Farenhajtovih stepeni je tf=tc*1.8+32. Poslije ucitavanja vrijednosti temperature izvodi se:
I varijanta - pretvaranje, a zatim ispis;
II varijanta - pretvaranje stepeni je u naredbi ispisa Writeln.

Tekstualni algoritam:

  1. ulaz - ucitati: "Ucitaj temperaturu u Celzijusima: "; tc
  2. obrada - izracunati: tf = tc * 1.8+32
  3. izlaz - ispisati: "Temperatura u Farenhajtima = "; tf

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM temperatura;

 

2

VAR

 

3

  tc, tf: Real;;

 

4

BEGIN

 

5

  Write(' unesi temperaturu u celzijusima tc=');

 

6

  Readln(tc);

 

7

  tf:=tc*1.8+32;

formula za preračunavanje

8

  Writeln(tc:4:2,'c=',tf:4:2,'f');

 

9

  READLN;

 

10

END.

 

Listing programa:

PROGRAM temperatura;
{ 06412008 }
VAR
  tc, tf: Real;
BEGIN
  Write('Ucitaj temperaturu u celzijusima tc=');
  Readln(tc);
  tf:=tc*1.8+32;
  Writeln(tc:4:2,'c=',tf:4:2,'f');
  READLN;
END.

II varijanta
PROGRAM temperatura;
{ 06412008 }
VAR
  tc: Real;
BEGIN
  Write('Ucitaj temperaturu u celzijusima tc=');
  Readln(tc);
  Writeln(tc:4:2,'c=',tc*1.8+32:4:2,'f');
  READLN;
END.

Ispis na ekranu:

Index