Компоненттің аты Қасиетінің аты Мәні Form1
Caption
Үшбұрыштың ауданын есептеу
Memo1
Lines
Үшбұрыштың ауданын биіктігі мен табаны бойынша есептейтін программа
құрыңыз
Label1
Caption
Биіктік
Label2
Caption
Табан
Label3
Caption
Үшбұрыштың ауданы
Edit1
Text
Edit2
Text
Edit3
Text
Button1
Caption
Есептеу
«Есептеу» деп аталатын батырмаға екі рет шертіліп, пайда болған терезеге келесі код
жазылады:
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int biktik, taban;
float audan;
biktik=StrToInt(Edit1->Text);
taban=StrToInt(Edit2->Text);
audan=float(biktik*taban)/2;
Edit3 ->Text=FloatToStr(audan);
}
Ӛзіндік жұмыс тапсымалары Келесі мазмұндағы есептерді шеше алатын қосымша құрыңыз:
1. Пирамиданың кӛлемін табу.
2. Үш қабырғасы бойынша үшбұрыштың ауданын есептеу.
3. Параллелипедтің кӛлемін есептеу.
4. Тізбектің жалпы кедергісін есептеу (параллель қосылған).
5. Трапецияның ауданын есептеу.
