|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
11.11.2012, 21:24 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Использование дополнительных директив стандартных модулей
(уже написана), работает в оконной среде, использует звук и псевдографику. Задача Найдите натуральное число от 1 до 10000 с максимальной суммой делителей. программа уже написана uses crt; Function SumDel(I:Integer):Integer; Var J,S:Integer; Begin if i=1 then s:=1 else begin S:=i+1; For J:=2 to I div 2 Do If I Mod J = 0 Then S:=S+J; end; SumDel:=S; End; Var I,Max,imx:Integer; Begin clrscr; Max:=1; imx:=1; For I:=2 to 10000 Do If SumDel(I) > Max Then begin Max:=SumDel(i); imx:=I; end; WriteLn('Максимальная сумма делителей=',Max,' у числа ',imx); ReadLn; End. если есть вопросы по задаче спрашивайте. |
11.11.2012, 21:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, не забудьте прочитать данные темы Конфликт модулей Взаимодействие MySQL и модулей PHP |
12.11.2012, 18:53 | #3 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Так если бы у меня уже это было в листинге я бы не просиа о помощи
задание состоит в том что нужно написать программу и добавить оконную среду(т.е.окно), использоватьзвук и псевдографику. Программа у меня уже написана,но вот как добавить в нее окнои использовать псевдографику мне не понятно. Забыла указать язык программирования TURBO PASCAL. |
12.11.2012, 20:08 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сразу скажу (не столько для Вас, сколько для коллег) - помочь не смогу. То есть если бы можно было в DOS-моде, то другое дело, там символы псевдографики сидят в верхней половине кодовой таблицы, да и музыка легко программируется, правда с выходом только на спикер системного блока. С окнами, честно сказать, и тут путаюсь. Но ведь Вам, поди, нужно для Windows, а тут я пас. Так что подождем - может кто-нибудь более искушенный подскажет.
|
12.11.2012, 20:42 | #5 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
К сожалению помочь с программой не могу, т.к. сам занят и у меня 64 битная система... так что запускается только free pascal. Но посмотрите уроки работы с turbo vision. Именно с помощью нее можно делать окошки :-)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.11.2012, 21:26 | #8 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Лучше не просто "потерплю", но и почитаю...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|