Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2.

@Guzl · Регистрация: 19.10.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста!!!Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2.

@Sergiuz · 27.10.2010, 23:40

Guzl, поиск по форуму выведет тебя на такую вот тему
сортировки (by mik-a-el & other people)
уж если ты там че нить не поймешь вот тогда пиши попробуем более подробно объяснить

@Guzl · 28.10.2010, 14:17 **[ТС]**

Спасибо большое,но ничего,что он на паскале?

@Guzl · 31.10.2010, 16:07 **[ТС]**

там ничего не понятно

@Sergiuz · 01.11.2010, 09:45

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

Спасибо большое,но ничего,что он на паскале?

Ничего страшного ведь Delphi это и есть Object Pascal

там ничего не понятно

Что именно не понятно?

@Guzl · 01.11.2010, 16:50 **[ТС]**

вообще ничего

@John_Pa9JIbHuK · 01.11.2010, 16:56

Guzl, попробуйте поставить кодировку у браузера windows-1251 может у вас там отображается не правильно ))) Иначе не могу объяснить что там можно не понимать...

@Guzl · 01.11.2010, 17:10 **[ТС]**

спасибо,конечно,но если бы я понимала о чем вы говорите

Добавлено через 8 минут
получается,что мне нужно написать только это?
procedure FillInc( var A : mas );
var
i : Integer;
begin
for i := 1 to max do
A[i] := i;
end;

@Guzl · 08.11.2010, 19:00 **[ТС]**

предусматривается вывод процесса упорядочивания и результат в поле memo.Помогите пожалуйста!!!!!!!!

@Guzl · 09.11.2010, 19:24 **[ТС]**

может так?
procedure TfrmSortObmenami.Sort(var data: IntArray);

var
temp: Integer;
i,j,f: Integer;

begin
f:=0;i:=0;
while (f=0) do
begin
i:=i+1; j:=1;
while (data[j] <= data[j+1]) and (f=0) do
if (j < n-1)
then j:=j+1
else f:=1;

if f=0
then
begin
temp := data[j];
data[j] := data[j+1];
data[j+1] := temp;
end;

if f=0
then PrintPass(i, data);
end;

end;

@Guzl · 16.11.2010, 14:54 **[ТС]**

скажите пожалуйста,почему программа не работает?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
 var
  a:array[1..10] of integer;
  j:integer;
  i:integer;
  changed:boolean;
  buf:integer;
  s:string;
begin
 for i:=1 to 10 do
   a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
   repeat
   changed:=false;
   for i:=1 to 10 - 1 do
   if a[i]>a[i+1] then
     begin
       buf:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=buf;
       changed:=true;
       s:='';
 for j:=1 to 9 do S:=s + IntToStr(a[j]) + ' ';
 end;
 memo1.Lines.Add(s);
 end;
 until not changed;
    for i:=1 to 10 do s:=s + IntToStr(a[i]) + ' ';
 end;
end.

@narty90 · 08.12.2010, 15:30

дан массив из 15 элементов, вычислить сумму модулей отрицательных элементов.
Вот код:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const Nmax=15;
  type mas1=array[1..Nmax] of extended;
var
  Form1: TForm1;
  a:mas1;
  N,i,s,x:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('Лаб. раб. №7');
N:=15;
stringgrid1.RowCount:=16;
stringgrid1.Cells[0,0]:='массив x:';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 15 do
begin
a[i]:=strtofloat(stringgrid1.cells[0,i]);
if x[i]<0 then  x[i]:=x[i]+absx[i];
memo1.lines.add('Сумма модулей отрицательных элементов ='+floattostrf(x,fffixed,2,0));
end;
end;
end.

ПОМОГИТЬ, ПЛИЗЗЗЗЗЗ)))))))))))

@~~pavelr~~ · 08.12.2010, 20:39

так ты с каким массивом работаешь -А или Х?И кто так модуль пишет?

@narty90 · 08.12.2010, 20:42

вот переделанный, но он почему считает все по 0, если вводить отрицательные числа:::

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const Nmax=15;
  type mas1=array[1..Nmax] of extended;
