Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
krexx
-8 / 0 / 0
Регистрация: 23.01.2011
Сообщений: 52
#1

Вычисление и вывод на экран значения функции F

25.12.2013, 07:55. Просмотров 626. Ответов 5
Метки нет (Все метки)

Доброе утро!
Написать программу вычисления и вывода на экран значения функции F по значениям одного или нескольких аргументов, величины которых вводятся с клавиатуры операторами ввода. Результат вывести на экран. Проверить программу по контрольным данным, заданным в варианте.
0
Миниатюры
Вычисление и вывод на экран значения функции F  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2013, 07:55
Ответы с готовыми решениями:

Вычисление значения функции с помощью разложения функции в степенной ряд
составить программу для вычисления значения функции y=1/(1+x) с помощью...

Вычисление значения функции
Помогите решить простые задачи мозги кипят: 1-я. составить программу...

Вычисление значения функции
Доброго времени суток всем! Дано задание: Составить программу вычисляющую...

Вычисление значения функции U
Уважаемые мастера, помогите решить задачу. U=\begin{cases}x^{\!^2}y &...

Вычисление значения функции
Написать программу вычисления значения функции,заданной условием аргумента(в...

5
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
25.12.2013, 09:00 #2
Ответ в случае 2 вообще рядом не лежал, а в случае 3, не сходится. Проверял в Экселе
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var a,b,f:real;
begin
write('a=');read(a);
write('b=');read(b);
if (abs(a)<1.5e-2)and(b<1) then f:=abs(1.5e-2*a+b)
else if (abs(a)<1.5e-2)and(b>=1) then f:=ln(b)-exp(1.5*exp(1)-2*a)
else f:=b*(a*arctan(a));
write('ÐåçóëüòГ*ГІ=',f:0:4)
end.
1
krexx
-8 / 0 / 0
Регистрация: 23.01.2011
Сообщений: 52
25.12.2013, 09:09  [ТС] #3
Спасибо, а не подскажите. Вот здесь условие аналогичное только вариант другой.
Когда ввожу значения (3.0 и 1.0) то результат сходится. А когда ввожу (2.1 и -1.2) или (10.2 и 20.1) фигня получается.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Lab_2;
VAR 
A,B,F,S,C:real;
BEGIN
   Writeln ('Значение аргументов A и B?');
   Readln (A,B);
   C:=1.5;
   S:=A-1.5;
   if (S<C) and (B>1) then
   F:=tan(A-1.5)-1.5/B
 else
   if (S<C) and (B<1) then
   F:=exp(B/(A-1.5))
 else
   F:=(sin(A-1.5))+1.5*B;
   Writeln ('Результат:',F:8:4);
   END.
0
Миниатюры
Вычисление и вывод на экран значения функции F  
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
25.12.2013, 09:11 #4
Видимо вообще лажа написана в примерах
0
krexx
-8 / 0 / 0
Регистрация: 23.01.2011
Сообщений: 52
25.12.2013, 09:20  [ТС] #5
Нашел к 1ой задаче решение. Возможно это поможет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program ZAD_2;
VAR A,B,F,S,C:real;
BEGIN
Writeln ('Znach arg A i B');
Readln (A,B);
C:=1.5*1e-2;
S:=abs(A);
if (S<C) and (B<1) then
F:=abs (C*A+B)
else 
if (S<C) and (B>=1) then
F:=ln(B)-exp (1.5e-2*A)
else 
F:=B/(A*arctan(A));
Writeln ('Результат:',F:8:4);
End.
0
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,797
25.12.2013, 09:22 #6
Цитата Сообщение от krexx Посмотреть сообщение
Возможно это поможет
Подставь да проверь. Тоже самое написано, только другими буквами.
0
25.12.2013, 09:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2013, 09:22

Вычисление значения функции
Здравствуйте дорогие форумчане. Новичок в этом деле(программирование). ...

Вычисление значения функции
Здравствуйте! Помогите составить программу вычисления значения функции, где...

Вычисление значения функции
Помогите пожалуйста решить эту задачку. Заранее благодарен. Вычислиь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru