Температура в градусац Цельсия изменяется от 0 до 100 с шагом 5. Написать программу перевода температуры из градусов Цельсия в градусы Фаренгейта (F). Формула перевода: F=1.8+32.

Program C2F;

Uses

Crt;

Var i: integer;

c, f: real;

Begin

ClrScr; {очистить экран}

Writeln ('From Celsius to Fahrenheit:') ;

Write ('Type temperature (in celsius) : ') ; read (c) ;

f : = 32 + 2*c * (1 - 1/10) ;

Writeln ('Temperature in fahrenheit: ', f:3:3) ;

{ : 3:3 - общее количество знаков и знаков после запятой }

Writeln (' Celsius to Fahrenheit from 0 to 100, step 5: ') ;

i : = 0;

While i < = 100 Do

Begin

f : = 32 + 2*i * (1 - 1/10) ;

Writeln (' C = ', i:3,' | F = ', f:3:3) ;

i : = i + 5;

End;

Readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

End.

программа на паскале

var a: array [1 ... 21,1 ... 2] of real;

i:integer;

begin

a[1,1]:=0.0;

for i:=2 to 21 do

a[i, 1]:=a[i-1,1]+5;

for i:=1 to 21 do

a[i, 2]:=a[i, 1]*1.8+32.0;

for i:=1 to 21 do

writeln (a[i, 1]:3:0,' celcia = ', a[i, 2]:3:0,' farrengeit') ;

readln;

end.