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

Жоспары
Кіріспе
Негізгі бөлім
2.1Тізімдер компоненттері, жиымдармен жұмыс
Тапсырма А
Тапсырма Б
2.2Тізімдер және тіркелген тізімдер құру компоненттерін қолдану
Тапсырма А
Тапсырма Б
2.3 Бір өлшемді массивтермен жұмыс
Тапсырма А
Тапсырма Б
2.4Екі өлшемді жиым. Матрица. Кесте құру компоненттері
Тапсырма А
Тапсырма Б
2.5 Екі өлшемді жиыммен жұмыс істеуге арналған кесте компоненттерін қолдану
Тапсырма А
Тапсырма Б
Қорытынды
Пайдаланылған әдебиеттер
Кіріспе

Диплом алды практиканы “ Мадияр-Құрылыс ” ЖШС компаниясынан өттім. Практиканы өту барысында өзіме көп нәрсе қабылдадым. Microsoft Word –пен жұмыс жасадым. Интернеттен мәліметтер қарастырдым және почтамен хат алмастырдым.
Delphi –мен жұмыстар жасадым. Delphi-де программа дайындау, мәліметтер базасын басқару жүйелерін құру,анимация, мультимедиа үрдістерін ұйымдастыру, OLE технологиясын пайдаланып, басқа офистік қосымшаларды шақыру, олармен жұмыс істеу және тағы басқа іс- әрекеттерді орындауға болады. Бұл жерде мен көп нәрсені үйреніп,келешекте осындай секілді компанияларда істей алатынымды білдім.
Пайдаланылған әдебиеттер
1. Бидайбеков Е.Ы., Нұрбекова Ж.Қ. Информатика және
2. математикалық статистика бастамалары.– Алматы: Абай атындағы
3. АлМУ, 1999.– 67 бет.
4. Абрамов С.А., Зима Е.В. Начала программирования на языке
5. Паскаль.– М.: Наука, 1987.– 112 с.
6. Алдашев С.А., Ахметов Н.Р. Информатика мен есептеуіш
7. теника терминдерінің орысша-қазақша сөздігі.– Алматы, Рауан,
8. 1993.– 176 бет.
9. . Бектаев Қ.Б. Орысша-қазақша математикалық сөздік.–
        
        Алматы Білім және Ғылым министрлігі
