Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций

28.12.2009, 23:16. **Показов** 2611. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций и возвращающую её результат.Вид операции определяется целым параметром Ор:
1-вычитание, 2-умножение, 3-деление,остальные значения - сложение.С помощью Calc выполнить для данных А и В операции, определяемые данными целыми N1, N2, N3.

@VladimirKozloff · 28.12.2009, 23:42

Сообщение от Fric

Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций и возвращающую её результат.Вид операции определяется целым параметром Ор:
1-вычитание, 2-умножение, 3-деление,остальные значения - сложение.С помощью Calc выполнить для данных А и В операции, определяемые данными целыми N1, N2, N3.

Pascal

var N1,N2,N3,resul :real;
    oper:integer;
 
 
Function calc(A,B:real; op:integer): real;
begin
case op of 
1: calc:=a-b;
2: calc:=a*b;
3: calc:=a/b;
else calc:=a+b;
end;
end;
 
 
begin
writeln('Введите 2 числа (N1 и N2)');
read(n1,n2);
writeln('Выберете операцию: 1-вычитание, 2-умножение, 3-деление,остальные значения - сложение.');
readln(oper);
resul:=calc(n1,n2,oper);
writeln('Введите 3 числo (N3)');
readln(n3);
writeln('Выберете операцию: 1-вычитание, 2-умножение, 3-деление,остальные значения - сложение.');
readln(oper);
resul:=calc(resul,n3,oper);
writeln('результат = ',resul);
end.

Fric
		1
	Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций 28.12.2009, 23:16. Показов 2611. Ответов 1 Метки нет (Все метки) Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций и возвращающую её результат.Вид операции определяется целым параметром Ор: 1-вычитание, 2-умножение, 3-деление,остальные значения - сложение.С помощью Calc выполнить для данных А и В операции, определяемые данными целыми N1, N2, N3.

	28.12.2009, 23:42

Описать функцию Calc(А,В,Ор) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций

Решение