Табулирование функции. Перевод температуры из шкалы Цельсия в шкалу Фаренгейта

Drama73

Написать и отладить программу для табулирования функции- перевода температуры из шкалы Цельсия (С) в шкалу Фаренгейта для температур от -5oС до 30oС Помогите пожалуйста написать.
2 ответа

Drama73

uses crt;
const line='-----------------------';
var c: integer;
    f: real;
 
begin
writeln(line);
writeln('| Цельсий | Фарингейт |');
writeln(line);
for c:=-5 to 30 do
    begin
    f:=c*9/5+32;
    writeln('|',c:5,'|':5,f:7:1,'|':5);
    if (c mod 15=0) and (c<>30) then
       begin
 
       writeln(line);
       writeln();
       writeln('нажмите Enter чтобы продолжить');
       readln;
       clrscr;
       writeln(line);
       writeln('| Цельсий | Фарингейт |');
       writeln(line);
       end;
    end;
writeln(line);
end.
или без изысков, но... неформат
uses crt;
const line='-----------------------';
var c: integer;
    f: real;
 
begin
writeln(line);
writeln('| Цельсий | Фарингейт |');
writeln(line);
for c:=-5 to 30 do
    begin
    f:=c*9/5+32;
    writeln('|',c:5,'|':5,f:7:1,'|':5);
    end;
writeln(line);
end.


Drama73

Спасибо!