Составил программу на Паскале, но что то не так. Посмотрите, пожалуйста

Salavat · 15.11.2014, 17:01

program h;
//uses crt;
var x,y,a,b:real;
begin
write('a,b=');
readln(a,b);
x:=sqrt(2)/10;
if abs(sqr(a)-sqr(b))<10*x
then y:=power(a,x)-exp(x)+exp(3*ln(b))*cos(4*X-0.2)
else y:=sin(4.5*x)/cos(4.5*x)+x/sin(0.5*x);
write('y=',y:5:2);
end.
а=234.56 в=2123.78*10^-2

Vladimir_S · 15.11.2014, 18:44

Вряд ли мы сможем Вам помочь, пока Вы не скажете, что именно "не так".

Salavat · 15.11.2014, 19:27

Цитата:

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

Вряд ли мы сможем Вам помочь, пока Вы не скажете, что именно "не так".

Пишет что вводная строка имела не верный формат .я не знаю что делать.все перепробовал

Vladimir_S · 15.11.2014, 19:47

Цитата:

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

Пишет что вводная строка имела не верный формат .я не знаю что делать.все перепробовал

Я тоже не знаю: в моём нормальном Паскале ошибок нет. А что у Вас за Паскаль? Поди, АВС?

Salavat · 15.11.2014, 20:50

Цитата:

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

Я тоже не знаю: в моём нормальном Паскале ошибок нет. А что у Вас за Паскаль? Поди, АВС?

да ABC, программа запускается ,но когда ввожу а и в выходит ошибка :

Ошибка времени выполнения: Входная строка имела неверный формат.

Vladimir_S · 15.11.2014, 22:46

Увы, ничем помочь не могу: эту глючную мерзопакость (АВС) не держу.
Так, умозрительно, попробуйте вместо
write('a,b=');
readln(a,b);
записать
write('a,b= ');
readln(a,b);
т.е. после знака равенства поставить пробел.
Или так:
writeln('a,b=');
readln(a,b);
т.е. ввод перенести в отдельную строку.
Авось сожрет.
И кстати, как Вы числа вводите? Напишите точно. Надеюсь, при вводе Вы символ "^" не ставите?

AlexZir · 19.11.2014, 08:48

Что это у вас за функция POWER()?
Откуда вы взяли ваш листинг?

Vladimir_S · 19.11.2014, 09:31

Цитата:

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

Что это у вас за функция POWER()?

Лёш, в каких-то модификациях Паскаля, сколь мне известно, это самое возведение в степень добавлено. Возможно, и в АВС, точно не знаю. Я, поскольку пользуюсь DOS-Free, при тестировании заменил на Exp(x*Ln(a)).

AlexZir · 19.11.2014, 11:10

Эта функция из объектного паскаля, для Delphi. Имеет тип Extended. Может,именно это и вызывает ошибку.
И неизвестно, при каких a, b ошибка проявляется. Может, топикстартер оба нуля вводил, тогда ничего удивительного нет.

Попробуйте перед основной программой вставить эту функцию, по идее, после этого все должно заработать

Код:

Function Power(a1,b1:Real):Real;  
  begin  {Power}  
  if a1>0 then   Power:=exp(b1*ln(a1))  
  else if a1<0 then   Power:=exp(b1*ln(abs(a1)))  
  else if b1=0 then   Power:=1  
  else   Power:=0  
  end  {Power} ;

Vladimir_S · 19.11.2014, 11:42

Цитата:

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

Эта функция из объектного паскаля, для Delphi.

Черт ее знает, а народ в Сети пишет, что вроде и в АВС есть. Или надо модуль Math присобачить?
Ну да это и не важно - товарищ, похоже, не намерен больше у нас появляться.

15.11.2014, 17:01	#1 (permalink)
Salavat Новичок Регистрация: 09.11.2014 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Составил программу на Паскале, но что то не так. Посмотрите, пожалуйста program h; //uses crt; var x,y,a,b:real; begin write('a,b='); readln(a,b); x:=sqrt(2)/10; if abs(sqr(a)-sqr(b))<10x then y:=power(a,x)-exp(x)+exp(3ln(b))cos(4X-0.2) else y:=sin(4.5x)/cos(4.5x)+x/sin(0.5x); write('y=',y:5:2); end. а=234.56 в=2123.7810^-2

19.11.2014, 08:48	#7 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Что это у вас за функция POWER()? Откуда вы взяли ваш листинг? __________________ Убить всех человеков!

19.11.2014, 11:10	#9 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Эта функция из объектного паскаля, для Delphi. Имеет тип Extended. Может,именно это и вызывает ошибку. И неизвестно, при каких a, b ошибка проявляется. Может, топикстартер оба нуля вводил, тогда ничего удивительного нет. Попробуйте перед основной программой вставить эту функцию, по идее, после этого все должно заработать Код: Function Power(a1,b1:Real):Real; begin {Power} if a1>0 then Power:=exp(b1ln(a1)) else if a1<0 then Power:=exp(b1ln(abs(a1))) else if b1=0 then Power:=1 else Power:=0 end {Power} ; __________________ Убить всех человеков!

15.11.2014, 18:44	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Вряд ли мы сможем Вам помочь, пока Вы не скажете, что именно "не так".

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

15.11.2014, 22:46	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Увы, ничем помочь не могу: эту глючную мерзопакость (АВС) не держу. Так, умозрительно, попробуйте вместо write('a,b='); readln(a,b); записать write('a,b= '); readln(a,b); т.е. после знака равенства поставить пробел. Или так: writeln('a,b='); readln(a,b); т.е. ввод перенести в отдельную строку. Авось сожрет. И кстати, как Вы числа вводите? Напишите точно. Надеюсь, при вводе Вы символ "^" не ставите?