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

[turcia7]

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

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

 

[turcia7]

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

 

[Vladimir_S]

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

 

[turcia7]

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

 

[Vladimir_S]

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

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

 

[Vladimir_S]

Получите:

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]

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

 

[turcia7]

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

 

[Vladimir_S]

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

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

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

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

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

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

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

 

[turcia7]

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