Программа алгоритма циклической структуры - Страница 2

AlexZir · 27.12.2009, 18:46

Ошибки исправил, но непонятно, почему вы в формуле использовали функцию арктангенс вместо арксинуса, как дано в задании?
Aрксинус - функция, вычисляемая при помощи формул приведения, то есть arcsin(x)=arctan(x)/sqrt(1-sqr(x)).

Код:

program oops;
var x,y,z,s:real;
begin
  write('x=');
  readln(x);
  y:=0.16;
  repeat
   z:=0.1;
   repeat
    s:=(y*sqr(x)+z)*(arctan(x)/sqrt(1-sqr(x)));
    writeln('s=',s:4:10); 
    if y<0.8 then z:=z+0.1 else z:=z+0.05;
   until z>0.55;
   y:=y+0.24;
  until y>1.84;
  readln;
end.

Ins1s · 27.12.2009, 18:50

ой.... чето я перерешал там арксин.. должен быть -) а я которую решил почему программа требовала ; b : перед ключевыми словами? спс-) за исправление.

AlexZir · 27.12.2009, 18:53

Подождите пока, не копируйте. Сейчас уточняю, как найти арксинус, в стандартном наборе функций языка Pascal этой функции нет.

Все, вариант исправлен и дополнен!

Ins1s · 27.12.2009, 19:01

плин ... спасибо тебе от всей души

а ты можешь обьяснить мне почему у меня прога требовала ; и : перед ключ. словами?

AlexZir · 27.12.2009, 19:07

Сравните свой листинг и мой - увидите, что у вас в нескольких местах синтаксические ошибки были! Компилятор о них и говорил.

Ins1s · 27.12.2009, 19:10

аа=) во оно че ..спс=) тебе большое

теперь буду знать.. а ту не первый раз у меня такое было

Ins1s · 27.12.2009, 19:21

тут еще с плавающей точкой .. нужно сделать

это s:2:10????

AlexZir · 27.12.2009, 19:35

форматированный текст:
<имя переменной>:<к-во знакомест для вывода целой части>:<к-во разрядов после запятой>

пример записи s:4:6 означает, что под вывод целой части будет отводиться не менее 4-х символов на экране (переполнение возможно) и будет выведено 6 значащих цифр после запятой, число вида _123.245367 (естественно, без подчеркивания впереди).

В вашем представлении s:2:10 будет выведено 10 цифр после запятой. Вообще формат обычно описывается в задании. Но вам вполне можно при выводе значения написать так, как в #17.

Ins1s · 27.12.2009, 19:37

аа.. ну я смысл понял

вот только .. я же не знаю какой ответ !

в каких значениях он будет .. например при х когда ввожу 12

а № 17 это как? и где посмотреть?

AlexZir · 27.12.2009, 19:42

Не переживайте! Лишние разряды все равно не выведутся, а пустые значения забьются 0

Уже внес коррективы в текст программы, тестируйте!

27.12.2009, 18:46	#11 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Ошибки исправил, но непонятно, почему вы в формуле использовали функцию арктангенс вместо арксинуса, как дано в задании? Aрксинус - функция, вычисляемая при помощи формул приведения, то есть arcsin(x)=arctan(x)/sqrt(1-sqr(x)). Код: program oops; var x,y,z,s:real; begin write('x='); readln(x); y:=0.16; repeat z:=0.1; repeat s:=(ysqr(x)+z)(arctan(x)/sqrt(1-sqr(x))); writeln('s=',s:4:10); if y<0.8 then z:=z+0.1 else z:=z+0.05; until z>0.55; y:=y+0.24; until y>1.84; readln; end. __________________ Убить всех человеков! Последний раз редактировалось AlexZir; 27.12.2009 в 18:58 Причина: Исправил формулу :)

27.12.2009, 18:53	#13 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Подождите пока, не копируйте. Сейчас уточняю, как найти арксинус, в стандартном наборе функций языка Pascal этой функции нет. Все, вариант исправлен и дополнен! __________________ Убить всех человеков!

27.12.2009, 19:07	#15 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Сравните свой листинг и мой - увидите, что у вас в нескольких местах синтаксические ошибки были! Компилятор о них и говорил. __________________ Убить всех человеков!

27.12.2009, 19:21	#17 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	тут еще с плавающей точкой .. нужно сделать это s:2:10???? Последний раз редактировалось Ins1s; 27.12.2009 в 19:25

27.12.2009, 19:35	#18 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	форматированный текст: <имя переменной>:<к-во знакомест для вывода целой части>:<к-во разрядов после запятой> пример записи s:4:6 означает, что под вывод целой части будет отводиться не менее 4-х символов на экране (переполнение возможно) и будет выведено 6 значащих цифр после запятой, число вида _123.245367 (естественно, без подчеркивания впереди). В вашем представлении s:2:10 будет выведено 10 цифр после запятой. Вообще формат обычно описывается в задании. Но вам вполне можно при выводе значения написать так, как в #17. __________________ Убить всех человеков!

27.12.2009, 18:46
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам обязательно помогут советом, а пока можете открыть в браузере схожие обсуждения Turbo Pascal. Программирование алгоритмов циклической структуры Динамические структуры данных Динамические структуры данных, Паскаль

27.12.2009, 18:50	#12 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ой.... чето я перерешал там арксин.. должен быть -) а я которую решил почему программа требовала ; b : перед ключевыми словами? спс-) за исправление.

27.12.2009, 19:01	#14 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	плин ... спасибо тебе от всей души а ты можешь обьяснить мне почему у меня прога требовала ; и : перед ключ. словами?

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

27.12.2009, 19:10	#16 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	аа=) во оно че ..спс=) тебе большое теперь буду знать.. а ту не первый раз у меня такое было

27.12.2009, 19:37	#19 (permalink)
Ins1s Member Регистрация: 14.12.2009 Сообщений: 53 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	аа.. ну я смысл понял вот только .. я же не знаю какой ответ ! в каких значениях он будет .. например при х когда ввожу 12 а № 17 это как? и где посмотреть? Последний раз редактировалось Ins1s; 27.12.2009 в 19:40

27.12.2009, 19:42	#20 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Не переживайте! Лишние разряды все равно не выведутся, а пустые значения забьются 0 Уже внес коррективы в текст программы, тестируйте! __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид