05.11.2012, 20:44 | #1 (permalink) |
Member
Регистрация: 05.11.2012
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Написание программы для вычисления формулы
|
05.11.2012, 20:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, не торопитесь решать все самостоятельно, просмотрите схожие проблемы Правильное написание метатега Написание bat и cmd |
05.11.2012, 21:11 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
05.11.2012, 21:27 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Код:
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. |
05.11.2012, 22:12 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сейчас попытаюсь объяснить. На самом деле, там абсолютно ничего сложного нет.Согласен целиком и полностью.Проще - некуда.
Итак, в начале вводятся три функции: 1. Десятичный логарифм (Lg) - его среди стандартных функций Паскаля нет. 2. Сама формула для вычисления (Fi). 3. Вычисление a по b для заданного тестового значения последнего (Af). Далее идет само тело программы. В начале ставится запрос: считать ли результат для тестовых или для произвольных значений параметров a и b? Тестовым соответствует значение v=0, произвольным - v=1. Если выбраны тестовые значения, то параметру b присваивается величина 1.634, по формуле вычисляется a и оба параметра выводятся на экран. Если же выбраны произвольные значения a и b, то осуществляется их ввод с клавиатуры. Затем считается Fi и результат выводится на экран. Всё! |
05.11.2012, 22:19 | #10 (permalink) |
Member
Регистрация: 05.11.2012
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
супер) сейчас только разберусь что да как)
спасибо еще раз) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|