0 / 0 / 0
Регистрация: 16.03.2009
Сообщений: 25
1

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

14.03.2010, 10:01. Показов 776. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
Program Z;
Var z1, z2, x:real;
Begin
Writeln('BBeDuTE x');
Readln(x);
z1:=(x*x+2*x-3+(x+1)*sqrt(x*x)-9)/(x*x-2*x-3+(x-1)*sqrt(x*x-9));
z2:=sqrt((x+3)/(x-3));
Writeln('z1=',z1:4:2);
Writeln('z2=',z2:4:2);
End.
Программа не считает
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2010, 10:01
Ответы с готовыми решениями:

исправьте ошибку
исправьте ошибку - не может найти указанный путь. И вообще эта программа считается базой данных? ...

Исправьте ошибку
program notebook; USES CRT; type NOTE = record fam:string; im:string; telefon:string;...

исправьте ошибку
program dvoichnyi; uses crt; var i:integer; a:array of integer; b:array of string; s,d:string;...

Исправьте ошибку!
Всем привет , посмотрите что не так, 207 ошибку выдает. Program Zadanie; Var w,y,x,b,a:real;...

3
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.03.2010, 10:22 2
Программа не считает
Это она сама Вам так сказала?
Тогда попробуйте втюхать ей readln перед end.
1
0 / 0 / 0
Регистрация: 16.03.2009
Сообщений: 25
14.03.2010, 14:27  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Z;
Var z1, z2, x:real;
Begin
Writeln('BBeDuTE x');
Readln(x);
z1:=(x*x+2*x-3+(x+1)*sqrt(x*x)-9)/(x*x-2*x-3+(x-1)*sqrt(x*x-9));
z2:=sqrt((x+3)/(x-3));
Writeln('z1=',z1:4:2);
Writeln('z2=',z2:4:2);
Readln;
End.
Все равно ошибка 207 выскакивает.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.03.2010, 14:30 4
Значит где-то под корнем отрицательное число. Нужно найти область определения для функции, и если х не попадает в нее, исключить это. Арифметику учите.
0
14.03.2010, 14:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2010, 14:30
Помогаю со студенческими работами здесь

исправьте ошибку
Если в матрице А нет элементов модуль которых отличается от заданной величины Р менее, чем на...

Исправьте ошибку пожалуйста!
Unit Perevod; INTERFACE function per10_2(x:longint):string; function...

Исправьте ошибку,за ранее спасибо!
Дано действительное число х, натуральное число n. Вычислить: пример...

Побочная диагональ и нули. Исправьте ошибку.
Не могу понять почему не работает прога. Условие: должна читать из тескстового файла массив, лепить...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru