Технический форум - Написание программы для вычисления формулы

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

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

Написание программы для вычисления формулы

помогите пожалуйста) все забыл уже. задача в файле

кто-нибудь, помогите)

Язык какой?! Pascal? Delphi?

а точн. =D приношу глубочайшие извинения) Pascal

Цитата:

Сообщение от turcia7 (Сообщение 815432)

а точн. =D приношу глубочайшие извинения) Pascal

Ладно, сейчас нарисую.

Получите:

Код:

Var

 a,b:real;

 v:byte;



Function Lg(z:real):real;

begin

 Lg:=Ln(z)/Ln(10);

end;



Function Fi(x,y:real):real;

begin

 Fi:=(Cos(x)+Sin(y))/(x*Lg(x*y));

end;



Function Af(r:real):real;

begin

 Af:=0.87*Sqr(Sin(r*r*r));

end;



Begin

 Write('Input parameters: test values - 0, other - 1  ');

 Readln(v);

 If v=0 then

  begin

   b:=1.634;

   a:=Af(b);

   Writeln('a= ',a:0:5);

   Writeln('b= ',b:0:5);

  end

 else

  begin

   Write('a= ');

   Readln(a);

   Write('b= ');

   Readln(b);

  end;

 Writeln('Fi= ',Fi(a,b):0:5);

 Readln;

End.

спасибо огромное)

если честно не понял как работает программа...а смысла в программе не вижу без понимания процесса) проще нет варианта?

Цитата:

Сообщение от turcia7 (Сообщение 815452)

если честно не понял как работает программа...

Сейчас попытаюсь объяснить. На самом деле, там абсолютно ничего сложного нет.

Цитата:

Сообщение от turcia7 (Сообщение 815452)

а смысла в программе не вижу без понимания процесса)

Согласен целиком и полностью.

Цитата:

Сообщение от turcia7 (Сообщение 815452)

проще нет варианта?

Проще - некуда.

Итак, в начале вводятся три функции:
1. Десятичный логарифм (Lg) - его среди стандартных функций Паскаля нет.
2. Сама формула для вычисления (Fi).
3. Вычисление a по b для заданного тестового значения последнего (Af).
Далее идет само тело программы. В начале ставится запрос: считать ли результат для тестовых или для произвольных значений параметров a и b? Тестовым соответствует значение v=0, произвольным - v=1. Если выбраны тестовые значения, то параметру b присваивается величина 1.634, по формуле вычисляется a и оба параметра выводятся на экран. Если же выбраны произвольные значения a и b, то осуществляется их ввод с клавиатуры. Затем считается Fi и результат выводится на экран. Всё!

супер) сейчас только разберусь что да как)
спасибо еще раз)