Вычислить Х
Вычислить х
_
|a*b+1, eсли a>b (в виде procedure)
x=< 25, если a=b;
|(a-5)/b если a<b (в виде function)
_
Решение:
Program x1;
var a,b,x:real;
procedure two(n,z:real; var r:real);
r:=n*z+1;
end;
function three(y,f:real):real;
begin
three:=(y-5)/f;
end;
BEGIN
writeln('Ввести значения');
readln(a,b);
if (a>b) then two(a,b,x);
if (a=b) then x:=25;
if (a<b) then x:=three(a,b);
writeln('x=',x);
readln;
END.
|
| Категория: С подпрограммой | Добавил: deespe (29.01.2011)
|
| Просмотров: 861
| Рейтинг: 0.0/0 |
|
