Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Напишите программу работы с использованием разработанного собственного модуля для нахождения суммы, произведения и разности 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, 08:48   #2
ZX Spectrum-128
Профессионал
 
Регистрация: 05.11.2013
Адрес: Бетельгейзе
Сообщений: 1,602
Репутация: 366
По умолчанию

Модуль
Код:

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, 09:14   #3
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,648
Репутация: 2371

icq: 100500
skype: kick-ass
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


03:45.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru