Помогите решить задачу с использованием массива в Pascal

[tgk]

Помогите решить задачу с использованием массива в Pascal

Задача звучит так:
В лабораторной работе по определению теплоемкости вещества измеряют приращения температуры (ΔТ) при сообщении одинакового количества теплоты Q = 420 Дж шести образцам одинаковой массы m = 0,12 кг, изготовленным из разных материалов. Составьте программу, которая вычисляет теплоемкость веществ c = Q/(m*ΔT). Данные измерений ΔT вводятся в массив с клавиатуры. Результаты измерений и вычислений выводятся в таблицу.

 

[Vladimir_S]

М-да... Задача века - аж одно число поделить на произведение двух других. И не стыдно?

Const
 m=0.12;
 Q=420.0;
Var
 c,DT:Array[1..6] of Real;
 i:Byte;
Begin
 For i:=1 to 6 do
  begin
   Write(i,'. DT= ');
   Readln(DT[i]);
   c[i]:=Q/m/DT[i];
  end;
 Writeln;
 For i:=1 to 6 do
  Writeln('Sample ',i,'    DT= ',DT[i]:5:1,' deg    c= ',c[i]:6:2,' J/(kg*deg)');
 Readln;
End.

 

[tgk]

Vladimir_S, а как это сделать проще?.. через program...

 

[Vladimir_S]

Vladimir_S, а как это сделать проще?..

Проще - некуда.

через program...

Совсем не понял. Ну напишите сверху первой строкой
Program Xyztzyx;
или как-то еще ее обзовите на свой вкус. Просто в современных версиях Паскаля эта строка не обязательна, и я ее никогда не ставлю. Кстати, толку с этой шапки никакого, а вот проблемы возникнуть могут - например, если имя программы совпадет с одним из используемых идентификаторов.

 

[AlexZir]

Еще хуже - если имя программы совпадет с названием модуля расширения