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

Текст модуля

unit lab13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, orms,

Dialogs, StdCtrls;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Label5: TLabel;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var

s,sn,e,x,ch,f:real;

i:integer; rez:string;

begin

x:=StrToFloat(Form4.Edit1.Text);

e:=StrToFloat(Form4.Edit2.Text);

s:=0;i:=0;ch:=-x;f:=1;

repeat

i:=i+1; ch:=ch*(-x);f:=f*i; sn:=ch/f; s:=s+sn

until abs(sn)<e;

rez:= rez+'Сума= '+FloatToStr(s)+

' член ряду= '+FloatToStr(sn)+ ' i='+IntToStr(i);

label5.Caption :=rez;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.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. Абсолютні синоніми (наприклад, власне мовні й запозичені) в одному тексті ділового стилю вживати не рекомендується.

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