|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
22.05.2012, 11:40 | #1 (permalink) |
Новичок
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужен листинг программы и блок-схема
|
22.05.2012, 11:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Полезные советы по решению проблемы можно найти в аналогичных обсуждениях Нужен русификатор для тех программы Нужен совет по доработке программы в Паскаль Блок-схема в Qbasic Блок - схема |
22.05.2012, 12:00 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
О, святая простота! Прям умиляет убежденность некоторых, что все поголовно имеют аккаунты у Паши Дурня. Я вот, например, не имею. И вообще Вам сюда: Как вставить картинки в свой пост.
|
22.05.2012, 13:08 | #5 (permalink) |
votum separatum
Регистрация: 05.05.2008
Сообщений: 14,603
Записей в дневнике: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 18619
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
23.05.2012, 10:41 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Касательно первой задачи. Шаг разбиения я, уж извините, но сделал вдвое меньшим - 0.1 это слишком грубо. Кроме того, в методе Симпсона есть одна тонкость: чтобы он успешно работал, нужно, чтобы число промежутков, т.е. величина (b-a)/h, была ЧЕТНОЙ (здесь a и b - пределы интегрирования, h - шаг). А по условию выходит (1.5-1.0)/0.1=5. Поэтому шаг взят 0.05. Метод трапеций - в качестве бонуса.
Код:
Const a=1.0; b=1.5; h=0.05; Function F(x:Real):Real; begin F:=Sin(x)*Ln(Sin(x)/Cos(x)); end; Function Antiderivative(x:Real):Real; begin Antiderivative:=Ln(Sin(x/2)/Cos(x/2))-Cos(x)*Ln(Sin(x)/Cos(x)); end; Procedure Rectangle; var i,N:Integer; Sum:Real; begin N:=Round((b-a)/h); Sum:=0; for i:=0 to N-1 do Sum:=Sum+h*F(a+h*i); WriteLn('Rectangle: ', Sum:10:5); end; Procedure Trapezium; var i,N:Integer; Sum:Real; begin N:=Round((b-a)/h); Sum:=(F(a)+F(b))/2*h; for i:=1 to N-1 do Sum:=Sum+h*F(a+h*i); WriteLn('Trapezium: ', Sum:10:5); end; Procedure Simpson; var i,N:Integer; Sum:Real; begin N:=Round((b-a)/(2*h)); Sum:=(F(a)+F(b))/3*h; for i:=1 to N do Sum:=Sum+4.0*h/3.0*F(a+h*(2*i-1)); for i:=2 to N do Sum:=Sum+2.0*h/3.0*F(a+h*(2*i-2)); WriteLn('Simpson: ', Sum:10:5); end; BEGIN Rectangle; Trapezium; Simpson; WriteLn('Accurate value:', (Antiderivative(b)-Antiderivative(a)):10:5); ReadLn; END. |
23.05.2012, 22:24 | #8 (permalink) |
Новичок
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из отсортированного файла сформировать файл записей выходного документа
Из отсортированного файла сформировать файл записей выходного документа, содержащий список женщин до 50 лет, имеющих детей. Распечатать данные из файла в виде таблицы:
Фио-------дата рождения----------количество детей |
31.05.2012, 17:38 | #10 (permalink) |
Новичок
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужно сделать три задания
нужно сделать 3 задание
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|