Исправьте ошибку!

@Student72 · Регистрация: 16.03.2009

Студворк — интернет-сервис помощи студентам

Всем привет , посмотрите что не так, 207 ошибку выдает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Zadanie;
Var w,y,x,b,a:real;
Begin;
Writeln('BBDuTe a');
Readln(a);
Writeln('BBeDuTe b');
Readln(b);
writeln('BBeDuTe x');
Readln(x);
w:=(sqrt(x*x+b))-(b*b*exp(3+ln(sin(x+a))))/x;
y:=sqr(x*x*x)-(x/(sqrt(a*a+b*b)));
Writeln('w=', w:10:5);
Readln(w);
Writeln('y=', w:10:5);
Readln(y);
end.

и еще помогите, нужно имитировать работу микрокалькулятора для арифметических операций: сложения (+), вычитания (-), умножения (*), деления (/).
=)

@unick12345 · 22.09.2009, 14:07

Сообщение от Student72

Readln(w);

что значит данное? сначала выводишь и потом пытаешь считать?

Добавлено через 39 секунд
и тоже самое тут

Сообщение от Student72

Readln(y);

Добавлено через 1 минуту
я так понимаю что ты хочешь посмотреть результат тогда вместо этого набери readln без скобок

@delphi · 22.09.2009, 14:08

Begin;

Это зачем?

@Давид · 22.09.2009, 14:12

У него не в этом дела...
Неправильная запись этого выражения

Pascal
1
w:=(sqrt(x*x+b))-(b*b*exp(3+ln(sin(x+a))))/x;

Можно ваше задание взглянуть...!
Я исправил программу...и разбил её на части...ошибка таже!

@delphi · 22.09.2009, 14:13

207 Invalid floating point operation (Неправильная операция над числами с плавающей точкой)
Генерируется, если вы попытались получить квадратный корень или логарифм отрицательного числа.

@Давид · 22.09.2009, 14:14

Вот и я о том же!
Вышлите задание ваше...все исправим!

@unick12345 · 22.09.2009, 14:15

да. заметил и я что ошибка в этих расчетах. и только если вводимые числа дробные. для целых все нормально

@Puporev · 22.09.2009, 14:16

В этой строке

Сообщение от Student72

w:=(sqrt(x*x+b))-(b*b*exp(3+ln(sin(x+a))))/x;

Нужно предусмотреть что должна делать функция exp() при sin(x+a)<=0, это и выдает ошибку 207, невозможно определить логарифм для не положительных чисел. Ну и само собой, как уже сказали, замените readln-ы в стр. 13 и 15 на writeln, а перед последним end. напишите просто readln

@Давид · 22.09.2009, 14:17

И для целых невсегда работает...Введите а=2 б=2 х=2

@delphi · 22.09.2009, 14:20

честно скажите, зачем на строке 13 и 15 readln? да и Writeln тоже не нужен. w и y выводится в строке 12 и 14.

@unick12345 · 22.09.2009, 14:20

ln(sin(x+a)) для дробных чисел выдает ошибку

@delphi · 22.09.2009, 14:21

Дайте почитать ваше задание.
Без этого можно только синтаксис смотреть

@Student72 · 22.09.2009, 14:52 **[ТС]**

Ух как быстро ответили, я и не ожидал, сейчас напишу )

Добавлено через 23 минуты
Создать программу на языке паскаль для вычисление на ЭВМ значений выражений для вводимых с клавиатуры исходных данных. Вывести на экран значения исходных данных и результатов вычислений , споровождая вывод именами переменных и комментариями.
а=1.5 и b=15.5 x=-2.9

@delphi · 22.09.2009, 14:59

По мне тогда так нужно

Pascal
1
w:=(sqrt(x*x+b))-(b*b*(3+(sin(x+a))))/x;

@Давид · 22.09.2009, 14:59

Проверяйте пожалуйста!!!!Незабудьте всем сказать спасибо кто участвовал!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Zadanie;
Uses crt;
Var w,y,x,b,a:real;
Begin
Clrscr;
Writeln('BBDuTe a');
Readln(a);
Writeln('BBeDuTe b');
Readln(b);
writeln('BBeDuTe x');
Readln(x);
w:=(sqrt(sqr(x)+b))-sqr(b)*sqr(sin(x+a))*sin(x+a)/x;
y:=(sqr(cos(x*x*x))-x)/(sqrt(sqr(a)+sqr(b)));
Writeln('w=', w:10:5);
Writeln('y=', w:10:5);
Readln
end.

Сверьте сходяться ли ответы...просчитайте на калькуляторе...!

@delphi · 22.09.2009, 15:01

а скореей всего так

Pascal
1
w:=(sqrt(x*x+b))-(b*b*(sin(x+a)*3))/x;

@unick12345 · 22.09.2009, 15:08

а мож и так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Zadanie;
Var w,y,x,b,a:real;
Begin;
Write('BBDuTe a ');
Readln(a);
Write('BBeDuTe b ');
Readln(b);
write('BBeDuTe x ');
Readln(x);
w:= (sqrt(x*x+b))-(b*b*exp(3+sin(x+a)))/x;
y:=sqr(cos(exp(x+3)))-(x/(sqrt(a*a+b*b)));
Writeln('w=', w:10:5);
Readln;
Writeln('y=', w:10:5);
Readln;
end.

@delphi · 22.09.2009, 15:11

Сообщение от unick12345

w:= (sqrt(x*x+b))-(b*b*exp(3+sin(x+a)))/x;

А почему 3+sin(x+a)? Не проверял но думаю, что вариант не правильный...

Вот это более правильный

@Давид · 22.09.2009, 15:14

А почему 3+sin(x+a)? Не проверял но думаю, что вариант не правильный...

Это изночально потомучто ваш вариант был...и он действительно не верен...нам не 3sin дается....а синус третьей степени!

@unick12345 · 22.09.2009, 15:15

мож перепутал местами

. пробуйте

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@delphi 21 / 21 / 2 Регистрация: 29.06.2009 Сообщений: 283
	22.09.2009, 14:13
	207 Invalid floating point operation (Неправильная операция над числами с плавающей точкой) Генерируется, если вы попытались получить квадратный корень или логарифм отрицательного числа. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	22.09.2009, 14:14
	Вот и я о том же! Вышлите задание ваше...все исправим! 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	22.09.2009, 14:15
	да. заметил и я что ошибка в этих расчетах. и только если вводимые числа дробные. для целых все нормально 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	22.09.2009, 14:17
	И для целых невсегда работает...Введите а=2 б=2 х=2 0

@delphi 21 / 21 / 2 Регистрация: 29.06.2009 Сообщений: 283
	22.09.2009, 14:20
	честно скажите, зачем на строке 13 и 15 readln? да и Writeln тоже не нужен. w и y выводится в строке 12 и 14. 0

@delphi 21 / 21 / 2 Регистрация: 29.06.2009 Сообщений: 283
	22.09.2009, 14:21
	Дайте почитать ваше задание. Без этого можно только синтаксис смотреть 0

@Student72 0 / 0 / 0 Регистрация: 16.03.2009 Сообщений: 25
	22.09.2009, 14:52 [ТС]
	Ух как быстро ответили, я и не ожидал, сейчас напишу ) Добавлено через 23 минуты Создать программу на языке паскаль для вычисление на ЭВМ значений выражений для вводимых с клавиатуры исходных данных. Вывести на экран значения исходных данных и результатов вычислений , споровождая вывод именами переменных и комментариями. а=1.5 и b=15.5 x=-2.9 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	22.09.2009, 15:15
	мож перепутал местами . пробуйте 0