Цикл! Зацикливание, Не работает программа! Почему-то зацикливается...помогите плиз... Опции

[rs-mms]

Program fermer; 
uses crt;
var 
  S: real; {отпускная цена} 
  S2,S3: real; {изменяемая цена} 
  P: real; {процент} 
  N: integer; 
begin 
  writeln('Введите отпускную цену: '); 
  readln(S); 
  writeln('Введите процент: '); 
  readln(P); 
  N:=0; 
  S3 := S; 
    repeat 
      S2:=S3*(1 + P/100); {повышение цены зимой} 
      S3:=S2*(1 - P/100); {понижение цены летом} 
      N:=N+1;   
    until (S3=S); {проверка условия} 
      writeln('Цена на молоко', S3, 'через', N, 'лет'); 
    readln;
end.

Сообщение отредактировано: rs-mms - 14.05.2009 10:00

[volvo]

Опять же не совсем понятно:

Каждый год животновод в начале зимы повышает отпускную цену на молоко на р%, а каждое лето понижает на такое же количество процентов. Изменится ли цена на молоко, если да, то в какую сторону и через сколько N лет?

Что значит выделенное? Измениться ли цена, и через сколько лет? Да, изменится, уже после первого же прибавления. Цена уже другая. Имеется в виду в конце года? Да, тоже изменится, потому что если прибавить X% к числу и потом от вновь полученного отнять X% - то исходное число получено не будет:

N := 0; 
S3 := S; 
repeat 
  S2:=S3*(1 + P/100); { повышение цены зимой } 
  S3:=S2*(1 - P/100); { понижение цены летом } 
  N:=N+1;   
until (S3 <> S); { проверка условия (условие изменилось) } 
writeln('Цена на молоко', S3:10:3, 'через', N, 'лет');

Так что все-таки находим?