Алматы индустриалды колледжі
ЕСЕП БЕРУ
Біліктілік (диплом алды)
Орындаған: Әміржан Бота
Қабылдаған: Утегенова А
Алматы 2014ж ... ... ... ... ... жұмыс
Тапсырма А
Тапсырма Б ... және ... ... құру ... ... А
Тапсырма Б
2.3 Бір ... ... ... А ... Б ... ... жиым. Матрица. Кесте құру компоненттері
Тапсырма А ... Б
2.5 Екі ... ... ... ... ... ... компоненттерін қолдану
Тапсырма А
Тапсырма Б ... ... алды ... " Мадияр-Құрылыс " ЖШС компаниясынан өттім. Практиканы өту барысында өзіме көп нәрсе қабылдадым. Microsoft Word - пен жұмыс ... ... ... ... және ... хат ... - мен ... жасадым. Delphi-де программа дайындау, мәліметтер базасын басқару жүйелерін құру,анимация, мультимедиа үрдістерін ұйымдастыру, OLE ... ... ... ... ... ... олармен жұмыс істеу және тағы басқа іс- әрекеттерді орындауға болады. Бұл ... мен көп ... ... ... ... ... ... алатынымды білдім.
2.1Тізімдер компоненттері, жиымдармен жұмыс
Тапсырма A
Object Pascal тілінің типтерінің тізімі беріледі. Олар: 1) integer; 2) real; 3) ... String: 5) Boolean. Осы ... ... ... нөмерлерін енгізу арқылы сәйкес тип туралы мәлімет беретін программа құрайық.
* батырмасын басып ... ... ... ... >> ... ... көп ... мәліметті форма бетіне шығару үшін Memo1 компоненттін ораналастырамыз. Сонымен қатар, нәтижесінде шыққан мәліметті көру үшін Memo2 ... ... өріс ... тазалаймыз.
* 1) integer;
2) real;
3) char;
4)String:
5) Boolean- ... ... ... ... ... үшін Label 1 Label2 Label 3 Label 4 Label 5 ... орналастырып, олардың сәйкес қасиетіне өзгертулер енгіземіз.
3) Есептеу ... ... үшін ... ... және 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 ... ... ман гана ... 2 байт орын ... +32767дейнги аралаыктагы ман кабылдайды;);
2:memo2.Lines.Add('накты ман кабылдайды. 6 байт орын алады. 1.7Е+38ге дейнги аралыктагы манди кабылдайды;');
3:memo2.Lines.Add('сиволдык ман кабылдайды. 1 байт орын ... ... ... ен ... саны Мах ... мах+1 орын ... тип. 1 байт орын ... Pascal тілінің типтерінің тізімі берілген програма
Тапсырма Б
Массив элементінен оң және теріс мәндерін элементтерінің программасын құру
Шешімі:
* Форма бетіне Label 1 Label 2 ... ... оның Caption ... I) ... ... оң және теріс мәндерінің санын есептеу II) ... ... ... ... ... үшін Memo1 ... ... қасиетін бос қалдырамыз
* Массив элементтін енгізу үшін StringGrid 1 компоненттін орналастырып және қасиетіне төменгіні орналастырy
Col Caint : ... Count : ... Cols ... ... : True
* Есептеу операциясын жүзеге асыру үшін Button 1 ... ... оның Caption ... ... жазу және ... ... өңдеуші процедурасына төменгі программа мәтінін жазу
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 ... ... ... i:=1 to n ... [a[i]>0; then S1:=S1+1-else
S2:=S2+1;
end;
Жауабы:
Программа мәтіні
Массив элементінен оң және теріс мәндерін элементтерінің программасын ... және ... ... құру ... ... А
Нөмірленген қайталану операторлары берілген. Батырманы басқанда керекті команданың номерін таңдауға ... ... ... ... қажет. Қайталану операторының нөмері енгізілгеннен кейін,сол оператордың жазылу ... ... ... ...
* ... бетіне Label 1 Label2 Label 3 Label 4 ... ... Бұл ... Caption ... бос ... ... енгізу шығару үшін, компоненттеррді өзге функцияларды пайлануға болады. Мәліметтерді енгізу үшін InputBox функциясын пайдануға болады. Оның жазылу форматы ... > ... - ... тақырыбы - сұқбат терезенің тақырыбы нұсқау-пайдаланушы енгізген түсіндірме , ... ... - ... ... енгізуге болатын мәндер тізімі. Бұл функцияның орындалу нәтижесінде экранда енгізу өрісі бар ... ... ... болады.
* Есептеу операциясын жүргізу үшін Button1компоненттін орналастырамыз және Caption қасиетіне > сөзін жазамыз және > батырмасына Button1 Click ... ... ... ... ... ... TObject);
var n:integer; n1:string;
begin
Label1.Caption:='1. Шартты алдын ала тексеретин кайталау операторы';
Label2.Caption:='2. Келеси шарт ... ... ... Параметрди кайталау операторы';
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 ... ... ... ... ... ... ... ... төрт орынды санның цифрларының көбейтіндісін табатын программа құру.
Шешімі:
* ол үшін ... ... ... ... орналастырамыз:
компоненттер
Обьектілер инспекторы терезесіне
Енгізілетін өзгертулер
Label1:TLabel
Caption:сан енгіз
Font: шрифты және түс таңдау
Edit1:Tedit
Text: бос қалдыру
Memo1:Tmemo
Lines: босату
Button1:Tbutton
Caption: орында
Label1:Tlabel
Caption:жауабы
Font: шрифты және түс ... Memo ... өзге ... ... ... ... және олардың қасиеттеріне өзгертулерді енгізуді, біз қарастырдық.
* Есептелген нәтижені экранға шығару үшін Memo компоненттін пайдаланамыз. Ол үшін Standard ... ... Memo ... ... Бұл ... ... ... орналастырғаннан кейін, обьектілер инспекторы терезесіне өтіп,Lines қасиетінің (Tstrings) сөзінің қасындағы пиктограмманы басамыз. Нәтиженінде жолдар тізімі редакторы сұқбат терезесі ... осы ... Memo ... ... ОК ... ... Edit1 компонентті аргументті енгізуге, ал Button1 компонентті негізгі есептеу операциясын орындауға арналған.
* Форма бетіне компоненттерді орналастырып болғаннан кейін, ... ... ... ... ... ... мәліметтерді енгіземіз:
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; ... mod 10; ... ... ... ... көрсетілген.
Жауабы:
Есептің программасы
Есептің шешімі. Цифрлар көбейтіндісін табуға арналған форма терезесі
2.3 Бір ... ... ... ... ... элементтерін кему қатарымен орналастыру:
Шешуі:
* Массив элементтерін енгізу үшін Additional ... ... және ... массив элементтерін кему аралықтарымен орналастыру үшін StringGrid2 компоненттерін орналастырамыз. Барлық StringGrid компоненттері үшін белгіленген аймақ ... Сол үшін ... ... ... ... және FixedCols қасиеттеріне 0 мәнін меншіктейміз. StringGrid компоненттері үшін жол мен ... ең ... ... ... ... ... 5
RowCount:1
StringGrid2: ColCount: 5
RowCount:1
StringGrid1 компонентіне мәліметті енгізу үшін ... ... ... инспектор терезесіндегі Options- goEditing қасиетіне True
Мәнін тағайындаймыз.
компоненттер
Обьектілер инспектор терезесінен ... ... ... ... 0 ... : 0 ... ... : True
StringGrid2:
ColCount: 5
RowCount:1
FixedRows: 0
FixedCols : 0
* > мәтінін форма бетіне ... үшін Label1, Label 2 ... ... ... қасиеттеріне өзгетрулер енгіземіз.
* Масив элементтерінің өсу қатарымен орналастыру процесін орындау үшін Button компоненттін орналастырып, Caption қасиетіне мәтінін ... және ... ... ... ... ... ... программа мәтінін жазамыз:
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 ... ... ... ... i:=1 to n ... 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.
Жауабы:
Есептің программасы Енгізілген массив элементтерін кему ... ... ... ... ... ... квадрат матрицаның негізгі диагональ астында жатқан элемент көбейтіндісін ... ... ... ... ... Memo1 ... орналастырып,Lines қасиет көмегімен мәтінін жазу
* Форма бетіне Label 1 компонентін орналастырып оның Caption қасиетіне ... ... ... Форма бетіне есептің нәтижесін шығару үшін Label 2 компонентін орналастырып, оның Caption қасиетін бос қалдыру
* Массив элементтін енгізу үшін ... 1 ... ... және ... ... ... Caint : ... Count : 3
Fixed Cols :0
Options-goediting : True
* Есептеу операциясын жүзеге асыру үшін BitBtn1 1 ... ... оның Caption ... ... жазу және ... ... өңдеуші процедурасына төменгі программа мәтінін жазу
Procedure TForm 1. BitBtn1Click (Sender.TObject);
Const n=3;
Var
A:array [1..n,1..n] of ... integer; ... i=1 to n ... j=1 to n ... ,j]:= strtoint (stringGrid 1.Cells [j-1, i-1]);
P:= 1;
Begin
For i:=1 to n ... j:=1 to n ... (i>j) then ... End;
Жауабы:
Программа мәтіні
Берілген квадрат матрицаның негізгі диагональ астында жатқан элемент көбейтіндісін табатын прогамма
2.4Екі өлшемді жиым. Матрица. Кесте құру ... ... ... ... ai i=1,n массиві берілген. ai және bi ... ... ... ... ... ...
* ... 1компоненттін форма бетіне орналастырып, Glyph қасиетіне .bmp форматымен алдын ала сақталған > суретін ... ai ... ... ... енгізу үшін және формула бойынша bi ... ... ... шыққан мәндерді кқру үшін StringGrid2 компоненттрін орналастырамыз:
Компоненттер
Инспектор обьектісінде енгізілетін өзгертулер
StringGrid1:
TStringGrid
ColCount:10
RowCount:1
FixedCols:0
FixedRow:0
goEditing: True
StringGrid2:
TStringGrid
ColCount:10
RowCount:1
FixedCols:0
FixedRow:0
goEditing: True
* мәліметтерін ... ... ... үшін Label 1 Label 2 ... ... ... операциясын жүзеге асыру үшін BitBtn1 1 компонентін орналастырып оның Caption ... ... жазу және ... оқиға өңдеуші процедурасына төменгі программа мәтінін жазу
procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a,b:array[1..n] of real;
i:integer;s:real;
begin
s:=0;
for i:=1 to n do
a[i]:=strtofloat(stringGrid1.Cells[i-1,0]);
for i:=1 to n ... I:=1 to n ... ... 13+ ... ... Б
Бүтін сандардан құрылған екі өлшемді массивтерді алмастыру
Массив элементтерін ... ... ... екі өлшемді массив берілген. Массив элементтерінің
арифметикалық ортасынан кіші болатын барлық элементтерін бүтін мəніне
дейін дөңгелектелінген арифметикалық орта ... ... ... ... ... 0-ден 100-ге ... сандармен кездейсоқ түрде толтырылады.
Program almastyru;
Uses crt;
var c:array[1..100,1..100] of word;
і,j,n:іnteger; a:real;
Begіn
wrіte('n=');
readln(n); a:=0;
Randomіze;
for і:=1 to n do
for j:=1 to n do ... ... ... і:=1 to n do
for j:=1 to n do
wrіteln('c[',і,',',j,']=',c[і,j],' ');
a:=a/n; wrіteln('arіf.orta=',a:5:2);
for і:=1 to n do
for j:=1 to n do
іf c[і,j] мәтінін ... ... ... ... болған соң, нәтижені шығару үшін Button1 компоненттін орналастырамыз. Батырманың Caption қасиетіне > мәтінін жазамыз және Button1Click оқиға өңдеуші процедурасына төменгі ... ... ... ... TObject);
label 1,2; const m=10;
var a:array [1..m] of integer;
i,s1,s2:integer; s:string;
begin
s1:=0; s2:=0;
for i:=1 to m ...... ... ... ... i=m then
showmessage('Массив элементтери енгизилип болды');
end;
for i:=1 m do
if a[i]>0 then s1:=s1+1 else s2:=s2+1;
showmessag( он мандер саны ='+inttostr(s1)+# ... ... ... ... мен ... процедурасын пайдалана отырып, 10 элементтен тұратын A={a} масивінің теріс және оң мәнді элементтерінің санын есептейтін ... ... ... координаталары бойынша олардың қай ширекте орналасқанын анықтайтын программа құрайық. Мысалы, А нүктесінің координатасы ( Х,У); егер x=6; y=5 ... онда А ... ... жатады. Х және У тің мәндеріне байланысты нүктенің қай ширекте жатқанын анықтаймыз.
* Көп ... ... ... үшін ListBox1 ... ... Items қасиетіне > мәтінін енгіземіз.
* , > сөздерін форма бетіне шығару үшін Label 1, Label 2 компоненттерін орналастырамыз.
* ... ... үшін Memo1 ... ... және Lines ... ... өріс жолын тазалаймыз.
* Х осінің мәнін StringGrid 1және у ... ... ... ... ... ... және ... кестеде берілген мәліметтерді енгіземіз:
Компоненттер
Инспектор обьектісінде енгізілетін өзгертулер
StringGrid1:
TStringGrid
ColCount:4
RowCount:1
FixedCols:0
FixedRow:0
goEditing: True
StringGrid2:
TStringGrid
ColCount:4
RowCount:1
FixedCols:0
FixedRow:0
goEditing: ... ... ... ... ... үшін BitBtn1 1 ... орналастырып оның Caption қасиетіне мәнін жазу және BitBtn1Click оқиға өңдеуші процедурасына ... ... ... ... TForm1.BitBtn1Click(Sender: TObject);
const n=4;
var a,b,c,d,i:integer;
x,y:array[1..n] of real;
begin
for i:=1 to n do
begin
x[i]:=strtofloat(stringGrid1.Cells[i-1,0]);
y[i]:=strtofloat(stringGrid2.Cells[i-1,0]);
end;
a:=0; b:=0; c:=0; d:=0;
for i:=1 to n do
begin
if (x[i]>0) and (y[i]>0) then ... (x[i]0) then ... (x[i]

Пән: Информатика
Жұмыс түрі: Іс-тәжірибеден есеп беру
Көлемі: 9 бет
Бұл жұмыстың бағасы: 600 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
AutoCAD жүйесінде көлемді объектілерді жобалау және редакторлау45 бет
Delphi-де бағдарламалау52 бет
Астық сақтау кезндегі микроорганизмдер тіршілігі. Микрофлораның тегі және оның қалыптасуы2 бет
Жиымдар (массивтер)14 бет
Көп өлшемді жиымдар4 бет
Орта мектептегі паскаль тілі программасын оқытудың әдістемелік ерекшеліктері61 бет
Сөз тіркестерін өңдеу8 бет
Өрнектер5 бет
Киім пакетінің түрлі компоненттеріне қойылатын гигиеналық талаптар3 бет
Клетка туралы ілім.7 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь