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

+ 0 -

Elizabeg

14 окт. 2013 г., 5:13:15 (10 лет назад)

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

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.

+ 0 -

Masecif

14 окт. 2013 г., 7:17:55 (10 лет назад)

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.