VPF::[Delphi] выборка из массива - Форум программистов

screep

Дата 15.6.2008, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.6.2008

Репутация: нет
Всего: нет

Код


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;
zd:array[1..16]of string=(' А6ГТШ',' А7ГТШ',' А7ГТШ-ТЛ',' А7Ш',' А9ГТШ-ТЛ',' А9Ш',' ЗТСШ1-172',' ЗТСШ1-195','ЗТСШ1-195ТЛ',' ЗТСШ-195',' ЗТСШ-240',' Т12МЗБ-195',' Т12МЗБ-215',' Т12МЗБ-240',' Т12МЗЕ-172',' ТС5Е-172');
ch:array[1..16]of integer=(280, 265, 250, 520, 230, 420, 505, 400, 355, 485, 420, 660, 545, 660, 625, 500);
l:array[1..16]of integer;
i,n:integer;
sred,sre:real;

implementation
{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:=' № шифр забойного двигателя частота '+#13;
i:=1;
for i:=1 to 16 do
begin
str:=str+format('%3d',[i])+' '+format('%28s',[zd[i]])+format('%26d',[ch[i]])+' '+#13;

end;
label1.Caption:=str;


end;




procedure TForm1.Button2Click(Sender: TObject);

Var s:real;
begin
s:=0;

for i:=1 to 16 do
begin
s:=s+ch[i];
sre:=s/16;
end;

Edit1.Text:=floattostr(sre);

end;



procedure TForm1.Button3Click(Sender: TObject);
var
i,k,h:integer;
str:string;
begin
i:=1;
k:=1;
StringGrid1.Cells[0,0] := 'N';
StringGrid1.Cells[1,0] := 'шифр ЗД';
StringGrid1.Cells[2,0] := 'частота<среднего';
h:=0;

for i:=1 to 16 do
begin
if ch[i]<sre then
begin
h:=h+1;
ch[h]:=i;
end;
end;
for i:=1 to h do
begin
StringGrid1.Cells[0,k] := floattostr(ch[i]);
StringGrid1.Cells[1,k] := zd[(ch[i])];
StringGrid1.Cells[2,k] := floattostr(ch[(ch[i])]);

inc(k);

end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Close;
end;

end.

___________________________________________________________

user posted image

а должен показывать значения из массива ch, которые ниже sre (в данном случае sre=445)
работу я переделывал с другого варианта, поэтому мого остаться что-то лишнее, поэтому же, имхо, и ошибка. я чесслово оч устал уже, не первый день влипаю))

зы: сам проект

Это сообщение отредактировал(а) screep - 15.6.2008, 17:04

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »