Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
2 / 2 / 0
Регистрация: 13.10.2010
Сообщений: 50

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

31.10.2010, 23:52. Показов 2923. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.10.2010, 23:52
Ответы с готовыми решениями:

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

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

Корректность функции
Мне нужно чтобы не в процедуре проверялся ввод данных а в функции, как это сделать ? procedure input(var a:real;var b:real; var c:real); ...

26
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.11.2010, 13:35
Студворк — интернет-сервис помощи студентам
pavelr, И я неправильно? Правда, научи....
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
01.11.2010, 13:46
Puporev,а где именно Ваш код?
0
 Аватар для SunEclipse
232 / 182 / 104
Регистрация: 19.03.2010
Сообщений: 949
01.11.2010, 13:47
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
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.11.2010, 13:47
Вот этот.
Добавлено через 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
01.11.2010, 13:51

Не по теме:

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

0
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.11.2010, 15:06
SunEclipse, Ну не срамись, загляни на первые 10 страниц любого учебника или в Хелп Паскаля.
abs(x) функция, возвращает модуль числа.
0
 Аватар для SunEclipse
232 / 182 / 104
Регистрация: 19.03.2010
Сообщений: 949
01.11.2010, 15:07
Puporev, спасибо Постораюсь больше не срамиться.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.11.2010, 15:07

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

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

Составить программу вычисления функции с использованием подпрограммы-функции при х = 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
Ответ Создать тему
Новые блоги и статьи
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru