Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
16 / 16 / 0
Регистрация: 05.11.2012
Сообщений: 40
1

Реализовать в виде модуля набор подпрограмм для заданного целого числа

18.01.2013, 00:00. Просмотров 1468. Ответов 1
Метки нет (Все метки)

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций для заданного целого числа.
2) определить, является ли число положительным;
3) определить, является ли число отрицательным;
4) определить, является ли число четным;
5) определить, является ли число нечетным;
6) определить, является ли число двузначным.

Используя этот модуль, решить следующие задачи:
1. Даны два целых числа. Определить совпадают ли знаки у этих чисел.
2. Из трех данных целых чисел найти четные и нечетные.
3. Дан массив из 10 целых чисел. Определить количество

Реализовывать модуль не надо, просто напишите пожалуйста как должно выглядеть в паскале
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2013, 00:00
Ответы с готовыми решениями:

Реализовать в виде модуля набор подпрограмм для работы с графом
Определим граф как набор точек, некоторые из которых единены отрезками, подграф — как граф,...

Реализовать в виде модуля набор подпрограмм для работы с комплексными числами
Реализовать в виде модуля набор подпрограмм для выполне¬ния следующих операций над комплексными...

Реализовать в виде модуля набор подпрограмм для выполнения операции над векторами
Реализовать в виде модуля набор подпрограмм для выполнения следующих операции над векторами:...

Реализовать в виде модуля набор подпрограмм для выполнения операций над векторами
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над векторами:...

1
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
18.01.2013, 10:50 2
Лучший ответ Сообщение было отмечено cccc как решение

Решение

модуль. файл Supermod.pas :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
unit SuperMod;
interface
  function Polovit(a:integer):boolean;
  function Chetnoe(a:integer):boolean;
  { ... }
implementation
  function Polovit(a:integer):boolean;
  begin Polovit:=a>0; end;
  function Chetnoe(a:integer):boolean;
  begin Chetnoe:= not odd(a); end;
begin
end.
использование его:
Pascal
1
2
3
4
5
6
7
8
9
uses superMod;
var a,b,c : integer;
begin
  write('input a,b,c : '); readln(a,b,c);
  if Polovit(a*b) then write('sovpadajt') else write(' ne sovpad');
  writeln;
  if Chetnoe(a) then write(a,' - chetnoe') else write(a,' - ne chetnoe');
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2013, 10:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Реализовать в виде модуля набор подпрограмм для выполнения операций над дробями
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными...

Реализовать в виде модуля набор подпрограмм для выполнения операций над обыкновенными дробями
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными...

Реализовать в виде модуля набор подпрограмм для выполнения операций над комплексными числами
Пожалуйста помогите решить (надеюсь не сложную для вас) задачу про модуль. Реализовать в виде...

Реализовать в виде модуля набор подпрограмм для выполнения операций над числами в шестнадцатеричной системе счисления
Помогите плиз... Реализовать в виде модуля набор подпрограмм для выполнения следующих операций...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.