Программирование с использованием функций и процедур программиста. Pascal.

[Sistemshik]

Программирование с использованием функций и процедур программиста. Pascal.

Составить программу вычисления значения выражения Z, используя способ программирования с обращением к функции или процедуры пользователя (определиться самостоятельно) .. Вид выражений Z, которые надо вычислить, и функций (процедур) пользователя по каждому варианту приведен в таблице. Формат переменных студент выбирает по своему усмотрению .. Выполнить две задачи. Варианты заданий выбирать таким образом:
Например тот, у кого первый вариант выполняет задачи варианта № 1 и № 30; у кого второй вариант - соответственно выполняет задачи варианта № 2 и № 29 и т.д.
А вот задание::tehnari_ru_837:

 

[shrek=)]

Я понял это вот так:

var
a,b,y,z,x:real;
function sd:real;
begin
y:=x*sqrt(1*sqr(x));
end;
begin
write ('a=');
readln (a);
write ('b=');
readln (b);
x:=a;
z:=(1+sd);
x:=b;
z:=ln(1+z)/sd;
writeln ('z=',z);
readkey
end.

Я думаю если что-то не правильно меня поправят.

 

[Vladimir_S]

Я думаю если что-то не правильно меня поправят.

Не, и ошибок много, и некрасиво: путано и сложно. Зачем? Так, по-моему, проще:

var
 a,b,Z:real;
function Y(t:real):real;
 begin
  Y:=t*sqrt(1+sqr(t));
 end;
begin
 write('a= ');
 readln(a);
 write('b= ');
 readln(b);
 Z:=ln(1+Y(a))/Y(b);
 writeln ('Z= ',Z);
 readln;
end.