Использование дополнительных директив стандартных модулей
Нужно по условию написать программу, которая использует процедуры и функции
(уже написана), работает в оконной среде, использует звук и псевдографику. Задача Найдите натуральное число от 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. если есть вопросы по задаче спрашивайте.:tehnari_ru_837: |
Цитата:
|
Так если бы у меня уже это было в листинге я бы не просиа о помощи
задание состоит в том что нужно написать программу и добавить оконную среду(т.е.окно), использоватьзвук и псевдографику. Программа у меня уже написана,но вот как добавить в нее окнои использовать псевдографику мне не понятно. Забыла указать язык программирования TURBO PASCAL. |
Сразу скажу (не столько для Вас, сколько для коллег) - помочь не смогу. То есть если бы можно было в DOS-моде, то другое дело, там символы псевдографики сидят в верхней половине кодовой таблицы, да и музыка легко программируется, правда с выходом только на спикер системного блока. С окнами, честно сказать, и тут путаюсь. Но ведь Вам, поди, нужно для Windows, а тут я пас. Так что подождем - может кто-нибудь более искушенный подскажет.
|
К сожалению помочь с программой не могу, т.к. сам занят и у меня 64 битная система... так что запускается только free pascal. Но посмотрите уроки работы с turbo vision. Именно с помощью нее можно делать окошки :-)
|
Если терпит, то могу попробовать помочь только со среды
|
Хорошо потерплю!
|
Лучше не просто "потерплю", но и почитаю...
|
Часовой пояс GMT +4, время: 12:48. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.