Срочно нужна помощь по Delphi не позднее 25.04 - Страница 2

DDS · 22.04.2010, 18:26

Код:

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    SG1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
j, m ,x, k: Integer;
a,b:array[1..5]of integer;
i:byte;
s1,s2:string;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 5 do
  if Length(SG1.Cells[i-1, 0]) <>0
     then a[i] := StrToInt(SG1.Cells[i-1,0])
     else a[i] := 0;
{сортируем массив а}
   for i := 1 to 4 do
        begin
          m := i;
          x := A[i];
          for j := i + 1 to 5 do
            if x > A[j] then
              begin
                m := j;
                x := A[j];
              end;
            A[m] := A[i];
            A[i] := x;
        end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 for i:=1 to 5 do
  if Length(SG1.Cells[i-1, 0]) <>0
     then b[i] := StrToInt(SG1.Cells[i-1,0])
     else b[i] := 0;
     {сортируем массив b}
 for i := 1 to 4 do
        begin
          m := i;
          x := b[i];
          for j := i + 1 to 5 do
            if x > b[j] then
              begin
                m := j;
                x := b[j];
              end;
            b[m] := b[i];
            b[i] := x;
        end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  k:=0;
 for i:=1 to 5 do
    if a[i]=b[i] then inc(k);
 if k=5 then form1.Panel1.Caption:=' Можно '
         else form1.Panel1.Caption:=' Нельзя '
end;

end.

Я сделал со StringGrid вот так. Кнопка 1 для ввода 1-го массива, кнопка 2 для ввода 2 массива, кнопка 3 для выдачи результата.

Ciber · 24.04.2010, 15:46

Цитата:

Сообщение от DDS

Со StringGrid сделаю, а со второй задачей Вы разобрались?

Написал программу, но почему то не работает, вот код проги

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
CheckBox1: TCheckBox;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var m,n:integer;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then n:=1
else n:=strToint(Edit1.Text);
StringGrid1.RowCount:=n+1;
StringGrid2.RowCount:=n+1;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text='' then n:=1
else n:=strToint(Edit2.Text);
StringGrid1.ColCount:=n+1;
StringGrid2.ColCount:=n+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x:array [1..100, 1..100] of real;
s:array [1..100] of real;
i,j:integer;
begin
For i:=1 to n do
For j:=1 to m do
If CheckBox1.Checked:=True
then
begin
x[i,j]:=strToFloat (stringgrid1.Cells[j,i]);
StringGrid1.Enabled:=true;
end;
else
begin
x[i,j]:=random (11);
stringgrid1.Cells [j,i]:=FloatToStr (x[i,j]);
end;
For j:=1 to m do
begin
s[j]:=0;
for i:=1 to n do s[j]:=s[j]+x[i,j];
end;
For j:=1 to m do
Stringgrid2.Cells [j,i]:=FloatToStr [s[j]);
end;
end;

end.

что у меня не правильно никак не пойму, если можно напишите правильную версию проги)))

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070