Міністерство освіти і науки України Національний Університет «Львівська політехніка» Кафедра «Інформаційні системи та мережі» Лабораторна робота № 3 Методи та засоби комп’ютерних інформаційних технологій «Оператори циклу й їх використання для операцій з масивами» Мета: Набуття навичок із використання в програмах операторів циклу для операцій з массивами. Завданя: Розробити програму формування значень функцій
,
, … ,
для х від a до b з кроком h. Для зберігання цих значень використати двовимірний масив. В робочому вікні програми передбачити задання початкового значення х – a, кінцевого – b і кроку його зміни – h, а також відображення зачень сформованої таблиці у вигляді колонок х,
,
, … ,
.
. Хід виконання роботи Створили форму програми, розмістивши на ній всі необхідні елементи. / Запрограмуємо події на перевірку вхідних даних. procedure TForm1.Edit1Change(Sender: TObject); var i:double; begin If not TryStrToFloat(Edit1.Text,i) then Edit1.Text:=''; end; procedure TForm1.Edit2Change(Sender: TObject); var i:double; begin If not TryStrToFloat(Edit2.Text,i) then Edit2.Text:=''; end; procedure TForm1.Edit3Change(Sender: TObject); var i:double; begin If not TryStrToFloat(Edit3.Text,i) then Edit3.Text:=''; end;. Запрограмуємо подію розрахунку вхідних даних. procedure TForm1.Button1Click(Sender: TObject); var i,i1,code:integer; s,ss:string; begin a:=StrToFloat(edit1.Text); b:=StrToFloat(edit2.Text); h:=StrToFloat(edit3.Text); memo1.Lines.Add(ss); i:=0; s:=' '; while a<=b do begin Inc(i); q[1,i]:=a; q[2,i]:=sin(a); q[3,i]:=cos(a); q[4,i]:=Tan(a); a:=a+h; end; for i1:=1 to i do begin ss:=FloatToStrF(q[1,i1],ffNumber,2,4)+s+FloatToStrF(q[2,i1],ffNumber,2,4)+s+FloatToStrF(q[3,i1],ffNumber,2,4)+s+FloatToStrF(q[4,i1],ffNumber,2,4); memo1.Lines.Add(ss); end; Перевіримо роботу програми. / Висновок: Під час виконання лабораторної роботи набув навичок із із використання в програмах операторів циклу для операцій з массивами