|
O'zbekiston respublikasi oliy va o'rta maxsus ta'lim vazirligi
|
| bet | 110/175 | | Sana | 20.01.2024 | | Hajmi | 11,5 Mb. | | #141749 |
Bog'liq Informatika va AT SardorVar i,j,cod:integer;
A:array[1..4,1..4] of Real;
S:real; s1:String;
begin
For i:=1 to 4 do
For j:=1 to 4 do
Val(StringGrid1.cells[i-1,j-1],a[i,j],cod);
S:=0;
For i:=1 to 4 do
For j:=1 to 4 do
s:=s+a[i,j];
Str(s:7:2,s1);
Memo1.Clear;
Memo1.Lines.add('Summa ='+s1);
s:=s/4/4;
Str(s:7:2,s1);
Memo1.Lines.add('Ortacha='+s1);
end;
4.Tuzilgan loyiha (proekt) ya’ni Project1 va Unit1 standart modul nomlarini mos nomlar bilan almashtirib saqlaymiz.
5.YAngi nom bilan saqlangan proekt, ya’ni ilova F9 tugmachasini bosish bilan ishga tushuriladi.
Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda namayon bo‘ladi.
Tashkil qilingan modulning to‘liq ko‘rinishini keltiramiz.
unit j1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var i,j,cod:integer;
A:array[1..4,1..4] of Real;
S:real; s1:String;
begin
For i:=1 to 4 do For j:=1 to 4 do
Val(StringGrid1.cells[i-1,j-1],a[i,j],cod);
S:=0;
|
| |
