від некоректного введення. Закріплені знання з тестування та розробці додатків. Отримано досвід при оформленні основних розрахунків і побудов у вигляді процедур і функцій.
Список літератури
Котов В.М., Павловський А.І. Інформатика. Методи алгоритмізації: Учеб. посібник для 10-11-х кл. загаль. шк. з поглиблений. вивченням інформатики.- Мн .: Нар. Асвета, 2000 - 221 с .; мул.
Архангельський А.Я. Програмування в Delphi 7. - М .: ТОВ «Біном-Пресс», 2003 - 1152 с .; мул.
Баженова І.Ю. Delphi7. Самовчитель програміста.- М .: КУДИЦ-ОБРАЗ, 2003 - 448 с .; мул.
Васильків Ю.В., Василькова М.М. Комп'ютерні технології обчислень у математичному моделюванні; Учеб. Посібник.- М .: Фінанси і статистика, 2004 - 256 с .; мул
Методичні вказівки по виконанню курсового проекту з дисципліни Основи алгоритмізації та програмування.
СТП 7-2005. Дипломні (курсові) проекти). Загальні вимоги оформлення текстових документів.
Додаток А
(обов'язковий)
Текст программиUnit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, Menus, XPMan, ExtCtrls;=class (TForm): TButton ;: TStringGrid ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TButton ;: TLabel ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TPopupMenu ;: TMenuItem ;: TMenuItem ;: TButton ;: TLabel ;: TEdit ;: TXPManifest ;: TMenuItem ;: TButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TStringGrid ;: TButton ;: TLabel ;: TLabel ;: TButton;:TButton ;: TButton ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TButton ;: TButton ;: TColorDialog ;: TPopupMenu ;: TMenuItem ;: TMenuItem ;: TColorDialog ;: TColorDialog ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TPopupMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem; Button1Click (Sender: TObject); Button2Click (Sender: TObject) ; Button3Click (Sender: TObject); FormCreate (Sender: TObject); Button4Click (Sender: TObject); Button1KeyPress (Sender: TObject; var Key: Char); FormClose (Sender: TObject; var Action: TCloseAction); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); N41Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char) ; Edit4KeyPress (Sender: TObject; var Key: Char); N23Click (Sender: TObject); N20Click (Sender: TObject); N24Click (Sender: TObject); N25Click (Sender: TObject); N26Click (Sender: TObject); F1Click ( Sender: TObject); F2Click (Sender: TObject); N9Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; Unit2, Unit3, Unit4;
{$ R * .dfm} TForm1.Button1Click (Sender: TObject) ;. close ;; TForm1.Button2Click (Sender: TObject) ;: integer; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значенийraquo;);:=strtoint(edit3.Text);.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;;TForm1.Button3Click(Sender: TObject); x1, xn, t, h, a, b: real; N, i: integer; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значенийraquo;);.Button4.Enabled:=true;:=strtofloat(edit1.Text);:=strtofloat(edit2.text);:=strtofloat(edit5.Text);:=strtoint(edit3.Text);:=(xn-x1)/N;.cells[1,1]:=floattostr(x1);i:=1 to (N + 2) do.ColCount:=(N+2);.cells[i+1,1]:=floattostr(strtofloat(stringgrid1.cells[i,1])+h);:=strtofloat(stringgrid1.cells[i,1]);.Cells[i,2]:=floattostr(-sin(a*t*t)*(2*a*t));;i:=1 to (N + 2) do.Cells [i, 0]:= x + inttostr (i) ;;; TForm1.FormCreate (Sender: TObject) ;. Cells [0,1]:= X ; .Cells [0,2]:= y-ін. raquo ;;. Cells [0,3]:= y-по методуraquo;;.Cells[0,4]:=laquo;yraquo;;.Cells[0,1]:=laquo;Xraquo;;.Cells[0,2]:=laquo;y-пр.raquo;;.Cells[0,3]:=laquo;y-по методу raquo ;;. Cells [0,4]:= y raquo ;;; TForm1.Button4Click (Sender: TObject); i, n: integer; x1, xn, h, a, b: real; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значенийraquo;);:=strtofloat(edit5.Text);:=strtofloat(edit1.Text);:=strtofloat(edit2.Text);:=strtoint(edit3.Text);:=(xn-x1)/n;i:=1 to (n + 1) do.Cells[i,3]:=floattostr(Cos(a*strtofloat(stringgrid1.Cells[i+2,1])*strtofloat(stringgrid1.Cells[i+2,1]))+h*(23*(-sin(a*strtofloat(stringgrid1.Cells[i+2,1])*strtofloat(stringgrid1.Cells[i+2,1])))*(2*a*strtofloat(stringgrid1.Cells[i...
