Зертханалық жұмыс №10

Тақырыбы: Тармақталу командасы. RadioButton компоненті

Мақсаты: Тармақталу операторларын пайдаланып есептер шығарып үйрену;

Қажетті құралдар: 1. ДК /Pentium 3,4 Windows /

2. Borland Delphi 7.0

Тапсырмалар

RadioButton компонентін пайдаланып, геометриялық фигуралардың аудандарының формулалары жөнінде анықтамалық программа құру керек.

Жұмысты орындалу реті

1. Borland Delphi 7.0 бағдарламалау тілін іске қосыңыз

• Жаңа жоба ашыңыз.

• Формаға Memo1, RadioButton1, … RadioButton4, BitBtn2 когмпоненттерін орналастырыңыз.

• Компоненттер қасиеттеріне келесі мәндерді меншіктеңіз:

Компонент	Қасиет	Мән
Form1. RadioButton RadioButton RadioButton RadioButton BitBtn BitBtn	Caption Font Caption Caption Caption Caption Kind Kind	Геометриялық-анықтамалық Times Kaz, 11 Үшбұрыш Тіктөртбұрыш Дөңгелек Трапеция BkOk BkClose

• Формаңыз келесі түрде болуы керек

• Ok батырмасын екі рет шертіп, батырманың OnClisk оқиғасын өңдеуіш

процедурасын құру:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

If radioButton1.Checked then

Begin Memo1.Lines.Clear;

Memo1.Lines.Add('S-ah/2;');

Memo1.Lines.Add('a-3b t, h-biuk');

end;

If radioButton2.Checked then

Begin Memo1.Lines.Clear;

Memo1.Lines.Add('S=ab;');

Memo1.Lines.Add('a-3b t, h-biuk');

end;

If radioButton3.Checked then

Begin Memo1.Lines.Clear;

Memo1.Lines.Add('S=pi*r*r;');

Memo1.Lines.Add('a-3b t, h-biuk');

end;

If radioButton4.Checked then

Begin Memo1.Lines.Clear;

Memo1.Lines.Add('S-ah/2;');

Memo1.Lines.Add('a-3b t, h-biuk');

end;

end;

end.

• Бағдарлама кодының дұрыстығына көз жеткізіп, F9 тетігін басу арқылы бағдарламаны іске қосыңыз.

• Құрылған бағдарламаны сақтап, оқытушыға істелген жұмыс бойынша есеп беріңіз

ЖАТТЫҒУЛАР

«Тексеру» оқу бағдарламасын құрыңыз. Мұнда, «санды тап» ойынында бағдарлама кездейсоқ түрде 0...1000 аралығынан бүтін санды таңдап, есінде сақтайды. Пайдаланушы оны табуға тырысып, өзінің санын енгізеді. Енгізілген санды есте сақталған санмен салыстырып, бағдарлама компьютердің кездейсоқ таңдап, есіне сақтаған санның пайдаланушы енгізген саннан үлкен, кіші немесе тең екенін хабарлайды. Компьютердің таңдаған кездейсоқ саны табылғанша бағдарламада сен енгізу жалғастырылады.

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

1. Тармақталу командасының қандай нұсқалары бар?

2. RadioButton- қандай компонент?

3. RadioButton қай қасиеті арқылы анықталады?

4. Бір RadioButton батырмасын пайдалынып есептеулер жүргізуге бола ма?

5. Қандай блоктар операторлық жақшаға алынып жазылады?

Есеп беруге нұсқау

Есеп беру келесілерді қамтуы керек:

1. Жұмыстың тақырыбы мен мақсаты;

2. Тапсырмалар мен жаттығулардың орындалуы;

3. Дайындалған бағдарлама;

4. Жұмыс бойынша қысқаша қорытынды

Әдебиеттер

1. А. Я. Архангельский. Delphi 7.

2. М.М. Ерекешова, Т.А.Әмірғалиева Delphi ортасында программалау негіздері

3. Ю.А.Шпак Delphi 7 на примерах

4. К.З.Халықова Программалау тілдерін оқыту (Delphi)