Как посчитать кол-во повторений?

[Pro100c00l]

Помогите пожалуйста!

У меня заданы 2 формулы изменения скорости 2ух тел.
v1:= (v1i * (m1 - m2)) / (m1 + m2) + (v2i*2* m2) / (m1 + m2);
v2:= (v1i *(2* m1)) / (m1 + m2) + v2i *(m2 - m1) / (m2 + m1);

v1 и v2 новые скорости
а v1i и v2i прежние

заданы начальные v1i и v2i

Мне надо, чтобы v1 = v2;
как посчитать количество изменений скоростей, то есть кол-во повторений в цикле с данными формулами???

Заранее спасибо

[Sweta]

Пишите цикл
while(v1!=v2)
{
считаете скорости и количество циклов
}

[Stilet]

Ну например так:

MODULE q;
IMPORT StdLog;

PROCEDURE do*;
VAR v1i,v2i,v1,v2,m1,m2:REAL;
 cnt,i:INTEGER;
BEGIN
 StdLog.Clear;
 cnt:=0;
 v1i:=10;v2i:=11;m1:=4;m2:=5;
 FOR i:=0 TO 5 DO
   v1:= (v1i * (m1 - m2)) / (m1 + m2) + (v2i*2* m2) / (m1 + m2);
   v2:= (v1i *(2* m1)) / (m1 + m2) + v2i *(m2 - m1) / (m2 + m1);
   StdLog.Real(v1);StdLog.Tab;StdLog.Real(v2);
   IF v1#v2 THEN
    INC(cnt);
   END;
 END;
StdLog.Ln;
StdLog.String("Кол-во повторений");StdLog.Int(cnt);
END do;

END q.

Вот результ:

11.11111111111111 10.11111111111111 11.11111111111111 10.11111111111111 11.11111111111111 10.11111111111111 11.11111111111111 10.11111111111111 11.11111111111111 10.11111111111111 11.11111111111111 10.11111111111111
Кол-во повторений 6

[Pro100c00l]

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

Ну например так:

MODULE q;
IMPORT StdLog;

PROCEDURE do*;
VAR v1i,v2i,v1,v2,m1,m2:REAL;
 cnt,i:INTEGER;
BEGIN
 StdLog.Clear;
 cnt:=0;
 v1i:=10;v2i:=11;m1:=4;m2:=5;
 FOR i:=0 TO 5 DO
   v1:= (v1i * (m1 - m2)) / (m1 + m2) + (v2i*2* m2) / (m1 + m2);
   v2:= (v1i *(2* m1)) / (m1 + m2) + v2i *(m2 - m1) / (m2 + m1);
   StdLog.Real(v1);StdLog.Tab;StdLog.Real(v2);
   IF v1#v2 THEN
    INC(cnt);
   END;
 END;
StdLog.Ln;
StdLog.String("Кол-во повторений");StdLog.Int(cnt);
END do;

END q.

Вот результ:

ПОДСКАЖИТЕ ПОЖАЛУЙСТА!!!!
я не совсем понял:
Я делаю цикл от 1 до n
Даю условие окончание цикла
КАК ВЫВЕСТИ кол-во прокруток цикла то есть n????

[Stilet]

Pro100c00l

Во-первых: Уточни задачу - тебе нужно указать сколько какое число раз повторялось, или сколько раз пары v1 v2 были равны между собой на очередной итерации?
Во-вторых: Ну если я действительно угадал и речь идет именно о той системе в которой я написал то:

StdLog.Ln;
StdLog.String("Кол-во иттераций");
StdLog.Int(n);

[Базиля]

Если тебе нужно вывести кол-во итераций цикла(т.е. повторений) то можешь в самом цикле какую нибудь переменую увеличивать на единицу
Пример:

for i:=1 to n do
x:=x+1;

В переменную "x" ты присваиваешь кол-во повторений цикла,
после цикла выводи "x".

writeln('кол-во повторений цикла ',i,' равно ',x);