Тізімдер компоненттері, жиымдармен жұмыс


Алматы Білім және Ғылым министрлігі

Алматы индустриалды колледжі

ЕСЕП БЕРУ

Біліктілік (диплом алды)

Орындаған: Әміржан Бота

Қабылдаған: Утегенова А

Алматы 2014ж

Жоспары

Кіріспе

Негізгі бөлім

2. 1Тізімдер компоненттері, жиымдармен жұмыс

Тапсырма А

Тапсырма Б

2. 2Тізімдер және тіркелген тізімдер құру компоненттерін қолдану

Тапсырма А

Тапсырма Б

2. 3 Бір өлшемді массивтермен жұмыс

Тапсырма А

Тапсырма Б

2. 4Екі өлшемді жиым. Матрица. Кесте құру компоненттері

Тапсырма А

Тапсырма Б

2. 5 Екі өлшемді жиыммен жұмыс істеуге арналған кесте компоненттерін қолдану

Тапсырма А

Тапсырма Б

Қорытынды

Пайдаланылған әдебиеттер

Кіріспе

Диплом алды практиканы “ Мадияр-Құрылыс ” ЖШС компаниясынан өттім. Практиканы өту барысында өзіме көп нәрсе қабылдадым. Microsoft Word -пен жұмыс жасадым. Интернеттен мәліметтер қарастырдым және почтамен хат алмастырдым.

Delphi -мен жұмыстар жасадым. Delphi-де программа дайындау, мәліметтер базасын басқару жүйелерін құру, анимация, мультимедиа үрдістерін ұйымдастыру, OLE технологиясын пайдаланып, басқа офистік қосымшаларды шақыру, олармен жұмыс істеу және тағы басқа іс- әрекеттерді орындауға болады. Бұл жерде мен көп нәрсені үйреніп, келешекте осындай секілді компанияларда істей алатынымды білдім.

2. 1Тізімдер компоненттері, жиымдармен жұмыс

Тапсырма A

Object Pascal тілінің типтерінің тізімі беріледі. Олар: 1) integer; 2) real; 3) char;

  1. String: 5) Boolean. Осы типтердің алдына қойылған нөмерлерін енгізу арқылы сәйкес тип туралы мәлімет беретін программа құрайық.
  1. « төменде Object Pascal тілінің типтері берілген. Егер белгілі бір типке байланысты мағұлмат алғыныз келсе онда « Орында» батырмасын басып сәйкес типтің нөмерін енгізіңіз » деген мәліметті көп жолды мәліметті форма бетіне шығару үшін Memo1 компоненттін ораналастырамыз. Сонымен қатар, нәтижесінде шыққан мәліметті көру үшін Memo2 компоненттерін орналастырып, өріс жолын тазалаймыз.
  2. 1) integer;

2) real;

3) char;

4) String:

5) Boolean- деген мәліметтерді форма бетіне шығару үшін Label 1 Label2 Label 3 Label 4 Label 5 компоненттерін орналастырып, олардың сәйкес қасиетіне өзгертулер енгіземіз.

3) Есептеу операциясын жүргізу үшін Button1компоненттін орналастырамыз және Caption қасиетіне « Орында» сөзін жазамыз және « Орында» батырмасына Button1 Click процедурасына төменгі программа мәтінін енгіземіз.

procedure TForm1. Button1Click(Sender: TObject) ;

var n:integer; n1:string;

begin

n1:=inputBox('типтер', 'керекти тип номерин танданыз:1, 2, 3, 4, 5-?', ") ;

n:=StrToint(n1) ;

memo2. Clear;

case n of

1:memo2. Lines. Add('тек бутин ман гана кабылдайды. 2 байт орын алады. -32768-ден +32767дейнги аралаыктагы ман кабылдайды; ) ;

2:memo2. Lines. Add('накты ман кабылдайды. 6 байт орын алады. 1. 7Е+38ге дейнги аралыктагы манди кабылдайды; ') ;

3:memo2. Lines. Add('сиволдык ман кабылдайды. 1 байт орын алады. ; ') ;

4:memo2. Lines. Add('жолдык манди кабылдайды. ен улкен саны Мах болганда мах+1 орын алады; ') ;

5:memo2. Lines. Add('логикалык тип. 1 байт орын алады; ') ;

end;

end.

Жауабы:

Object Pascal тілінің типтерінің тізімі берілген програма

Тапсырма Б

Массив элементінен оң және теріс мәндерін элементтерінің программасын құру

Шешімі:

  1. Форма бетіне Label 1 Label 2 компоненттерін орналастырып оның Caption қасиетіне: I) массив элементін оң және теріс мәндерінің санын есептеу II) массив элементін енгіз
  2. Нәтижені шығару үшін Memo1 компонентін орналастырып, Lines қасиетін бос қалдырамыз
  3. Массив элементтін енгізу үшін StringGrid 1 компоненттін орналастырып және қасиетіне төменгіні орналастырy

Col Caint : 10

Row Count : 10

Fixed Cols :0

Fixed Row:0

