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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2018, 02:24   #1
UnrealOui
Новичок
Джуниор
 
Регистрация: 29.01.2018
Сообщений: 2
По умолчанию С использованием разработанного собственного модуля

Напишите программу работы с использованием разработанного собственного модуля для нахождения суммы, произведения и разности 2х чисел. Я не знаю как разработать свой модуль для этой программы!
Есть что-то но как я понял по условию нужно свой модуль разработать, а я не знаю как!

Код:
Program program;
uses crt;
var
a,b,d,e,f,g:real;
c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
writeln('1-сложение, 2-вычитание,3-умножение, 4-деление');
readln(c);
if c=1 then
begin
d:=a+b;
 
end;
if c=2 then
begin
d:=a-b;
 
end;
if c=3 then
begin
d:=a*b;
 
end;
if c=4 then
begin
d:=a/b;
 
end;
writeln(d);
end.
UnrealOui вне форума Ответить с цитированием
Старый 30.01.2018, 07:48   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Модуль
Код:
unit MyUnit;

interface

function addition(a, b: real): real;
function subtraction(a, b: real): real;
function multiplication(a, b: real): real;
function division(a, b: real): real;

implementation  

function addition(a, b: real): real;
begin
  addition := a + b;
end;

function subtraction(a, b: real): real;
begin
  subtraction := a - b;
end;

function multiplication(a, b: real): real;
begin
  multiplication := a * b;
end;

function division(a, b: real): real;
begin
  if b <> 0 then
    division := a / b
  else
    writeln('Ошибка! Деление на 0!')
end;

begin
end.
программа

Код:
uses myunit;

var
  a, b, d: real;
  c: integer;

begin
  writeln('Введите 2 числа');
  readln(a, b);
  writeln('1-сложение, 2-вычитание,3-умножение, 4-деление');
  readln(c);
  case c of
    1: d := addition(a, b);
    2: d := subtraction(a, b);
    3: d := multiplication(a, b);
    4: d := division(a, b)
  else
    writeln('Некорректная операция!');
  end;
  writeln('Результат: ', d);
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 30.01.2018, 08:14   #3
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
не знаю как разработать свой модуль для этой программы
Перевод на русский язык: "Я не хочу читать книжку и изучать матчасть. Есть обезьяны на форуме, которые для меня всё напишут, пока я буду пить пиво.".
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирования с использованием модуля GRAPH.TPU lolwto Паскаль, Turbo Pascal, PascalABC.NET 1 05.12.2012 15:50
Программирования с использованием модуля GRAPH.TPU lolwto Помощь студентам 1 03.12.2012 18:19
Работа с использованием модуля Graph Anny_Apple Паскаль, Turbo Pascal, PascalABC.NET 3 22.03.2011 21:28
комплексные числа с использованием модуля CaN9^^ Помощь студентам 0 13.03.2011 11:11
Подключения собственного модуля Ольг Помощь студентам 7 27.07.2009 20:52