var
  Form1: TForm1;
  a:mas1;
  N,i,s:integer;
  x:array[1..16] of real;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Add('Лаб. раб. №7');
N:=15;
stringgrid1.RowCount:=16;
stringgrid1.Cells[0,0]:='массив x:';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 15 do
begin
x[i]:=strtofloat(stringgrid1.cells[0,i]);
if x[i]<0 then  x[i]:=x[i]+abs(x[i]);
memo1.lines.add('Сумма модулей отрицательных элементов ='+floattostrf(x[i],fffixed,2,0));
end;
end;
end.

@~~pavelr~~ · 08.12.2010, 21:10

if x[i]<0 then s:=s+abs(x[i]);
а потом вывести эту сумму в Memo

@narty90 · 08.12.2010, 21:15

if x[i]<0 then s:=s+abs(x[i]) все равно ошибка

@~~pavelr~~ · 09.12.2010, 09:03

ну и где у тебя ошибка-то?

@~~pavelr~~ Заблокирован
	08.12.2010, 20:39	13
	так ты с каким массивом работаешь -А или Х?И кто так модуль пишет? 0

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
		1
	Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2. 27.10.2010, 17:50. Показов 3605. Ответов 16 Метки нет (Все метки) Помогите пожалуйста!!!Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2. 2

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	27.10.2010, 23:40	2
	Сообщение было отмечено как решение Решение Guzl, поиск по форуму выведет тебя на такую вот тему сортировки (by mik-a-el & other people) уж если ты там че нить не поймешь вот тогда пиши попробуем более подробно объяснить 3

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	28.10.2010, 14:17 [ТС]	3
	Спасибо большое,но ничего,что он на паскале? 1

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	31.10.2010, 16:07 [ТС]	4
	там ничего не понятно 1

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	01.11.2010, 09:45	5
	Сообщение от Guzl Спасибо большое,но ничего,что он на паскале? Ничего страшного ведь Delphi это и есть Object Pascal там ничего не понятно Что именно не понятно? 2

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	01.11.2010, 16:50 [ТС]	6
	вообще ничего 1

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	01.11.2010, 16:56	7
	Guzl, попробуйте поставить кодировку у браузера windows-1251 может у вас там отображается не правильно ))) Иначе не могу объяснить что там можно не понимать... 2

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	01.11.2010, 17:10 [ТС]	8
	спасибо,конечно,но если бы я понимала о чем вы говорите Добавлено через 8 минут получается,что мне нужно написать только это? procedure FillInc( var A : mas ); var i : Integer; begin for i := 1 to max do A[i] := i; end; 1

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	08.11.2010, 19:00 [ТС]	9
	предусматривается вывод процесса упорядочивания и результат в поле memo.Помогите пожалуйста!!!!!!!! 1

@Guzl 35 / 35 / 0 Регистрация: 19.10.2010 Сообщений: 70
	09.11.2010, 19:24 [ТС]	10
	может так? procedure TfrmSortObmenami.Sort(var data: IntArray); var temp: Integer; i,j,f: Integer; begin f:=0;i:=0; while (f=0) do begin i:=i+1; j:=1; while (data[j] <= data[j+1]) and (f=0) do if (j < n-1) then j:=j+1 else f:=1; if f=0 then begin temp := data[j]; data[j] := data[j+1]; data[j+1] := temp; end; if f=0 then PrintPass(i, data); end; end; 2

Опции темы

@~~pavelr~~ Заблокирован
	08.12.2010, 21:10	15
	if x[i]<0 then s:=s+abs(x[i]); а потом вывести эту сумму в Memo 0

@narty90 0 / 0 / 2 Регистрация: 06.12.2010 Сообщений: 12
	08.12.2010, 21:15	16
	if x[i]<0 then s:=s+abs(x[i]) все равно ошибка 0

@~~pavelr~~ Заблокирован
	09.12.2010, 09:03	17
	ну и где у тебя ошибка-то? 0

Дан одномерный массив а1,а2,...,аn.Упорядочить данный массив по возрастанию,используя алгоритм сортировки обменами 2.

Решение