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

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

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

Код:

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.

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

Цитата:

Сообщение от shrek=) (Сообщение 420294)

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

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

Код:

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.