Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Orakyl
4 / 4 / 0
Регистрация: 20.10.2010
Сообщений: 22
#1

Какая ошибка в программе? - Turbo Pascal

20.10.2010, 21:31. Просмотров 391. Ответов 6
Метки нет (Все метки)

Не могу понять в чём ошибка, помогите выполнить программу

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program PRAKT1_1;
const a=1.5;
var x,y:integer;
begin
clrscr;
writeln('Vvedite zna4enie x');
readln(x);
if x<1.3 then y:=PI*SQR(x)-7/SQR(x);
if x=1.3 then y:=a*SQR(x)*x+7*SQRT(x);
if x>1.3 then y:=LG(x+7/SQRT(x));
writeln('y=',y:7:2);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2010, 21:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Какая ошибка в программе? (Turbo Pascal):

Ошибка в программе.Какая??? - Pascal
в общем написал я следующую программу:(В файле input.txt содержаться сведения о группе студентов в формате номер группы; запись о...

Ошибка в программе. - Pascal
А мне не поможите? Выдает ошибку, скрин не даю а дам код: var f:text; x,i:integer; y:string; BEGIN ...

Ошибка в программе - Turbo Pascal
Program one; uses crt; const n=5; Type Picture=Recod; author=:String; rik vydanna=:Word; cina=:Word; End;...

Ошибка в программе - Turbo Pascal
не могу понять что тут не так.. Не работает, объясните плыз program q1; const n=50; m=50; type mas=array of integer; var a:mas; ...

Ошибка в программе! - Pascal
Программа вычисляет таблицу значений функции F(x) c шагом A/4 (A=1), Xпервое=-A. Выдает ошибку: »*Ошибка: вещественное деление на 0...

Ошибка в программе. - Pascal
подскажите, что не так?

6
Puporev
Модератор
54019 / 41652 / 14730
Регистрация: 18.05.2008
Сообщений: 97,915
20.10.2010, 21:34 #2
Pascal
1
2
3
if x<1.3 then y:=PI*SQR(x)-7/SQR(x)
else if x=1.3 then y:=a*SQR(x)*x+7*SQRT(x)
else y:=ln(x+7/SQRT(x))/Ln(10);
1
кот Бегемот
Платежеспособный зверь
8444 / 3883 / 742
Регистрация: 28.10.2009
Сообщений: 10,057
20.10.2010, 21:36 #3
поменяй тип на real и логарифм пиши правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program PRAKT1_1;
const a=1.5;
var x,y:real;
begin
clrscr;
writeln('Vvedite zna4enie x');
readln(x);
if x<1.3 then y:=PI*SQR(x)-7/SQR(x);
if x=1.3 then y:=a*SQR(x)*x+7*SQRT(x);
if x>1.3 then y:=Ln(x+7/SQRT(x))/ln(10);
writeln('y=',y:7:2);
end.
1
Puporev
Модератор
54019 / 41652 / 14730
Регистрация: 18.05.2008
Сообщений: 97,915
20.10.2010, 21:37 #4
кот Бегемот, Может у него там десятичный логарифм....
1
кот Бегемот
Платежеспособный зверь
8444 / 3883 / 742
Регистрация: 28.10.2009
Сообщений: 10,057
20.10.2010, 21:38 #5
исправил, хотя вряд ли
1
denisneposeda
46 / 46 / 12
Регистрация: 18.10.2010
Сообщений: 212
21.10.2010, 03:21 #6
кот Бегемот, вродь бы он просто забыл подключить модуль uses crt.....или вы уже решили проблему?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
const a=1.5;
var x,y:real;
begin
clrscr;
write('Vvedite zna4enie x');
readln(x);
if x<1.3 then y:=PI*SQR(x)-7/SQR(x);
if x=1.3 then y:=a*SQR(x)*x+7*SQRT(x);
if x>1.3 then y:=ln(x+7/SQRT(x))/ln(10);
writeln('y=',y:7:2);
end.
1
Orakyl
4 / 4 / 0
Регистрация: 20.10.2010
Сообщений: 22
21.10.2010, 09:03  [ТС] #7
Спасибо, ошибку уже исправил.
1
21.10.2010, 09:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2010, 09:03
Привет! Вот еще темы с ответами:

Ошибка в программе - Pascal
program p106; const A=0; B=2; n=21; var i:real; xi,yi:real; begin i:=1; xi:=A; yi:=exp(xi*ln(2))*(ln(xi)/ln(10));

Ошибка в программе - Pascal
составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке с...

Ошибка в программе - Pascal
Здравствуйте, в данной задаче нужно было создать файл записей, который содержит количество информации о ПК:марку ПК, объем винчестера,...

Ошибка в программе - Turbo Pascal
Почему выводит ошибку в переменной Ima program symma; uses CRT; type mas = array of real; {программистский тип mas } ...


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

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

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