Массивы. Напечатать таблицу перевода

[poiuyt]

Напечатать таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы по шкале Фаренгейта (F) для значений T от 15С до 30С с шагом 1С. (Перевод осуществляется по формуле F = 1,8 C × 32 С).
вообще я почитал что при переходе из цельсия на фарингеит нужно *1.8+32 так проверьте прогу но чет пишет что не правильно почему?

program prim3;
var i:integer;
    f:real;
    a: array [15..30] of integer;
begin
for i:=15 to 30 do read(a);
for i:=15 to 30 do begin f:=(a*1,8)+32;
                          writeln('f=',f:9:3);
                            end;
  end.

[poiuyt]

пожалуйста помогите мне срочно

[Данила]

Код: [Выделить]

program prim3;
var i:integer;
    f:real;
    a: array [0..15] of integer;
begin
  for i:=0 to 15 do a[i]:=i+14;
  for i:=0 to 15 do begin
        f:=(a[i]*1.8)+32;
writeln('f=',f:9:3);
        end;
  readln
  end.

почему у вас индексация массива начинается с 15? и зачем циклы делать с кривой индексацией?

[poiuyt]

да ошибка 1..15 а дальше

[poiuyt]

мне выписывает в строке for i:=1 to 15 do  f:=(a*1,8)+32; попытка присвоить переменной real выражение типа complex непонятно

[Данила]

посмотрите мой код...он компилится и выводит то,что надо...откуда там комплекс не пойму

[poiuyt]

спасибо заработало