Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
romkaspb
1 / 1 / 0
Регистрация: 13.10.2010
Сообщений: 52
#1

Проверить корректность вычисления функции

31.10.2010, 23:52. Просмотров 1609. Ответов 26
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program lab11;
var
u,v,a,z,b:real;
begin
  writeln('Enter u,v');
  readln(u,v);
  writeln('Enter a,b');
  readln(a,b);
  if (u*v)<=0 then
  Z:=cos(abs(abs(sqr(a)-1+b)+abs(a-b+b))+abs(a-b+b))
  else
 Z:=cos(abs(abs(sqr(a)-1-b)+abs(a-b-b))+abs(a-b-b));
  writeln('Z = ',z:10:4);
  readln;
end.
Задача.
Вычислить Z:
Z=cos(f(f(sqr(a)-1,b),f(a-b,b))+f(sqr(a),sqr(b)+0,2));

f(u,v)=
|u+v|,u*v<=0;
|u-v|,U*v>0;

Где я облажался?

Добавлено через 18 минут
вверх

Добавлено через 28 минут
никто не знает?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2010, 23:52
Ответы с готовыми решениями:

Проверить программу на корректность
Можете проверить правильно ли работает программа?

Проверить корректность и конфликтность имен описания процедур в Паскале с помощью синтаксиса и семантики
как проверить корректность и конфликтность имен описания процедур в Паскале с...

Корректность функции
Мне нужно чтобы не в процедуре проверялся ввод данных а в функции, как это...

Проверить алгоритм вычисления суммы
Верен ли алгоритм? где ошибка? var x, s, y, z :real; n, k : integer; begin...

Процедуры и функции: составить алгоритм вычисления значения функции z = V*a*IbI
процедуры и функции (паскаль) ребята помогите плиз составить алгоритм...

26
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,516
01.11.2010, 13:35 #21
pavelr, И я неправильно? Правда, научи....
0
pavelr
Заблокирован
01.11.2010, 13:46 #22
Puporev,а где именно Ваш код?
0
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
01.11.2010, 13:47 #23
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
function F(u,v:real):real;
begin
if u*v<=0 then F:=abs(u+v)
else F:=abs(u-v);
end;
var a,b,z:real;
begin
clrscr;
writeln('Введите 2 числа:');
readln(a,b);
z:=F(F(a*a-1,b),F(a*a,b*b+0.2));
write('Z=',z:0:2);
readln
end.
Вот его программа.
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,516
01.11.2010, 13:47 #24
Вот этот.
Добавлено через 9 часов 59 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
function F(u,v:real):real;
begin
if u*v<=0 then F:=abs(u+v)
else F:=abs(u-v);
end;
var a,b,z:real;
begin
clrscr;
writeln('Введите 2 числа:');
readln(a,b);
z:=F(F(a*a-1,b),F(a*a,b*b+0.2));
write('Z=',z:0:2);
readln
end.
Вот, эту программу написал Puporev, она должна точно работать.
0
SunEclipse
01.11.2010, 13:51
  #25

Не по теме:

Puporev, а скажате пожалуйста, а что делает abs?

0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,516
01.11.2010, 15:06 #26
SunEclipse, Ну не срамись, загляни на первые 10 страниц любого учебника или в Хелп Паскаля.
abs(x) функция, возвращает модуль числа.
0
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
01.11.2010, 15:07 #27
Puporev, спасибо Постораюсь больше не срамиться.
0
01.11.2010, 15:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2010, 15:07

Составить программу вычисления функции с использованием подпрограммы-функции при х = 0, 45
R=7.5-\frac{{\ln x}^{3}}{2!}+\frac{{\ln x}^{5}}{4!}

Составить программу для вычисления значения функции y=ln(1+x) разложением функции в степенной ряд
вычислить с точностью E: y=ln(1+x)=x-x 2\2+x 3\3+.+(-1) (n-1)x n\n+ как это...

Составить программу для вычисления значения функции с помощью разложения функции в степенной ряд
Составить программу для вычисления значения функции y=e^-x с помощью разложения...


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

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

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