Паскаль. Напечатать таблицу перевода из Цельсия в Фаренгейта

[lidja]

Напечатать таблицу перевода из Цельсия в Фаренгейта. От 0 градусов до 100 с началом 5. Формула F=1.8*C+32. Помогите плиз

[tig81]

Что делали? Что не получается?

[lidja]

program cikl;
var a,i:integer;
    F:real;
begin
for i:=0 to 100 do read(a);
for i:=0 to 100 do begin F:=(a*1,8)+32;
                          writeln('F=',f:9:3);
                            end;
  end.
как-то как, но не верно

[tig81]

program cikl;
var a,i:integer;
    F:real;
begin
for i:=0 to 100 do read(a);
for i:=0 to 100 do begin F:=(a*1,8)+32;
                          writeln('F=',f:9:3);
                            end;
  end.
как-то как, но не верно

Какую-то ошибку выдает?
6-я строка: 1,8 надо набирать через запятую или точку?

[lidja]

С точкой, ну а вообще программа правильно написана? просто что-то не чего не выводит....

[tig81]

С точкой, ну а вообще программа правильно написана? просто что-то не чего не выводит....

Сложно сказать,я не большой спец в Паскале.
А почему цикл в 5 и 6 строках дублируется?
Может ввод а надо перед циклом?
"writeln" - это вывод на экран? print в Паскале есть?

[Данила]

ерунду написали.
смотрите
у вас идет цикл с 0 до 100,вы считываете а,при том херя предыдущее значение. в конце цикла у вас имеется одно значение а,которое ввели последним.
далее вы делаете цикл преобразования и опять 100 раз преобразуете одну и ту же а

делайте так

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

program cikl;
var i:integer;
    F:real;
    a:array [0..100] of integer;
begin
for i:=0 to 100 do read(a[i]);
for i:=0 to 100 do begin F:=(a[i]*1,8)+32;
                          writeln('F=',f:9:3);
                            end;
  end.
сначала циклом вы заполните массив входных значений в цельсиях,далее 2ым циклом по очереди будете преобразовывать и выводить.

можно так

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

program cikl;
var i,a:integer;
    F:real;
begin
for i:=0 to 100 do begin
   read(a);
   F:=(a[i]*1,8)+32;
   writeln('F=',f:9:3);
   end;
  end.но в этом случае сразу после ввода значения в цельсиях будет выводиться значение в фаренгейтах
что-то такое
->C
<-F
->C
<-F

[lidja]

хм, а шаг 5 куда надо вписывать?

[Данила]

хм... тогда зачем вам нужен был ввод с клавиатуры?)
тогда так

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

program cikl;
var i:integer;
    F:real;

begin
for i:=0 to 100 do begin
   F:=(i*1,8)+32;
   i:=i+5;                          
   writeln('F=',f:9:3);
   end;
  end.