• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Текст модуля

unit lab_12;

interface

uses

y:=1.25*sqrt(abs(x)

y:=x+1.3

y:=sqrt(-x*x+cos(x)+1)

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

label 1;

var

st:string;

a,b,x,y,c,max,min: real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

max:=-maxint;

min:=maxint;

x:=a;

st:=' Результати роботи програми '+#13;

1: if x<-0.1 then y:=1.25*sqrt(abs(x));

if (x>=-0.1) and (x<0.1) then y:=x+1.3;

if x>=0.1 then y:=sqrt(-x*x+cos(x)+1);

st:= st+' x='+floatToStr(x)+' '+'y='+floatToStr(y)+#13;

label6.Caption:=st;

if y<min then min:=y;

if y>max then max:=y;

x:=x+c;

if x<=b then goto 1;

label7.Caption := 'min='+floatToStr(min);

label8.Caption := 'max='+floatToStr(max);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

form3.close;

end;

end.

Читайте також:

1. I. Почитайте и переведите текст
2. I. Прочитайте и переведите текст
3. I. Прочитайте и переведите текст.
4. I. Прочитайте и переведите текст.
5. I. Прочитайте и переведите текст.
6. I. Прочитайте и переведите текст.
7. II.5. Анотування і реферування текстів; анотаційний та реферативний переклад
8. III. Аудіювання тексту з метою розуміння
9. III.4 Форматування тексту.
10. VI. Перепишите и письменно переведите текст.
11. А. Підготуйте і запишіть висновки-рекомендації для автора, який перекладає текст з російської мови на українську.
12. Абсолютні синоніми (наприклад, власне мовні й запозичені) в одному тексті ділового стилю вживати не рекомендується.

Переглядів: 407