Алгоритми та програми ч.1

вікно

меню

форма

проєкт

заголовок елемента керування

ім′я елемента керування

колір

Редактор тексту

Інспектор об'єктів

Вікно форми

Вікно повідомлень

заголовок елемента керування

ім′я елемента керування

колір

begin - end

for - to -do

while - until

begin - аnd

StrToFloat

StrToInt

IntToStr

FloatToStr

StrToFloat

FloatToStr

StrToInt

IntToStr

вхідні

проміжні

компіляційні

вихідні

OnMouseMove

OnClick

OnKeyPress

DblClick

Edit1.Top:=Edit1.Top-20;

Edit1.Top:=20;

Edit1.Caption:=Edit1.Text;

Edit1.Left:=Edit1.Left-20;

label1.Caption:=FloatToStr(а);

label1.Caption:=StrToFloat(а);

Edit1.Caption:=StrToFloat(а);

procedure TForm1.Button2Click(Sender: TObject);

var a, d:real;

begin

a:=StrToFloat(Edit2.text);

d:=a*(4+a*a);

end;

procedure TForm1.Button2Click(Sender: TObject);

var a,d:real;

begin

a:=FloatToStr(Edit2.text);

d:=a*(4+a*a);

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,d:real;

begin

a:=FloatToStr(Edit2.text);

d:=a*(4+a*a);

end;

Виводить у напис число 35.

Виводить у напис букву s.

Виводить у поле число 35.

Edit1.Color:=clyellow;

Edit1.Color:=clred;

Edit1.Color:=clorange;

Edit1.Color:=clblue;

Edit1.Font.Size:=12;

Edit1.Top:=Edit1.Top-20;

Edit1.Font:=12;

Edit1.Font.Size:=15;

чи видимий даний об'єкт у вікні

натискання будь-якої клавіши на клавіатурі

чи доступний об'єкт для операції над ним

закривання під час завершення виконання проєкту

вибір будь-якої точки об'єкта

чи видимий даний об'єкт у вікні

закривання під час завершення виконання проєкту

чи доступний об'єкт для операції над ним

натискання будь-якої клавіши на клавіатурі

вибір будь-якої точки об'єкта

1

2

3

4

1

2

3

4

Кнопка доступна для операцій

Кнопка недоступна для операцій

Кнопка невидима у вікні

Кнопка видима у вікні

Label1.Captіon := Бажаю успіху!;

Label1.Color = clYellow;

Label1.Font.Color := clBlue;

Button1.Width := 40

Form1.Width := 150;

Form1.Width := Form1.Width + 150;

Form1.Height := 150;

Form1.Height := Form1.Height+150;

Form1.Width := 350;

Form1.Width := Form1.Width-350;

Form1.Height := 350;

Form1.Height := Form1.Height-350;

Edit1, Label1, Button1

Label1, Label2, Button1

Edit1,Button1, Button2

Edit1,Edit2,Button1

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Top:=150;

form1.Color:=clBlue;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label.Top:=150;

Label1.Color:=clBlue;;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label.Top:=150;

Label1.Font.Color:=clBlue;;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Width:= Form1.Width+300;

Form1.Left:=100;

ShowMessage ('Ми вивчаємо програмування!');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Height:= Form1. Height +300;

Form1.Left:= Form1.Left +100;

ShowMessage ('Ми вивчаємо програмування!');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Width:= Form1.Width +300;

Form1.Left:= Form1.Left+ 100;

Form1.Caption:='Ми вивчаємо програмування!';

end;

procedure TForm1.Button1.Click(Sender: TObject);

var a, b, s:real;

begin

a:=StrToFloat(Edit1.text);

b:=StrToFloat(Edit1.text);

s:= (a+b) * (a-b).

end;

procedure TForm1.Button2Click(Sender: TObject);

var a, b, s:real;

begin

a:= StrToFloat (Edit1.text);

b:= StrToFloat (Edit1.text);

s:= (a+b) * (a-b).

end;

procedure TForm1.Button1.Click(Sender: TObject);

var a, b, s:real;

begin

a:= FloatToStr (Edit1.text);

b:= FloatToStr (Edit1.text);

s:= (a+b) * (a-b).

end;