VPF::Программа написанна верно, но зависает!

lamerOK

Дата 22.4.2007, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 5.4.2007

Репутация: нет
Всего: нет

Программа написана верно, но зависает. Почему??? Вот исходник

Код


program tr3;
uses crt;
var k,t,p,g,n:real;
begin
write('Введите первоначальный объем древесины ');
readln(p);
write('Введите % ежегодного прироста ');
readln(k);
g:=0;
n:=0;
write('Введите годовой план ');
readln(t);
repeat
begin
g:=(p-t)+((p*k)/100);
n:=n+1;
end;
until g=0;
write('Через ',n,' лет в лесу остануться только опята ');
end.

Farmazon

Дата 22.4.2007, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Разработчик

Профиль
Группа: Участник
Сообщений: 265
Регистрация: 7.7.2006

Репутация: нет
Всего: 5

Ни P, ни T, ни K в цикле не изменяются. Значение G постоянно. Ясен пень зациклится...

--------------------

Таково моё общее мнение.

lamerOK

Дата 23.4.2007, 03:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 5.4.2007

Репутация: нет
Всего: нет

Мда, тода напиши правильное решение этой задачи!
Первоначальный объем древесины состовлялз р-кубометров. Ежегодный прирост к%. Годовой план заготовки Т-кубометров. Через сколько лет в лесу не че неостаниться?

Farmazon

Дата 23.4.2007, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Разработчик

Профиль
Группа: Участник
Сообщений: 265
Регистрация: 7.7.2006

Репутация: нет
Всего: 5

Код


var
  P, K, T : Real;
  N : Integer;
begin
  Readln(P, K, T);
  K := K/100;
  if (T/p <= K) then
    Writeln('Дерево не кончицца.')
  else
    begin
      N := 0;
      while P > 0 do
        begin
          Inc(N);
          P := P - T + K*P;
        end;
      end;
  Writeln(N);
end.

Это сообщение отредактировал(а) Farmazon - 23.4.2007, 04:38

--------------------

Таково моё общее мнение.

lamerOK

Дата 23.4.2007, 04:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 5.4.2007

Репутация: нет
Всего: нет

А да спс я просто затупил

Это сообщение отредактировал(а) lamerOK - 23.4.2007, 04:55

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »