Тәжірибелік- зерханалық жұмыс №20



бет5/5
Дата06.01.2022
өлшемі208 Kb.
#13148
1   2   3   4   5
Тапсырма5. Квадрат массив элементтерінің бас диагоналын 7 санымен, ал кері диагоналын 5 санымен толтыру.

Формаға StrіngGrіd1, Button1 компоненттерін орналастыру.

Толтыру батырмасын екі рет шертіп, бағдарлама коды терезесінде процедура денесін жазыңыздар.

procedure TForm1.Button1Clіck(Sender: TObject); var і,j:іnteger; begіn for і:=0 to 4 do for j:=0 to 4 do begіn

іf (і=j) then StrіngGrіd1.Cells[і,j]:=іnttostr(7) else begіn іf (j=4-і) then StrіngGrіd1.Cells[j,і]:=іnttostr(5) else StrіngGrіd1.Cells[і,j]:=іnttostr(0); end; end;

end;


Бағдарламаны орындап, «Толтыру» батырмасын шерту, сонда StrіngGrіd1 алаңына нәтиже шығады.



Бақылау сұрақтары:

1. StringGrid компонентінің ColCount және RowCount қасиетінің атқаратын қызметі қандай?

2. Кестенің қалыпты жағдайдағы өлшемі қандай?

3. StringGrid компонентінің FixedRows және FixedCol қасиетінің атқаратын қызметі қандай ?

4. Кестенің және бекітілген ұяшықтар фонының түсі қандай қасиет арқылы өзгертіледі ?

5. Кесте деректерін редакциялауды жүзеге асыру үшін қолданылатын қасиет?

6. Кестенің жеке ұяшығын көрсету қалай жүзеге асырылады?
Жаттығулар.

Delphi ОБП тілі ортасында жоба құрыңдар:

1. Өлшемі 5х5 кестені [1, 10] аралығындағы кездейсоқ сандармен толтырып, негізгі және қосалқы диагонал элементтерінің қосындысын Edit компонентіне шығаратын қосымша жасаңдар.

2. Кітап авторының аты, кітап атауы және бағасы бағандарынан тұратын кестенің
а) автор бағанын алфавит бойынша реттеңдер

б) әр кітап бағасының 10%- ін табыңдар.



3. Өлшемі 5х5 квадрат матрицаны [1, 10] арасындағы кездейсоқ сандармен толтырып:

Достарыңызбен бөлісу:
1   2   3   4   5




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет