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

turcia7 · 05.11.2012, 20:44

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

turcia7 · 05.11.2012, 21:06

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

Vladimir_S · 05.11.2012, 21:06

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

turcia7 · 05.11.2012, 21:10

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

Vladimir_S · 05.11.2012, 21:11

Цитата:

Сообщение от turcia7

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

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

Vladimir_S · 05.11.2012, 21:27

Получите:

Код:

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 · 05.11.2012, 21:32

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

turcia7 · 05.11.2012, 21:55

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

Vladimir_S · 05.11.2012, 22:12

Цитата:

Сообщение от turcia7

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

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

Цитата:

Сообщение от turcia7

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

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

Цитата:

Сообщение от turcia7

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

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

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

turcia7 · 05.11.2012, 22:19

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

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

05.11.2012, 20:44
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пожалуйста, не торопитесь решать все самостоятельно, просмотрите схожие проблемы Правильное написание метатега Написание bat и cmd

05.11.2012, 21:06	#2 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	кто-нибудь, помогите)

05.11.2012, 21:06	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Язык какой?! Pascal? Delphi?

05.11.2012, 21:10	#4 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а точн. =D приношу глубочайшие извинения) Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

05.11.2012, 21:32	#7 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное)

05.11.2012, 21:55	#8 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	если честно не понял как работает программа...а смысла в программе не вижу без понимания процесса) проще нет варианта?

05.11.2012, 22:19	#10 (permalink)
turcia7 Member Регистрация: 05.11.2012 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	супер) сейчас только разберусь что да как) спасибо еще раз)