С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Orakyl
4 / 4 / 0
Регистрация: 20.10.2010
Сообщений: 22
1

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

20.10.2010, 21:31. Просмотров 404. Ответов 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
Ответы с готовыми решениями:

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

Полином Ньютона, какая в программе используется формула?
Интерполяционный многочлен Ньютона. Друзья, подскажите какая тут используется...

Ошибка в программе
Не могу понять где ошибка, вроде все правильно. uses crt; const gg = #64;...

Ошибка в программе
program zadacha2_2; uses crt; Var m,n:integer; function...

Ошибка в программе
program p106; const A=0; B=2; n=21; var i:real; xi,yi:real; begin i:=1;...

6
Puporev
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
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
кот Бегемот
Платежеспособный зверь
8503 / 3941 / 1536
Регистрация: 28.10.2009
Сообщений: 10,234
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
Модератор
55507 / 42596 / 29444
Регистрация: 18.05.2008
Сообщений: 100,763
20.10.2010, 21:37 4
кот Бегемот, Может у него там десятичный логарифм....
1
кот Бегемот
Платежеспособный зверь
8503 / 3941 / 1536
Регистрация: 28.10.2009
Сообщений: 10,234
20.10.2010, 21:38 5
исправил, хотя вряд ли
1
denisneposeda
46 / 46 / 36
Регистрация: 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

Ошибка в программе!
Программа вычисляет таблицу значений функции F(x) c шагом A/4 (A=1),...

Ошибка в программе!!!
Здравствуйте, пожалуйста кто в массивах разбирается помогите исправить ошибку в...

Ошибка в программе
Добрый день. Поставлена задача: создать файл целых чисел; определить суммы...


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

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

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