Delphi ортасында программалау негіздері

№1. Standart  ж?не Additional  ?осымшаларыны? компоненттерін  пайдаланып келесі суретті салы?ыз.

№2. Button1, Label1 компоненттерін форма?а орналастырып,  «Мені? батырмам» батырмасын бас?анда, «С?лем Астана!» с?зі шы?атындай «Мені? ба?дарламам» атты ?олданба жаса.

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:='Салем Астана!';

end;

3. Button1, Label1, Edit1 компоненттерін орналастырып ?олданба жаса. Button1 компонентін OnClick  о?и?асымен ??де. Сонда пішін терезесіні? та?ырыбы енгізілген м?тін жолдарына ауысатын болсын.

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Caption:=Edit1.Text;

end;

4. Пішінге  Button1, Button2, Label1, Edit1 компоненттері орналас?ан ?олданба ??р. Button1 батырмасын бас?анда Edit1-де «Ала?ай!, орындалды!» с?зі шы?атын болсын. Button2 батырмасын бас?анда ?олданба терезесі жабылсын.

procedure TForm1.Button1Click(Sender: TObject);

begin

        Edit1.Text:='Алакай, орындалды!';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

5. Суреттегі пішіндегідей ?олданба жаса. «С?лем» батырмасын бас?анда белгіде /Label1-де/ с?лемдесу хабарламасы шы?сын. «Тазалау» батырмасын бас?анда хабарлама жойылсын. «Шы?у» батырмасы бойынша терезе жабылсын.

6. Суреттегідей ?олданба ??растыр. Батырмаларды бас?анда Label1-де с?йкесінше хабарламалар шы?ып отырсын. WordWrap ?асиеті true болатындай ?згерт. Терезе ?шін BorderIcons ?асиеттері: biMinimise=false, biMaximise=false деп белгіле.

Батырма атауы

Label1-де шы?атын хабарлама м?тіні

А?парат

?о?амды? ?мірде кездесетін кез-келген м?ліметтер жиынты?ы

Информатика

А?паратты? процестерді зерттейтін ?ылым.

Интерфейс

Адам мен компьютер арасында?ы ?арым – ?атынас

Процессор

А?паратты ??дейтін ??рыл?ы, компьютер «ж?регі».

Интернет

Б?кілд?ниеж?зілік ?рмек, а?парат орталы?ы.

№7 «Тенгені доллар?а айырбастау»  ?олданбасын ??растыр. ?ажетті компоненттер: Edit1, Edit2, Edit3,

Button1, Label1, Label2, Label3.

Енгізілген жолды на?ты сан?а айналдыру функциясы:  StrToFloat(EditN.Text);

procedure TForm1.Button1Click(Sender: TObject);

  var  T, k, N:real;

begin

  T:=StrToFloat(Edit1.Text);

  k:=StrToFloat(Edit2.Text);

  N:=T/k;

  Edit3.Text:=FloatToStr(N)+ ' доллар';

end;

№8  Квадрат те?деуді шешуге ?олданба ??растыр.

procedure TForm1.Button1Click(Sender: TObject);

var A,B,C:single;

    D, X1, X2:real;

begin

  A := StrToInt(Edit1.Text);

  B := StrToInt(Edit2.Text);

  C := StrToInt(Edit3.Text);

  // Дискриминантты есептеу

  D := B*B - 4*A*C;

  if D < 0 then

    begin

    Label5.Caption:='те?деуді? на?ты т?бірі жо?';

    end

    else

      begin

      X1 := (-B-sqrt(D))/(2*A);     X2 := (-B+sqrt(D))/(2*A);

      // м?ндерін шы?ару

      Label5.Caption := 'X1 = '+FloatToStr(X1)+Chr(13)+ 'X2 = '+FloatToStr(X2);

      end;

end;