Меню сайта

Задача №1

Вычислить значение —cиспользованием функции.


Program func_1-

Uses crt-

Var n,x:real-

function fc(a:real):real-

var y:real-

begin

y:=sqrt(a)+a-

fc:=y-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fc(n)-

writeln(‘x=’,x:5:3)-

readln-

end.

Категория: Подпрограммы | Дата: 01.01.13

Меню раздела
Блок