VPF::Задача по массивам - Форум программистов

AzeTon

Дата 8.6.2006, 12:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Не как не могу справиться с задачей, помогите пожалуйста!

Условие задачи: Дана последовательность произвольных целых чисел. Определить в последовательности номера и значения наибольшего и наименьшего элементов и поменять их местами. Вывести номера найденных элементов в последовательности и результат обработки последовательности.

Albinos_x

Дата 8.6.2006, 13:48 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

и чего не получается?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

AzeTon

Дата 8.6.2006, 14:34 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Albinos_x

Дата 8.6.2006, 16:43 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(AzeTon @ 8.6.2006, 14:34

)

подскажите как!

перебираешь последовательность (одномерный массив) ищешь максимальный и минимальные элементы, при нахождении запоминаешь позицию... делаешь новую последовательность, но с заменой элементов максимального и минимального... выводишь исходную и полученную...
для ввода и вывода последовательности лучше использовать StringGrid, номеров максимального и минимального элемента - можно взять Label или Edit...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

comtat

Дата 21.6.2006, 13:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Пробуй

Код

unit Max_min;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    StringGrid2: TStringGrid;
    GroupBox2: TGroupBox;
    StringGrid1: TStringGrid;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid2KeyPress(Sender: TObject; var Key: Char);
begin
 // только числа
 if ((Key<#48) or (Key>#57)) then Key:=#0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 // только числа
 if ((Key<#48) or (Key>#57)) then Key:=#0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 StringGrid2.ColCount:=UpDown1.Position;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j,n,m:integer;
    max,min:integer;
    status:boolean;
begin
// проверка StringGrid
status:=true;
for i:=0 to StringGrid2.ColCount-1 do
 if ((StringGrid2.Cells[i,0]='')and(status)) then
  begin
    MessageDlg('Ошибка!!! Не введено число', mtError, [mbOk], 0);
    status:=false;
    break;
  end;

if (status) then
 begin
 StringGrid1.ColCount:=StringGrid2.ColCount;
  max:=0; min:=1000000000;
  for j:=0 to StringGrid2.ColCount-1 do
   begin
    if (max<=StrToInt(StringGrid2.Cells[j,0])) then
      begin
        max:=StrToInt(StringGrid2.Cells[j,0]);
        n:=j;
      end;
    if (min>=StrToInt(StringGrid2.Cells[j,0])) then
      begin
        min:=StrToInt(StringGrid2.Cells[j,0]);
        m:=j;
      end;
    StringGrid1.Cells[j,0]:=StringGrid2.Cells[j,0];
   end;
  StringGrid1.Cells[n,0]:=StringGrid2.Cells[m,0];
  StringGrid1.Cells[m,0]:=StringGrid2.Cells[n,0];
  
  Label3.Caption:=IntToStr(max)+' под номером '+IntToStr(n+1);
  Label4.Caption:=IntToStr(min)+' под номером '+IntToStr(m+1);
 end;

end;

end.

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

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