Оператор цикла while do в ТР

[Lyona]

Не могу справиться с задачей.
Преподаватель сказал,что решать через while do.
Искала в интернете примеры,но для свой не могу найти вариант(
http://s018.radikal.ru/i517/1201/a7/7830e475332f.jpg

[MooNDeaR]

На паскале не писал ОООЧЕНЬ давно. Но решение будет выглядеть как-то так (надеюсь ввод данных вы сами сделаете):

{совершенно рандомно ставил}
const
alpha = 0.2;
gamma = 2.7;
p = 5.5;
c = 1;

var
m, CloseTemperature, CriticalTemperature : real;
t : integer;

begin
CloseTemperature := {Что-нибудь};
CriticalTemperature := {еще раз что-нибудь};

m := alpha/(p*gamma + c*gamma*(CloseTemperature - CriticalTemperature));

t := 0;
while(t <= 1200) do
begin
   Writeln('t = ',t,' Ksi = ', m*t);
   t := t + 120;
end;
Readln;
end.

вот хз насколько правильно (касательно синтаксиса) написал, но должно работать. Т.к. в системе СИ время в секундах, я его сразу перевел

[Lyona]

MooNDeaR

Спасибо огромное!)

Пробую сделать сейчас и у меня вот такая ошибка выскакивает.Не подскажете,как с ней справиться:http://s018.radikal.ru/i507/1201/5e/736d9beba556.jpg

[MooNDeaR]

Допишите в самом начале
program name;
Хотя я не уверен. Просто говорю ж не писал на паскале давно

P.S.
Данные не забудьте подставить везде нормальные Ну а значения температур можно с клавиатуры запрашивать

[Lyona]

MooNDeaR

Всё,спасибо)Действительно,нужно было имя написать)
Получилось!!!!

Благодарю

[MooNDeaR]

Не за что Разве плюсик поставьте (значок весов под информацией слева)