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

@F. Alonso · Регистрация: 06.04.2011

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

@Puporev · 23.03.2013, 12:07

Пример модуля

Pascal

unit arif;
interface
uses crt;
var a,b,c:real;
procedure summa;
procedure raznost;
procedure proizvedenie;
procedure delenie;
implementation
procedure summa;
begin
clrscr;
writeln('Введите 2 числа');
readln(a,b);
c:=a+b;
writeln('Сумма=',c:0:2);
readln
end;
procedure raznost;
begin
clrscr;
writeln('Введите 2 числа');
readln(a,b);
c:=a-b;
writeln('Разность=',c:0:2);
readln
end;
procedure proizvedenie;
begin
clrscr;
writeln('Введите 2 числа');
readln(a,b);
c:=a*b;
writeln('Произведение=',c:0:2);
readln
end;
procedure delenie;
begin
clrscr;
writeln('Введите 2 числа');
readln(a,b);
c:=a/b;
writeln('Результат деления=',c:0:2);
readln
end;
end.

Пример программы

Pascal

uses crt,arif;
var w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-сложение');
writeln('2-вычитание');
writeln('3-умножение');
writeln('4-деление');
writeln('другое-выход');
readln(w);
case w of
'1':summa;
'2':raznost;
'3':proizvedenie;
'4':delenie;
else exit;
end;
until not(w in ['1'..'4']);
end.

@F. Alonso 1 / 1 / 0 Регистрация: 06.04.2011 Сообщений: 117
		1
	Разработать модуль, реализующий основные математические операции (сложение, вычитание, умножение, деление) над двумя числами 23.03.2013, 11:42. Просмотров 3323. Ответов 1 Метки нет (Все метки) привет. очень нужна помощь с задачкой: Разработать модуль, реализующий основные математические операции (сложение, вычитание, умножение, деление) над двумя числами не поможете? 0

Опции темы

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

Решение