Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.11.2012, 21:24   #1 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Использование дополнительных директив стандартных модулей

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

Старый 11.11.2012, 21:24
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, не забудьте прочитать данные темы

Конфликт модулей
Взаимодействие MySQL и модулей PHP

Старый 11.11.2012, 22:51   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,265
Сказал(а) спасибо: 237
Поблагодарили 461 раз(а) в 145 сообщениях
Репутация: 79888
По умолчанию

Цитата:
Сообщение от Sandra 2000 Посмотреть сообщение
если есть вопросы по задаче спрашивайте.
Есть. По условию требуется использование звука и псевдографики. В приведенном листинге я не увидел ни того, ни другого. Вопрос: что у меня со зрением?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 12.11.2012, 18:53   #3 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Так если бы у меня уже это было в листинге я бы не просиа о помощи
задание состоит в том что нужно написать программу и добавить оконную среду(т.е.окно), использоватьзвук и псевдографику.
Программа у меня уже написана,но вот как добавить в нее окнои использовать псевдографику мне не понятно.
Забыла указать язык программирования TURBO PASCAL.
Sandra 2000 вне форума   Ответить с цитированием
Старый 12.11.2012, 20:08   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,265
Сказал(а) спасибо: 237
Поблагодарили 461 раз(а) в 145 сообщениях
Репутация: 79888
По умолчанию

Сразу скажу (не столько для Вас, сколько для коллег) - помочь не смогу. То есть если бы можно было в DOS-моде, то другое дело, там символы псевдографики сидят в верхней половине кодовой таблицы, да и музыка легко программируется, правда с выходом только на спикер системного блока. С окнами, честно сказать, и тут путаюсь. Но ведь Вам, поди, нужно для Windows, а тут я пас. Так что подождем - может кто-нибудь более искушенный подскажет.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 12.11.2012, 20:42   #5 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 12.11.2012, 20:52   #6 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

Если терпит, то могу попробовать помочь только со среды
kreol вне форума   Ответить с цитированием
Старый 12.11.2012, 20:57   #7 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Хорошо потерплю!
Sandra 2000 вне форума   Ответить с цитированием
Старый 12.11.2012, 21:26   #8 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

Лучше не просто "потерплю", но и почитаю...
kreol вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:16.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.