Sandra 2000

Нужно по условию написать программу, которая использует процедуры и функции
(уже написана), работает в оконной среде, использует звук и псевдографику.
Задача
Найдите натуральное число от 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.
если есть вопросы по задаче спрашивайте.

Vladimir_S

Есть. По условию требуется использование звука и псевдографики. В приведенном листинге я не увидел ни того, ни другого. Вопрос: что у меня со зрением?

Sandra 2000

Так если бы у меня уже это было в листинге я бы не просиа о помощи
задание состоит в том что нужно написать программу и добавить оконную среду(т.е.окно), использоватьзвук и псевдографику.
Программа у меня уже написана,но вот как добавить в нее окнои использовать псевдографику мне не понятно.
Забыла указать язык программирования TURBO PASCAL.

Vladimir_S

Сразу скажу (не столько для Вас, сколько для коллег) - помочь не смогу. То есть если бы можно было в DOS-моде, то другое дело, там символы псевдографики сидят в верхней половине кодовой таблицы, да и музыка легко программируется, правда с выходом только на спикер системного блока. С окнами, честно сказать, и тут путаюсь. Но ведь Вам, поди, нужно для Windows, а тут я пас. Так что подождем - может кто-нибудь более искушенный подскажет.

kreol

К сожалению помочь с программой не могу, т.к. сам занят и у меня 64 битная система... так что запускается только free pascal. Но посмотрите уроки работы с turbo vision. Именно с помощью нее можно делать окошки :-)

kreol

Если терпит, то могу попробовать помочь только со среды

Sandra 2000

Хорошо потерплю!

kreol

Лучше не просто "потерплю", но и почитаю...