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

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

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

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

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

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

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

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

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

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

5
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
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 / 3
Регистрация: 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
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
25.12.2013, 09:11 #4
Видимо вообще лажа написана в примерах
0
krexx
-8 / 0 / 3
Регистрация: 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
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
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
Привет! Вот еще темы с решениями:

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

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

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

Вычисление приближенного значения функции
Оказывается, что значения функции sin можно приблизительно вычислять по...


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

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

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