Технолгия разработки програмных продуктов

    StringGrid1.Cells[0,i]:=IntToStr(i);

    StringGrid1.Cells[1,i]:=FloatToStr(RoundTo(p,-3));

    Series1.AddXY(i,RoundTo(p,-3));

    p1:=p;

    i:=i+1;

  until i>n

end; 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

p:=StrToFloat(Edit3.Text);

n:=StrToInt(Edit4.Text);

Series2.Clear;

StringGrid2.RowCount:=n+1;

StringGrid2.Cells[0,0]:='t';

StringGrid2.Cells[1,0]:='p';

 p1:=p;

  i:=1;

  repeat

    f1:=fun2(p);

    p:=p+f1;

    p:=p1+(f1+fun2(p))/2;

    StringGrid2.Cells[0,i]:=IntToStr(i);

    StringGrid2.Cells[1,i]:=FloatToStr(RoundTo(p,-3));

    Series2.AddXY(i,RoundTo(p,-3));

    p1:=p;

    i:=i+1;

  until i>n 

end; 

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

a:=StrToFloat(Edit8.Text);

b:=StrToFloat(Edit9.Text);

c:=StrToFloat(Edit10.Text);

p:=StrToFloat(Edit5.Text);

pp:=StrToFloat(Edit7.Text);

n:=StrToInt(Edit6.Text);

Series3.Clear;

StringGrid3.RowCount:=n+1;

StringGrid3.Cells[0,0]:='t';

StringGrid3.Cells[1,0]:='p';

 p1:=p;

  i:=1;

  repeat

    f1:=fun3(pp,p,a,b,c);

    p:=p+f1;

    p:=p1+(f1+fun3(pp,p,a,b,c))/2;

    StringGrid3.Cells[0,i]:=IntToStr(i);

    StringGrid3.Cells[1,i]:=FloatToStr(RoundTo(p,-3));

    Series3.AddXY(i,RoundTo(p,-3));

    p1:=p;

    i:=i+1;

  until i>n

   end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выводы

       В данной курсовой работе был разработан алгоритм решения задач развития популяций по модели Фюрхельста. Для  решения дифференциальных уравнений  использовался численный метод Эйлера.

       В ходе курсового проектирования были изучены теоретические основы метода Эйлера и его модификации для  решения дифференциальных уравнений. Рассмотрены основные характеристики используемых языков программирования – С и Pascal, а также проанализирована среда разработки приложений Delphi. На основе разработанного алгоритма решения задачи были разработаны 3 программы: на языке С, Pascal и в среде Delphi. Все программы протестированы на различных наборах данных и ошибок выявлено не было.

Список  использованной литературы

 

1. Каханер Д., Моулер К., Неш С. Численные методы и программное обеспечение. –  М.: Мир, 1998 – 356с.
2. Культин Н. Программирование в Turbo Pascal 7.0 и Delphi. – 2-е изд.,перераб. И доп. – СПб.: БХВ – Санкт-Петербург, 2002. – 416 с.
3. Марченко А.И., Марченко Л.А. – Программирование в среде Turbo Pascal 7.0 – К.: ВЕК+, М.: Бином Универсал, 1998. – 496 с.
4. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. Учебное пособие. Издание 7-е, переработанное. –М.: «Нолидж», издатель Молгачева С.В., 2001. -416 с.