МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
Листинги программ к лабораторной работе 1unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Button1: TButton; Label4: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure edit1keypress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1;
implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var r,h,v,s: real; begin r:=strtofloat(edit1.Text); h:=strtofloat(edit2.Text); s:=pi*sqr(r); v:=s*h; label3.Caption:='площадь основания равна'+floattostrf(s,ffgeneral,7,2); label4.Caption:='объем цилиндра равен'+floattostrf(v,ffgeneral,7,2); end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.edit1keypress(Sender: TObject; var Key: Char); begin If key=#13 then Edit2.SetFocus; end; end.
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Memo1: TMemo; Button1: TButton; Button3: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var r,h,s,vkon,vcil:real; begin r:=strtofloat(edit1.Text); h:=strtofloat(edit2.Text); s:=r*r*pi; vkon:=s*h/3; vcil:=s*h; memo1.Lines.Add('объем конуса равен: '+floattostr(vkon)); memo1.Lines.Add('объем цилиндра равен: '+floattostr(vcil)); end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin edit1.Clear; edit2.Clear; memo1.Clear; end; end. Приложение Б
|
||||||||
|