алгоритм

← →
ДЯМАК © (2006-05-20 17:24) [0]

Здравствуйте Мастера! Наконец-то я перевожусь со своей специальности ( программное обеспечение) ну не моё ето!!! На экономику, но чтоб перевестись нужно ещё доучиться на ПО, а посему прошу помочь мне, если не затруднит вот в каком задании: дана матрица A(N,N), в каждой строке поменять местами наибольший и наименьший элементы , текст самой проги у меня есть вот он

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
Label1: TLabel;
Memo2: TMemo;
Label2: TLabel;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
type
TMatrix=array of array of integer;

var
Arr : TMatrix;
rowcol : integer=10;

procedure RandomMatrix(var M:TMatrix; r:integer);
var
i,j :integer;
g: Integer;
begin
Randomize;
SetLength(M,r,r);
g := r*r;
for i:=0 to r-1 do
for j:=0 to r-1 do
M[i,j]:=random(g);
end;

procedure ArrayToMemo(A : TMatrix; Mem:TMemo);
var
i, j :integer;
s:string;
begin
for i:=Low(A) to High(A) do
begin
s:="";
for j:=Low(A) to High(A) do
s := s + Format("%4.2d",[A[i,j]]);
Mem.Lines.Add(s);
end;
end;
procedure ArraySort(var A : TMatrix);
var
i, j, Temp, Min, Max :integer;
begin
for i := Low(A) to High(A) do
begin
Min := Low(A);
Max := Min;
for j := Succ(Low(A)) to High(A) do
if A[i, Min] > A[i, j] then
Min := j
else
if A[i, Max] < A[i, j] then
Max := j;
if Min <> Max then
begin
Temp := A[i, Min];
A[i, Min] := A[i, Max];
A[i, Max] := Temp
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
TryStrToInt(Edit1.Text,RowCol);
// Здесь если RowCol=0 можно вывести предупреждение
// и выйти
RandomMatrix(Arr,rowcol);
ArrayToMemo(Arr,Memo1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.Add("==Результат==");
ArraySort(Arr);
Memo2.Clear;
ArrayToMemo(Arr, Memo2);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

но мне к нему нужно составить алгоритм

← →
ДЯМАК © (2006-05-20 17:51) [1]

Ну помогите плиз!

← →
Virgo_Style © (2006-05-20 18:03) [2]

> TryStrToInt(Edit1.Text,RowCol);

Бомба непредсказуемого действия с замедленным управлением (с)

← →
ДЯМАК © (2006-05-20 19:20) [3]

Ну что же не кто не поможет, чтоли!

← →
Leonid Troyanovsky © (2006-05-21 18:12) [4]

> ДЯМАК © (20.05.06 19:20) [3]

> Ну что же не кто не поможет, чтоли!

А что будет, если никто не поможет?
Т.е., ты останешься программером?
Дык, оставйся, ты не одинок.

--
Regards, LVT.

← →
десятиклассник (2006-05-21 19:05) [5]

ДЯМАК, а где ты учишься? у нас это в 10-ом классе делают. я его сейчас заканчиваю

← →
десятиклассник (2006-05-21 19:12) [6]

const n= {допустим} 50; type diap=1..n; var A:array[diap,diap] of integer {или что-нибудь ещё}; x,y,min,max:diap; begin ... //заполняешь A for y:=1 to n do begin min:=1; max:=2; for x:=1 to n do begin if A[x,y]<A[min,y] then min:=x; if A[x,y]>A[max,y] then max:=x; end; buf:=A[min,y]; A[min,y]:=A[max,y]; A[max,y]:=buf; end; end;

← →
jb (2006-05-21 19:16) [7]

Знаете я когда-то я так настрадался от таких (которые как заладят: "Ну не шарю я в этом." или "Ну сделай мне лабу..."), достали вы блин, вы что думаете програмист престижная профессия с красивым названием и все, не пройдет тут думать надо!!! За чем ты вообще на ПО пошел?

← →
palva © (2006-05-21 22:43) [8]

А чего он просит, не пойму никак.
Чем алгоритм отличается от программы? Программа у него уже есть. И чего дальше?

← →
Virgo_Style © (2006-05-21 23:00) [9]

ДЯМАК © (20.05.06 17:24)
дана матрица A(N,N), в каждой строке поменять местами наибольший и наименьший элементы

Алгоритм:

Для каждой строки
Найти наибольший элемент
Найти наименьший элемент
Поменять

Если это не алгоритм этой (этой ли? требуемой, скажем точнее) программы, киньте в меня камень

← →
ДЯМАК © (2006-05-28 11:24) [10]

Алгоритм нужен в виде блок- схемы

← →
Ega23 © (2006-05-28 12:05) [11]

> Алгоритм нужен в виде блок- схемы

Ну так возьми и нарисуй, делов-то. Нужно всего лишь чуть-чуть мозга.

← →
Юрий Зотов © (2006-05-28 12:28) [12]

> Ega23 © (28.05.06 12:05) [11]
> Нужно всего лишь чуть-чуть мозга.

Экономисту? Это новость.
:о)

← →
Ega23 © (2006-05-28 12:40) [13]

> Экономисту? Это новость.

вообще-то мозг не помешает даже ассенизатору. А то он (ассенизатор) будет кидаться в прохожих, мнэ-э-э... "продуктом".

>Ну так возьми и нарисуй, делов-то. Нужно всего лишь чуть-чуть мозга.

Ну не соображаю я в ютом программировании, ну помогите, очень надо!
Ну это же недолго, просто я полный ламер, и вообще случайно блин на это по попал, меня при поступлении не туда записали, ну пожалуйста, ну нарисуйте эту блок-схему, а то нужно до зачёта допуститься, а без этого практического задания ну никак!

> Ну не соображаю я в ютом программировании, ну помогите,
> очень надо!
> Ну это же недолго, просто я полный ламер, и вообще случайно
> блин на это по попал, меня при поступлении не туда записали,
> ну пожалуйста, ну нарисуйте эту блок-схему, а то нужно
> до зачёта допуститься, а без этого практического задания
> ну никак!
>

сколько?

Вот из-за экономистов, которые выбрали себе профессию не по интересу, а по крутости и баблоносности (ну, так как ты на программера пошел, наверное) - вот у нас с экономикой странные штуки творятся не первое десятиление уже. Зачем нам еще один такой экономист? Не буду я тебе помогать. Оставайся лучше программером. Так безопаснее. Буду летать на закодированных тобой самолетах.

Тем кто не справился с программированием, лучше в экономисты не идти.

Короче всё кул! Спасибки, что не помогли, я сам всё разгрёб, попыхтел денёк над алгоритмом, разобрался, оказалось, что проще простого эти лажёвые проги составлять, просто до этого я ваще не в чё вникать не хотел, решил остаться программистом, это ж КРУТО, тока летом всё нужно кардинально поменять в жизни, буду теперь учиться!

← →
Просто зашел (2006-06-03 11:09) [19]

А-ха-ха-га! Всех уел! :))))

алгоритм Найти похожие ветки