Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 04.09.2013, 17:19   #1 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить уравнение. Паскаль

iiiiaeoa.jpg
помогите пожалуйста
Bogdanghost вне форума   Ответить с цитированием

Старый 04.09.2013, 17:19
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ранее на форуме создавались темы, которые напоминают вашу

Решить дифференциальное уравнение
Помогите решить дифференциальное уравнение, никак не получается

Старый 04.09.2013, 17:25   #2 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

извините за некорректное название темы)больше не повторится
Bogdanghost вне форума   Ответить с цитированием
Старый 04.09.2013, 17:32   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Да название-то Бог с ним, хуже то, что никакого уравнения я тут вообще не вижу. Вижу некую функцию. И что с ней делать?
Vladimir_S вне форума   Ответить с цитированием
Старый 04.09.2013, 18:10   #4 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Program lab1;
Var F,x,e,arccos,arcsin: real;
Begin
Writeln('x');
Readln(x);
F:=sqrt(exp(ln(x)*4)-2*x)+arccos(2.5*exp(ln(e)*(-0.5)*sqr(x)));
Writeln('F',F:3:3);
end.
первый раз в паскале((
да,функция,извиняюсь
Bogdanghost вне форума   Ответить с цитированием
Старый 04.09.2013, 18:11   #5 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

пишет,что ошибка
Bogdanghost вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 04.09.2013, 19:13   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Bogdanghost Посмотреть сообщение
пишет,что ошибка
И не мудрено, тут не просто ошибка, а большой вагон ошибок.
1. От того, что Вы ввели переменную Arccos (и зачем-то Arcsin), программа не научится их считать. Арккосинус - это функция, отсутствующая среди стандартных функций Паскаля. А значит, её нужно ввести именно как функцию и грамотно описать.
2. По поводу распространённого в студенческих программах (извините) идиотизма по имени ln(e) я в своё время написал небольшое эссе. Очень рекомендую ознакомиться дабы впредь больше не позориться: Кое что о логарифмах и экспонентах
3. Почему-то из подкоренного выражения Вы волевым усилием выбросили слагаемое +3. Внимательнее!
4. Грамотное решение задачи требует предварительной проработки. Дело в том, что выражение, стоящее под знаком Arccos, не может принимать значения, превышающие 1, иначе возникнет ошибка. Решая соответствующее неравенство, находим допустимый диапазон аргумента:
x² ≥ -2*Ln(0.4)
или
x ≥ 1.354
Исходя из этого, ввод аргумента желательно зациклить. Цикл прервётся, когда будет введено допустимое значение х.
5. Формат вывода 3:3 никуда не годится. Ведь первое число в данной записи означает ПОЛНОЕ количество значащих цифр, включая разделитель (точку), а второе - количество знаков после точки (т.е. в дробной части). Поэтому первое должно быть по крайней мере на 2 единицы больше второго. Но можно (а в данном случае - целесообразно) первым числом поставить ноль, тогда это означает, что мы фиксируем лишь число значащих цифр в дробной части, а уж в целой - сколько есть, столько и будет выведено.
6. Ну и парочка мелочей. Четвертая степень - это квадрат квадрата, и лучше так ее и вводить. В конце программы желательно поставить Readln; без аргументов - тогда выполнение прервется и можно будет рассмотреть результат.

Итого:
Код:
Var F,x: real;

Function ArcCos(z:Real):Real;
begin
 if Round(z*10000000)=10000000 then ArcCos:=0 else
 if Round(z*10000000)=-10000000 then ArcCos:=Pi else
    ArcCos:=(Pi/2)-ArcTan(z/Sqrt(1-z*z));
end;


Begin
 Repeat
  Write('x= ' );
  Readln(x);
  If x<Sqrt(-2.0*Ln(0.4)) then
   Writeln('Error! X must be >1.354!!!');
 Until x>=Sqrt(-2.0*Ln(0.4));
 F:=Sqrt(Sqr(Sqr(x))-2*x+3)+ArcCos(2.5*Exp(-0.5*Sqr(x)));
 Writeln('F= ',F:0:3);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 04.09.2013, 20:34   #7 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Буду разбираться,спасибо огромное.
Можете посоветовать литературу для изучения языка программирования PASCAL?
Такая беда лекция не было , а лабораторные задали
Bogdanghost вне форума   Ответить с цитированием
Старый 04.09.2013, 20:54   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Bogdanghost Посмотреть сообщение
Буду разбираться,спасибо огромное.
Успехов!
Цитата:
Сообщение от Bogdanghost Посмотреть сообщение
Можете посоветовать литературу для изучения языка программирования PASCAL?
Вы знаете - литературы такое море, что Вы без труда сами подберёте по своему вкусу. И в Сети, и в магазинах.
Цитата:
Сообщение от Bogdanghost Посмотреть сообщение
Такая беда лекция не было , а лабораторные задали
Ничего страшного. Меня вообще никто этому не учил. Тут главное - практика, практика и еще раз практика. Сами ставьте себе задачки, пишите программы, отлаживайте - и всё получится.
Vladimir_S вне форума   Ответить с цитированием
Старый 06.09.2013, 07:51   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Справочники, мануалы и прочая литература по теме форума

Очень рекомендую вам ознакомиться с книгой "Песни о Паскале", она ориентирована как раз на начинающих.
AlexZir вне форума   Ответить с цитированием
Старый 10.09.2013, 22:30   #10 (permalink)
Bogdanghost
Новичок
 
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а вот можете объяснить что значат эти строчки
if Round(z*10000000)=10000000 then ArcCos:=0 else if Round(z*10000000)=-10000000 then ArcCos:=Pi else
Bogdanghost вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:20.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.