3 Обьектілі бағдарланған программалау тілін оқыту әдістемесі

Var А: =ARRAY[1..20] OF INTEGER;

Var А: =ARRAY[1..5,1..10] OF INTEGER;

Тапсырманы орындауға нұсқау:

1. 
   Delphi ортасын іске қосып, жаңа жобаны ашыңыз.
   
2. 
   Пішінді ерекшелеп, обьектілер инспекторы терезесіндегі Caption қасиетіне «Массивтегі элементті іздеу» деп жазып, тақырып қатарын өзгертіңіз.
   
3. 
   Пішінге келесі компоненттерді орналастырыңыз: Standart бетінен label1, label2, Edit1, Button1, Additional бетінен StringGrid1. Төменде (2.1.1-сурет) массивтегі элементті іздеудің форма терезесі көрсетілген.
   

2.1.1-сурет. Массивтегі элементті іздеудің форма терезесі

4. 
   Келесі компоненттерді ерекшелеп алып, Caption қасиетін өзгертіңіз: label1 – Массив, label2 – Элемент, Button1 – Іздеу. Edit1 компонентінің Техт қасиетін тазалаңыз. StringGrid1 компонентін ерекшелеп, FіxеdCols және FіxеdRows қасиеттеріне 0 мәнін, RowCount (жол саны 1) қасиетіне 1, ColCount (баған саны 5) қасиетіне 5 мәндерін беріңіз, Options опциясының ішндегі goEditing, goTabs, goAlwaysShowEditor қасиеттерін true деп өзгертіңіз.
   
5. 
   Button1 компонентін екі рет шертіңіз немесе обьектілер инспекторы терезесіндегі Events бетіндегі OnClick оқиғасына шертіңіз. Пайда болған код терезесіне келесі программаны жазыңыз:
   

const SIZE=5;

var

a: array[1..SIZE] of integer;

found: boolean;

i: integer;

begin

a[i] := StrToInt(StringGrid1.Cells[i-1,0]);

obr := StrToInt(edit1.text);

found := FALSE;

i := 1;

repeat

found := TRUE

else i := i+1;

until (i > SIZE) or (found = TRUE);

if found

then ShowMessage('Iздеу сәтті аяқталды!'

+IntToStr(i)+#13+'орындағы элементпен сәйкес келді.')

else ShowMessage('Сәйкес келген элемент жок.');

end.

2.1.2-сурет. Массивтегі элементті іздеу программасының блок-схемасы

6. 
   Қосымшаны орындауға жіберіп, шыққан нәтижесін тексеріңіз. Төменде (2.1.3-сурет) қосымшаны іске қосқанда шыққан нәтиже көрсетілген:
   

2.1.3-сурет. Программаның орындалу нәтижесі