Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.01.2011, 22:00   #1
SergeyArefev
Новичок
Джуниор
 
Регистрация: 23.01.2011
Сообщений: 2
По умолчанию Модули в Pascal ABC

реализовать в виде модуля набор подпрограмм для выполнения след действий: 1)нахождение нечетных чисел 2)нахождение простых чисел. используя этот модуль решить задачу:

Числа близнецы. Два нечетных простых числа,разнящиеся на два,наз-ся близнецами(5 и 7,11 и 13).Составить программу,которая находит все числа Близнецы в интервале[2;1000]

помогите пожалуста, эта задача решает мою судьбу,останусь я учиться дальше,или нет)
SergeyArefev вне форума Ответить с цитированием
Старый 23.01.2011, 22:03   #2
SergeyArefev
Новичок
Джуниор
 
Регистрация: 23.01.2011
Сообщений: 2
По умолчанию

модуль я вроде как сделал, только не знаю правильно или нет, в принципе все работает ,а вот в самой программе я ничего не могу сделать, просто выводиться список простых чисел и все.
unit complex;
interface
type vata=integer;
procedure com(i,j,lim:vata);
implementation
procedure com;
begin
for i:=1 to 9999 do
begin
j:=2;
lim:=round(sqrt(i));
while (i mod j <> 0) and (j <= lim) do inc( j );
if (j > lim) then write( i,' ' );
end;
readln;
end;
end.

мой модуль
SergeyArefev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC Veron_20 Паскаль, Turbo Pascal, PascalABC.NET 9 21.12.2010 22:36
Pascal abc снеговик nikita_ivanchenko Помощь студентам 2 15.12.2010 20:57
Turbo Pascal or Pascal ABC Ikram Паскаль, Turbo Pascal, PascalABC.NET 0 27.04.2010 13:44
Pascal ABC ArcaN0id Помощь студентам 8 07.12.2009 15:24