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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

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

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

Помогите пожалуйста решить.
Решить с помощью модуля...
Модуль. Реализовать сложение, вычитание, умножение длинных целых чисел, операции отношения для длинных целых чисел.
Задача. Даны два натуральных длинных числа. Вычислить значение выражения (max(n, m) – min(n,m))2.
pahom вне форума Ответить с цитированием
Старый 23.04.2010, 09:47   #2
mifomen
Help, если смогу!
Пользователь
 
Регистрация: 14.09.2009
Сообщений: 55
По умолчанию

Остальное можешь сам до думать

PHP код:
unit MODULE;
interface
 function 
min(var n,m:integer):integer;
  function 
max(var n,m:integer):integer;

 
implementation
 
function min( var n,m:integer):integer;
  
begin
   
if n<m then min:=else min:=m;
  
end;

  function 
max(var n,m:integer):integer;
  
begin
   
if n>m then max:=else max:=m;
  
end;
end
Я помог =Нажми, НА ВЕСЫ.
Почему форум не поддерживает spoiler & spoiler2 ?
Если я вам помог, не будьте скупым R409586472993
mifomen вне форума Ответить с цитированием
Старый 23.04.2010, 15:54   #3
NewMen
Пользователь
 
Регистрация: 17.01.2010
Сообщений: 40
По умолчанию

Цитата:
Сообщение от mifomen Посмотреть сообщение
Остальное можешь сам до думать

PHP код:
unit MODULE;
interface
 function 
min(var n,m:integer):integer;
  function 
max(var n,m:integer):integer;

 
implementation
 
function min( var n,m:integer):integer;
  
begin
   
if n<m then min:=else min:=m;
  
end;

  function 
max(var n,m:integer):integer;
  
begin
   
if n>m then max:=else max:=m;
  
end;
end
будь любезен, пиши в тегах CODE
NewMen вне форума Ответить с цитированием
Старый 23.04.2010, 17:27   #4
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

mifomen, вы считаете что integer-это длинное целое?
глубоко заблуждаетесь, батенька
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Старый 23.04.2010, 17:36   #5
mifomen
Help, если смогу!
Пользователь
 
Регистрация: 14.09.2009
Сообщений: 55
По умолчанию

Цитата:
Сообщение от Филантроп Посмотреть сообщение
mifomen, вы считаете что integer-это длинное целое?
глубоко заблуждаетесь, батенька
Если число больше 32767 ( вроде так) то пусть longint ставит, моё дело идею подать, а дальше сами.
Я помог =Нажми, НА ВЕСЫ.
Почему форум не поддерживает spoiler & spoiler2 ?
Если я вам помог, не будьте скупым R409586472993
mifomen вне форума Ответить с цитированием
Старый 23.04.2010, 17:40   #6
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Цитата:
Если число больше 32767 ( вроде так) то пусть longint ставит, моё дело идею подать, а дальше сами.
Длинное целое - это число не влезающее не в один из численных типов паскаля, поэтому представляемое строкой=>
ваши функции в данном случае не катят
кому нужна помощь! жду в аське и скайпе!
Филантроп вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal. Модули. n0rma1 Помощь студентам 4 20.04.2010 15:10
Pascal, модули, наработки есть. auhb Помощь студентам 2 07.12.2009 23:43