IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Цикл! Зацикливание, Не работает программа! Почему-то зацикливается...помогите плиз...
rs-mms
сообщение 12.05.2009 10:31
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 8)
volvo
сообщение 12.05.2009 12:19
Сообщение #2


Гость






М
rs-mms, в следующий раз добавляй теги для подсветки синтаксиса самостоятельно + измени название темы, иначе она будет закрыта...



P.S. Еще бы узнать, что делает эта программа (в смысле, что должна делать...)
 К началу страницы 
+ Ответить 
rs-mms
сообщение 14.05.2009 10:01
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


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



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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 14.05.2009 12:27
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Условие выхода из цикла не работает, потому что нарастающую по цене считаете неверно.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
rs-mms
сообщение 16.05.2009 17:20
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Ну а как надо? Подскажите пожалуйста!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 16.05.2009 17:36
Сообщение #6


Гость






Опять же не совсем понятно:
Цитата
Каждый год животновод в начале зимы повышает отпускную цену на молоко на р%, а каждое лето понижает на такое же количество процентов. Изменится ли цена на молоко, если да, то в какую сторону и через сколько 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, 'лет');

Так что все-таки находим?
 К началу страницы 
+ Ответить 
Гость
сообщение 16.05.2009 17:41
Сообщение #7


Гость






Условие задачи дано преподавателем.
 К началу страницы 
+ Ответить 
volvo
сообщение 16.05.2009 17:45
Сообщение #8


Гость






Цитата
Условие задачи дано преподавателем.
Уточнить никак нельзя?
 К началу страницы 
+ Ответить 
rs-mms
сообщение 16.05.2009 17:47
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Я у нее спрашивала только про то какую цену надо менять отпускную или уже измененную, дала ответ что измененную. А что-то еще уточнять уже поздно, сессия в понедельник.

Добавлено через 4 мин.
Спасибо! Получается надо было только знак = поменять на <> и все работает!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 19:46
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"