Форманың терезесі Delphi қандай тілдегі атауларды қабылдайды тек қана латын



бет11/14
Дата07.01.2022
өлшемі104 Kb.
#19697
1   ...   6   7   8   9   10   11   12   13   14
Байланысты:
ООП Delphi каз очники

TPanel

Жоба файлының кеңейтілуі:

dpr

Форма файлының кеңейтілуі:

Dfm

Бағдарламаның нәтижесі қандай? procedure TForml.ButtonlClick(Sender: TObject); var a, b,c : integer; begin a:=StrToInt(Editl.Text); b:=StrToInt(Edit2.Text); с:=StrToInt(Edit3. Text); a:=a+b; c:= a-b; Label 1. Caption :='a= "+IntToStr(a)+ "b= "+IntToStr(b)+ "c= "+IntToStr(c); Егер енгізу үшін мына сандар берілсе: 12; 13; 14

а=25 b=13 с=12

Бағдарламаның нәтижесі қандай? procedure TForml.ButtonlClick(Sender: TObject); var a, b,c : integer; begin a:=StrToInt(Editl .Text); b:=StrToInt(Edit2.Text); с:=StrToInt(Edit3. Text); Label 1. Caption:=' a= "+IntToStr(a+b)+ "b= "+IntToStr(b div 2)+ "c= "-rlntToStr(c-lO); Егер енгізу үшін мына сандар берілсе: 5; 15; -2

a=20 b=7 с=-12

Бағдарламаның нәтижесі қандай? procedure TForml.ButtonlClick(Sender: TObject); var a, b,c : integer; begin b:=a-5; c:=b-a; Labell.Caption:='a= "+IntToStr((a+b) div 4)4- "b= "+IntToStr(b)+ "c= "+IntToStr(c); Егер енгізу үшін мына сандар берілсе: -10; 4; 6



Достарыңызбен бөлісу:
1   ...   6   7   8   9   10   11   12   13   14




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

    Басты бет