Помогите плиз. надо всё в PascalAbc.net. Created by ernesto13. informatika-ru

Помогите плиз. надо всё в PascalAbc.net...

December 2021 1 16 Report

Помогите плиз. надо всё в PascalAbc.net

Answers & Comments

Giammy //PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
Println('Периметр=',ReadInteger+ReadInteger+ReadInteger);
end.

2)
begin
var r:=ReadInteger('r=');
Println('Площадь=',3.1415*sqr(r)); Println('Длина окружности=',2*3.1415*r);
end.

3)
uses FormsABC;
var a,b,res:realfield;
procedure plus:= res.Value := a.Value + b.Value;
procedure min:= res.Value := a.Value - b.Value;
procedure umn:= res.Value := a.Value * b.Value;
procedure delit:= res.Value := a.Value / b.Value;
begin
MainForm.SetSize(250,175);
a := new RealField('a:');
b := new RealField('b:');
LineBreak;
EmptySpace(40);
var p:=new Button('+'); p.Width:=25; p.Click+= plus;
var m:=new Button('-'); m.Width:=25; m.Click+= min;
var u:=new Button('*'); u.Width:=25; u.Click+= umn;
var d:=new Button('/'); d.Width:=25; d.Click+= delit;
res := new RealField('Результат',220);
end.

1 votes Thanks 1

Answers & Comments

сделайте плиз сочинение и 2 задание...

Преобразуйте в многочлен 1) (x+2)^32)(n-3)(n^3+3n+9)3)(y-4)^24)(m-3)^35)(x+3)^26...

преобразуйте в многочлен 1) (x+2)^32)(n-3)(n^3+3n+9)3)(y-4)^24)(m-3)^35)(x+3)^26...

Преобразуйте в многочлен 1) (x+2)^32)(n-3)(n^3+3n+9)3)(y-4)^24)(m-3)^35)(x+3)^26...

плиз задание 1 сочинение...

1) (x+2)^32)(n-3)(n^3+3n+9)3)(y-4)^24)(m-3)^35)(x+3)^26)(d+1)(a^2-a+1)...

сделайте плиз...

Плиз помогите всё в PascalAbc.net...

Плиз помогите. Всё надо в PascalAbc.net...

рекомендуемые вопросы

Helpful Links

Helpful Social