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


Ответ
 
Опции темы Опции просмотра
Старый 22.05.2012, 11:40   #1 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужен листинг программы и блок-схема

Помогите решить, очень нужно.
Смотрите тут :Prosto Grey
prostogrey вне форума   Ответить с цитированием

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

Полезные советы по решению проблемы можно найти в аналогичных обсуждениях

Нужен русификатор для тех программы
Нужен совет по доработке программы в Паскаль
Блок-схема в Qbasic
Блок - схема

Старый 22.05.2012, 12:00   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

О, святая простота! Прям умиляет убежденность некоторых, что все поголовно имеют аккаунты у Паши Дурня. Я вот, например, не имею. И вообще Вам сюда: Как вставить картинки в свой пост.
Vladimir_S вне форума   Ответить с цитированием
Старый 22.05.2012, 12:21   #3 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Цитата:
Сообщение от prostogrey Посмотреть сообщение
Я как бы не с компа
Как бы сочувствую, но это проблемы как бы не решает.
Vladimir_S вне форума   Ответить с цитированием
Старый 22.05.2012, 13:08   #5 (permalink)
Артём
votum separatum
 
Аватар для Артём
 
Регистрация: 05.05.2008
Сообщений: 14,603
Записей в дневнике: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 18619
По умолчанию

1.jpg

2.jpg
Артём вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 22.05.2012, 13:29   #6 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо за фото
prostogrey вне форума   Ответить с цитированием
Старый 23.05.2012, 10:41   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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.
Vladimir_S вне форума   Ответить с цитированием
Старый 23.05.2012, 22:24   #8 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Из отсортированного файла сформировать файл записей выходного документа

Из отсортированного файла сформировать файл записей выходного документа, содержащий список женщин до 50 лет, имеющих детей. Распечатать данные из файла в виде таблицы:
Фио-------дата рождения----------количество детей
prostogrey вне форума   Ответить с цитированием
Старый 26.05.2012, 00:42   #9 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Вот примерная программа доработайте сами.

Последний раз редактировалось Gruvi; 26.05.2012 в 00:47
Gruvi вне форума   Ответить с цитированием
Старый 31.05.2012, 17:38   #10 (permalink)
prostogrey
Новичок
 
Регистрация: 21.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Нужно сделать три задания

нужно сделать 3 задание
Миниатюры
2012-05-21-515_1.jpg  
prostogrey вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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