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

Текст модуля

unit lab13;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm5 = class(TForm)

StringGrid1: TStringGrid;

StaticText1: TStaticText;

StaticText2: TStaticText;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15 TForm5;

a:array of real;

n:word;

implementation

{$R *.dfm}

procedure TForm5.Edit1Change(Sender: TObject);

var i:word;

begin

if Edit1.Text = '' then exit;

n:=StrToInt(Edit1.Text);

stringgrid1.ColCount:=n;

for i:=0 to n-1 do StringGrid1.Cells[i,0]:=inttostr(i);

SetLength(a,n);

end;

procedure TForm5.Button1Click(Sender: TObject);

var i:word;

Summ:real;

begin

Summ:=0;

For i:=0 to n-1 do begin

a[i]:=StrToFloat(StringGrid1.Cells[i,1]);

Summ:=Summ+a[i];

end;

Label2.Caption:= FloatToStr(Summ);

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

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