Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
23 / 23 / 12
Регистрация: 27.12.2011
Сообщений: 855
1

Использование модуля для выяснения возможностей

08.01.2012, 21:39. Показов 1243. Ответов 1
Метки нет (Все метки)

Доброго времени суток.
Помогите пожалуйста решить задачку:
Напишите программу, использующую модуль, в котором описаны 2 функции: первая выясняет, делится ли введенное число на 7 без остатка, вторая находит произведение цифр числа.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Использование возможностей модуля Crt
Написать программу, используя всего два цикла: в одном цикле звездочки бегут сразу по верхней и...

Использование возможностей модуля Crt. (Задание6.8)
Используя возможности модуля Crt, напишите программу, в которой символ "звездочка" пробегает по...

Использование модуля для писка min and max
Доброго времени суток. Помогите пожалуйста решить задачку: Напишите программу, использующую...

Использование модуля GRAPH

1
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
08.01.2012, 22:19 2
Лучший ответ Сообщение было отмечено SuLLeN как решение

Решение

Модуль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 unit modul;
 
 interface
 function Crat(a:integer):boolean;
 function P(a:integer):integer;
 
 implementation
 function Crat(a:integer):boolean;
   begin
   Crat:=false;
   If a mod 7 = 0 then Crat:=true;
   end;
 function P(a:integer):integer;
 var s,n:integer;
   begin
   s:=1;
   while a>0 do
     begin
     n:=a mod 10;
     a:=a div 10;
     s:=n*s;
     end;
   P:=s;
   end;
 end.
Основная программа:
Pascal
1
2
3
4
5
6
7
8
9
 uses crt,modul;
 
 var a:integer;
 
 begin
    Write('Введите число: ');readln(a);
    If crat(a) then writeln('Кратно') else writeln('Не кратно');
    Writeln('Произведение цифр = ',P(a));
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2012, 22:19

Использование модуля в основной программе.
Разработать модуль, который вычитает один одномерный массив из другого и записывает его в 3-й.

Использование возможностей модуля CRT
Используя возможности модуля CRT для работы с экраном в текстовом режиме, написать программу,...

Использование гослото 7 из 49 для выбора 1 из N равновероятных возможностей
Необходимо использовать результат одного тиража лотереи "Гослото 7 из 49" в качестве датчика...

Использование возможностей WPF в PowerShell
хочу выполнить вот такую команду для дальнейшего использования возможностей WPF в powershell...


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

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

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