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

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

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

 
 Ответить  Открыть новую тему 
> Цикл! Зацикливание, Не работает программа! Почему-то зацикливается...помогите плиз...
сообщение
Сообщение #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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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



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


Новичок
*

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

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


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



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

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


Гуру
*****

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

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


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


Новичок
*

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

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


Ну а как надо? Подскажите пожалуйста!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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, 'лет');

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


Гость






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


Гость






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


Новичок
*

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

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


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

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

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

 





- Текстовая версия 27.10.2020 16:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name