[Admiral]

http://forum.oszone.net/forumdisplay...ilter_by=title
Почти три полноценных страниц только по Pascal, не считая ещё темы с префиксом Delphi в которых тоже обсуждают Pascal, ссылаясь на указание hasherfrog

Delphi. Все вопросы, связанные с Delphi. Вопросы по Pascal (несмотря на то, что это тянет на собственную категорию) - сюда же. »

Что обсуждать? Один из лучших языков для обучения программирования, который всё ещё используют в учебных заведениях. Я не слышал, что б его использовали для крупных коммерческих проектов. Как хобби, писать чисто под ДОС, ещё да слышал такое.

Нынче CMD/BAT самый популярный в разделе Программирование.

[Loading]

Программку на логику помогите написать... Через цикл нельзя. Через if и go to - можно.
У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги.

Еще одна из тех, которую через цикл нельзя
Составить программу перевода натурального числа из десятичной степени счисления в двоичную.
Благодарствую заранее!

http://forum.oszone.net/forumdisplay...ilter_by=title Почти три полноценных страниц только по Pascal, не считая ещё темы с префиксом Delphi в которых тоже обсуждают Pascal, ссылаясь на указание hasherfrog Цитата hasherfrog: Delphi. Все вопросы, связанные с Delphi. Вопросы по Pascal (несмотря на то, что это тянет на собственную категорию) - сюда же. » Что обсуждать? Один из лучших языков для обучения программирования, который всё ещё используют в учебных заведениях. Я не слышал, что б его использовали для крупных коммерческих проектов. Как хобби, писать чисто под ДОС, ещё да слышал такое. »

Спасибо! Принял к сведению!

[yurfed]

Только алгоритм. ПисАть програмку нет желания. Да и подзабыл уже некоторые нюансы
м1:счётчик карандашей +1
проверяем карандаши*рубли (к*р), если к*р/10 целое число goto на м2
м2:счётчик тетрадей +1
200/(сумма за карандаши + сумма за количество тетрадей) если (200/(сумма за карандаши + сумма за количество тетрадей)) целое число то
вывод на экран- количество карандашей, тетрадей и часное за упаковки фломастеров (200/(сумма за карандаши + сумма за количество тетрадей)) иначе м1
в итоге карандаши 40шт, тетради 4шт и фломастеры 5шт

[Loading]

Только алгоритм. ПисАть програмку нет желания. Да и подзабыл уже некоторые нюансы м1:счётчик карандашей +1 проверяем карандаши*рубли (к*р), если к*р/10 целое число goto на м2 м2:счётчик тетрадей +1 200/(сумма за карандаши + сумма за количество тетрадей) если (200/(сумма за карандаши + сумма за количество тетрадей)) целое число то вывод на экран- количество карандашей, тетрадей и часное за упаковки фломастеров (200/(сумма за карандаши + сумма за количество тетрадей)) иначе м1 в итоге карандаши 40шт, тетради 4шт и фломастеры 5шт »

31,2 фломастера тогда что ли в одной упаковке?! Ну да денег потрачено 200 рублей..... но предметов не выходит 200.....
Мне кажется здесь надо формулу 3-х неизвестных выводить.... или я не прав?..... Просто всё перепробовал уже.... незнаю как...

[Loading]

[yurfed]

Loading,
40*1.5 карандашей=60р
4*10 тетради=40р
Остаток 200-(60+40)=100р
100/20=5уп фломастеров.
Ты не понял? Если конкретноне понятен алгоритм, обоснуй.
Если счётчик не прав, то поправь его при перебегании в начало Х:=Х-1
Попробую написАть в ближайший день-два прогу. Ноадеюсь без объектов в проге
А вот так можно?

Код:

repeat
   оператор;
   оператор;
   ...
   оператор
until выражение

Loading, если есть готовая прога, но с ошибками, выложи сюда заключённой в теге [cоde]программа[/code]
ЗЫ в словах "code" всё латиницей.

[DedAlex]

У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги. »

Либо условие задачи не полностью, либо задача не корректна. Минимальная цена предмета 1.5 рубля, и даже стержней на эту сумму можно купить только 133 штуки.

[Loading]

Цитата Loading: У вас в наличии имеется 200 рублей. Вам необходимо купить в общей сложности 200 предметов по следующим ценам: фломастеры - 20 рублей за упаковку, тетради общие - 10 рублей за штуку, стержни - 1,5 рубля за штуку. Вы должны потратить все деньги. » Либо условие задачи не полностью, либо задача не корректна. Минимальная цена предмета 1.5 рубля, и даже стержней на эту сумму можно купить только 133 штуки. »

Условие полностью

Loading, 40*1.5 карандашей=60р 4*10 тетради=40р Остаток 200-(60+40)=100р 100/20=5уп фломастеров. Ты не понял? Если конкретноне понятен алгоритм, обоснуй. Если счётчик не прав, то поправь его при перебегании в начало Х:=Х-1 Попробую написАть в ближайший день-два прогу. Ноадеюсь без объектов в проге А вот так можно? Код: repeat оператор; оператор; ... оператор until выражениеLoading, если есть готовая прога, но с ошибками, выложи сюда заключённой в теге [cоde]программа[/code] ЗЫ в словах "code" всё латиницей. »

Нет через repeat нельзя. Это ж тоже цикл получается.
Текста проги нет, т.к не догнал что то я её вообще.

yurfed алгоритм понятен, но видишь в чем фишка... предметов по твоему способу не выходит 200. А 200 рублей выходит.
Ну я у препода спросил, он сказал что это чисто математическая прога, здесь нужно какую то формулу 3-х неизвестных через систему вывести..... кстати не карандаши а стержни Один фломастер из упаковки нужно считать за 1 предмет.

[yurfed]

кстати не карандаши а стержни »

Это существенно. Тут и копай.

предметов по твоему способу не выходит 200 »

Нужно 200 предметов на 200 рублей купить? Если каждый предмет стоит больше рубля, то как?
Всё, приехали. Дальше я молчу.