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

tgk · 18.12.2011, 20:17

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

Vladimir_S · 18.12.2011, 21:12

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

Код:

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 · 18.12.2011, 23:52

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

Vladimir_S · 19.12.2011, 10:19

Цитата:

Сообщение от tgk

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

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

Цитата:

Сообщение от tgk

через program...

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

AlexZir · 19.12.2011, 13:15

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

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

18.12.2011, 21:12	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	М-да... Задача века - аж одно число поделить на произведение двух других. И не стыдно? Код: 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.

18.12.2011, 20:17
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам ссылки на темы, которые имеют что то общее с вашей темой Помогите решить задачу по Pascal. Тема - массивы Помогите решить задачу Помогите решить задачу в Pascal Помогите решить задачу.

18.12.2011, 23:52	#3 (permalink)
tgk Новичок Регистрация: 18.12.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Vladimir_S, а как это сделать проще?.. через program...

19.12.2011, 13:15	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Еще хуже - если имя программы совпадет с названием модуля расширения

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070