Циклы с пред- и простусловием

Зависимость массы тела от его движения определяется уравнением (1)



где m0 - масса покоя;
с=298792 км/c - скорость света;

Выполнить расчеты и построить график m=f(v) для движения нейтрона m0=1.675*10-24 со
скоростью v= 50, 100, 150, 200, 250, 260, 270, 280 и 290 тыс.км/c

Указание: множитель 10-24 в программе не записовать....

Вот формула к задаче


Зарание благодарен

1.Центр помощи есть.
2.Что не понятно или ты не знаешь вообще Pascal
3.Прогу что-ли в графическом режиме делать надо???

зачем корень из квадрата извлекать?

Цитата(Samhein @ 23.10.2005, 21:19)

зачем корень из квадрата извлекать?

Это у него такой заменитель модуля...

Цитата(nikitao @ 23.10.2005, 18:43)

1.Центр помощи есть. 2.Что не понятно или ты не знаешь вообще Pascal 3.Прогу что-ли в графическом режиме делать надо???

Да вообщем надо решить а потом график построить.....в Турбо-паскале
А как я даже незнаю!!!

Ой, ну вот как то так....

Код

var   v: real;   c: real;   m: real; begin   v:=50000;   c:= 298792;   m:= 1/(sqr((v/c)*(v/c))); end.

Извеняюсь но задачу надо решить двумя способами


1. С предусловием типа:

program zadacha;
const c=298792 ;
var m,v:real ;
writeln('Введите m')
readln(m);
m:= 1/(sqr((v/c)*(v/c)));
(И далее операторские скобки)
While (Пока условие истенно) do
---?---?-?-----
-----???--------
--???----
writeln('m=',m:6:2);
end.



2. С постусловием
program zadacha;
const c=298792 ;
var m,v:real ;
writeln('Введите m')
readln(m);
m:= 1/(sqr((v/c)*(v/c)));
Repeat Untie (Условие) - я понимаю то цикл работает пока условие ложно
--???--------
---???-----
--???--------
writeln('m=',m:6:2);
edn.

ДА и еще паскаль не монимает arccos, я записал arccos как Pi/2-arcsin а как arcsin записать?????
И как построить График !!!!!!!! Последовательность в задаче строк наверно неправельна написал!!
ПОжалуйста помогите!!!!!! Мне завтра СДавать!!!!!!!!!!!