Регистрация
nshtvr
22.02.2021 00:00
Информатика
Есть ответ 👍

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

210
356
Посмотреть ответы 3

Ответы на вопрос:

54st
54st
4,6(84 оценок)

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.

alinasupieva0910
alinasupieva0910
4,8(82 оценок)

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

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

a[1,1]: =0.0 ; for i: =2 to 21 doa[i,1]: =a[i-1,1]+5; for i: =1 to 21 doa[i,2]: =a[i,1]*1.8+32.0; for i: =1 to 21 dowriteln (a[i,1]: 3: 0,' celcia = ',a[i,2]: 3: 0,' farrengeit'); readln; end.

мага399
мага399
4,6(25 оценок)

16 знаков можно закодировать 4 битами, т.к. 16 это 2^4

Популярно: Информатика