получить таблицу температур, используя подпрограмму-функцию и массивы Опции

[Ksenia]

Разроботать алгоритм решения задачи, составить блок-схему и запрограммировать решение на языке Паскаль, используя подпрограмму-функцию и массивы. необходимо получить таблицу температур по цельсию от 0 до 20 градусов с шагом в один градус цельсия и их эквивалентов по шкале Фаренгейта, используя для перевода формулу:
Tf=(9/5)Tc+32.

Пожалуйста, помогите !!!
Мы это в школе давно очень проходили, уже не помню...
Заранее спасибо.

[Ksenia]

скорее всего здесь проще: наверное нужно вівести таблицу 2х20
просто столбик со значиниями цельсий и рядом со значениями по фаренгейту, как-то так.
спасибо, что помогаете.

[DarkWishmaster]

скорее всего здесь проще: наверное нужно вівести таблицу 2х20
просто столбик со значиниями цельсий и рядом со значениями по фаренгейту, как-то так.
спасибо, что помогаете.

 Uses Crt;
var a:array[1..5,1..4] of byte;
    b:array[1..5,1..4] of real;
    number:byte;
    i,j:byte;
function Tf(x:byte):real;
 begin
  TF:=(9/5)*x+32;
 end;
Begin ClrScr;
number:=0;
for i:=1 to 5 do
  for j:=1 to 4 do 
   begin
     inc(number);
     a[i,j]:=number;
     b[i,j]:=Tf(number);
   end;
for i:=1 to 5 do
for j:=1 to 4 do 
    begin
       write(a[i,j],' / ');
       writeln(b[i,j]:3 :2);  //ошибка из за тэга
    end;
readln;
end.

Сообщение отредактировано: DarkWishmaster - 7.06.2011 18:11

[IUnknown]

не понимаю что с тэгом

Вот, оно самое: Старинный баг: смайлики в коде ...