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

@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

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

. пробуйте

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@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