Options-goediting : True

  1. Есептеу операциясын жүзеге асыру үшін Button 1 компонентін орналастырып оның Caption қасиетіне «орындау» мәнін жазу және Button1Click оқиға өңдеуші процедурасына төменгі программа мәтінін жазу

procedure TForm1. Button1Click(Sender: TObject) ;

const n=10;

var

a:array [1. . n] of real;

i:integer;

S1: integer;

begin

for i:=1 to n do

a[i] :=strtoint(stringGrid1. Cells [i-1; 0] ) ;

S1:=0; S2:=0;

for i:=1 to n do;

begin

if [a[i] >0; then S1:=S1+1-else

S2:=S2+1;

end;

Жауабы:

Программа мәтіні

Массив элементінен оң және теріс мәндерін элементтерінің программасын құру

2. 2Тізімдер және тіркелген тізімдер құру компоненттерін қолдану

Тапсырма А

Нөмірленген қайталану операторлары берілген. Батырманы басқанда керекті команданың номерін таңдауға арналған сұқбат терезе ашылу қажет. Қайталану операторының нөмері енгізілгеннен кейін, сол оператордың жазылу форматын шығаратын программа құрайық.

  1. Форма бетіне Label 1 Label2 Label 3 Label 4 компоненттерін орналастырайық. Бұл компоненттердің Caption қасиетін бос қалдырамыз.
  2. Мәліметтерді енгізу шығару үшін, компоненттеррді өзге функцияларды пайлануға болады. Мәліметтерді енгізу үшін InputBox функциясын пайдануға болады. Оның жазылу форматы

InputBox « нұсқау: енгізілетін мәндер. »

Мұндағы - терезе тақырыбы - сұқбат терезенің тақырыбы нұсқау-пайдаланушы енгізген түсіндірме, ал, енгізілетін мәндер - енгізу өрісіне енгізуге болатын мәндер тізімі. Бұл функцияның орындалу нәтижесінде экранда енгізу өрісі бар сұқбат терезесі пайда болады.

  1. Есептеу операциясын жүргізу үшін Button1компоненттін орналастырамыз және Caption қасиетіне « Орында» сөзін жазамыз және « Орында» батырмасына Button1 Click процедурасына төменгі программа мәтінін енгіземіз.

procedure TForm1. Button1Click(Sender: TObject) ;

var n:integer; n1:string;

begin

Label1. Caption:='1. Шартты алдын ала тексеретин кайталау операторы';

Label2. Caption:='2. Келеси шарт бойынша кайталар операторы';

Label3. Caption:='3. Параметрди кайталау операторы';

n1:=inputBox(' командалар, керекти команда номерин танданыз:1, 2, 3-?', '') ;

n:=StrToint(n1) ;

case n of

1:Label4. Caption:='while < wart> do begin . . . end';

2:label4. Caption:='Repeat . . . Until';

3:label4. Caption:='for i:=1 to n do begin . . . end;

end;

end.

Жауабы :

Нөмірленген қайталану операторлары тізімі программасы

Тапсырма Б

Берілген төрт орынды санның цифрларының көбейтіндісін табатын программа құру.

Шешімі:

  1. ол үшін форма бетіне төмендегідей компоненттер орналастырамыз:
компоненттер

Обьектілер инспекторы терезесіне

Енгізілетін өзгертулер

компоненттер: Label1:TLabel
Обьектілер инспекторы терезесінеЕнгізілетін өзгертулер:

Caption:сан енгіз

Font: шрифты және түс таңдау

компоненттер: Edit1:Tedit
Обьектілер инспекторы терезесінеЕнгізілетін өзгертулер: Text: бос қалдыру
компоненттер: Memo1:Tmemo
Обьектілер инспекторы терезесінеЕнгізілетін өзгертулер: Lines: босату
компоненттер: Button1:Tbutton
Обьектілер инспекторы терезесінеЕнгізілетін өзгертулер: Caption: орында
компоненттер: Label1:Tlabel
Обьектілер инспекторы терезесінеЕнгізілетін өзгертулер:

Caption:жауабы

Font: шрифты және түс таңдау

  1. Memo компонентінен өзге компоненттерді форма бетіне орналастыруды және олардың қасиеттеріне өзгертулерді енгізуді, біз қарастырдық.
  2. Есептелген нәтижені экранға шығару үшін Memo компоненттін пайдаланамыз. Ол үшін Standard қосымшасында орналасқан Memo компоненттін таңдаймыз. Бұл компонентті форма терезесіне орналастырғаннан кейін, обьектілер инспекторы терезесіне өтіп, Lines қасиетінің (Tstrings) сөзінің қасындағы пиктограмманы басамыз. Нәтиженінде жолдар тізімі редакторы сұқбат терезесі ашылады, осы терезесіндегі Memo сөзін өшіріп, ОК батырмасын басамыз.

Мұндағы Edit1 компонентті аргументті енгізуге, ал Button1 компонентті негізгі есептеу операциясын орындауға арналған.

  1. Форма бетіне компоненттерді орналастырып болғаннан кейін, орында батырмасының ButtonClick оқиға өңдеушісіне төмендегідей мәліметтерді енгіземіз:

procedure TForm1. Button1Click(Sender: TObject) ;

var x, y, p:integer;

begin

edit1. SetFocus;

p:=1;

x:=strtoint(edit1. Text) ;

y:=x div 1000; p:=p*y;

y:=(x div 100) mod 10; P:=p*y;

y:=(x mod 100) div 10; p:=p*y;

y:=x mod 10; p:=p*y;

memo1. Clear; //

memo1. Lines. Add(inttostr(p) ) ;

end;

end:

Алынған нәтиже келесі суретте көрсетілген.

Жауабы:

Есептің программасы

Есептің шешімі. Цифрлар көбейтіндісін табуға арналған форма терезесі

2. 3 Бір өлшемді массивтермен жұмыс

Тапсырма А

Енгізілген массив элементтерін кему қатарымен орналастыру:

Шешуі:

  1. Массив элементтерін енгізу үшін Additional бетінен StringGrid1 және енгізілген массив элементтерін кему аралықтарымен орналастыру үшін StringGrid2 компоненттерін орналастырамыз. Барлық StringGrid компоненттері үшін белгіленген аймақ пайдаланылмайды. Сол үшін Обьектілер инспектор терезесінен FixedRows және FixedCols қасиеттеріне 0 мәнін меншіктейміз. StringGrid компоненттері үшін жол мен бағанның ең жоғары шектік мәндер тағайындаймыз:

StringGrid1: ColCount: 5

RowCount:1

StringGrid2: ColCount: 5

RowCount:1

StringGrid1 компонентіне мәліметті енгізу үшін міндетті түрде Обьектілер инспектор терезесіндегі Options- goEditing қасиетіне True

Мәнін тағайындаймыз.

компоненттер

Обьектілер инспектор терезесінен

Енгізілетін өзгерістер

компоненттер: StringGrid1
Обьектілер инспектор терезесіненЕнгізілетін өзгерістер:

ColCount: 5

RowCount:1

FixedRows: 0

FixedCols : 0

Options- goEditing : True

компоненттер: StringGrid2:
Обьектілер инспектор терезесіненЕнгізілетін өзгерістер:

ColCount: 5

RowCount:1

FixedRows: 0

FixedCols : 0

  1. « массив элементтерін енгіз; массив элементтерін кему қатарымен орналастыру; » мәтінін форма бетіне шыңару үшін Label1, Label 2 компоненттерін орналастырып, сәйкес қасиеттеріне өзгетрулер енгіземіз.
  2. Масив элементтерінің өсу қатарымен орналастыру процесін орындау үшін Button компоненттін орналастырып, Caption қасиетіне «орында» мәтінін жазамыз және «орында» батырмасының Button1Click оқиға өңдеуші процедурасына төмендегідей программа мәтінін жазамыз:

procedure TForm1. Button1Click(Sender: TObject) ;

const n=5;

var a, b:array[1. . n] of real;

i, j:integer;

r:real;

begin

for i:=1 to n do

if Length(stringGrid1. Cells[i-1, 0] ) <>0

then a[i] :=strToInt(StringGrid1. Cells[i-1, 0] )

else a[i] :=0;

for i:=1 to n do

begin

for j:=1 to n do

if a[i] >a[j] then

r:=a[i] ; a[i] :=a[j] ; a[j] :=r; end;

for i:=1 to n do

stringGrid2. Cells[i-1, 0] :=floattostr(a[i] ) ;

end;

end.

Жауабы:

Есептің программасы Енгізілген массив элементтерін кему қатарымен орналастыруға арналған форма терезесі

Тапсырма Б

Берілген квадрат матрицаның негізгі диагональ астында жатқан элемент көбейтіндісін табатын прогамма құру

Шешімі :

... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.
Ұқсас жұмыстар
ОҚУ ТӘЖІРБИЕСІНІҢ ЕСЕБІ (1304000 – Есептеу техникасы және бағдарламамен қамтамасыз ету мамандығы)
Delphi программалау тілінде массивтермен жұмыс
String Grid компоненті – жолдар кестесі
Delphi визуалды бағдарламалау жүйесі
Гипермәтіндік белгілеу принциптері. Құжаттар құрылымы
HTML синтаксисі
Жиым элементтерін реттеу әдістері
Қасиетті таңдау терезесі
Интернеттің іздеу технологиялары
Бүкіләлемдік тор. интернет технологиялары. Visual Basic ортасында Интернет браузер құру
Пәндер



Реферат Курстық жұмыс Диплом Материал Диссертация Практика Презентация Сабақ жоспары Мақал-мәтелдер 1‑10 бет 11‑20 бет 21‑30 бет 31‑60 бет 61+ бет Негізгі Бет саны Қосымша Іздеу Ештеңе табылмады :( Соңғы қаралған жұмыстар Қаралған жұмыстар табылмады Тапсырыс Антиплагиат Қаралған жұмыстар kz