программа с векторами на Delphi

[ace93]

Постановка задачи: разработать приложение для работы с векторами. При разработке приложения использовать следующие компоненты: MainMenu, OpenDialog, SaveDialog, UpDown. По нажатию соответствующих кнопок должны происходить запись и чтение из файла вектора и его размерности. Вывод полученных результатов должен осуществляться на отдельную форму. Должны быть обработаны все некорректные случаи ввода исходных данных.

Само задание:
1. Найти произведение элементов с четными индексами.
2. Найти наибольший положительный элемент вектора.
3. Сортировка методом парного обмена.


Внизу вложено программа и задание. ( Там более подробно описана тема и задание).
Если будете делать программу, то скиньте пожалуйсто всю программу, т.е. Unit и Progect.
Можете скинуть программу на E-mail: ace93@inbox.ru

Заранее Спасибо.
( Пожалуйсто, последнее задание на Delphi в этом симестре, я ничего не смыслю в програмировании).

[Leshii]

Вам во фриланс, и тем более туда же, если не умеете и делать сами не хотите.
Ну, а если вы готовы будете заплатить, то милости прошу, скайп указан.

[ace93]

Вот программа, но она не работает её надо исправить и дописать.

procedure TForm1.Button1Click(Sender: TObject);
const
  SIZE = 5;
var
  a: array[1..SIZE] of integer;
  k: integer; // текущий элемент массива
  i: integer; // индекс для ввода и вывода массива
  changed: boolean; // TRUE, если в текущем цикле были обмены
  buf: integer; // буфер для обмена элементами массива
begin
  // ввод массива
  for i := 1 to SIZE do
    a[i] := StrToInt(StringGrid1.Cells[i - 1, 0]);
  label2.caption := '';

  // сортировка массива
  repeat
    Changed := FALSE; // пусть в текущем цикле нет обменов
    for k := l to SIZE - 1 do
      if a[k] > a[k + l] then
      begin // обменяем k-й и k+1-й элементы
        buf := a[k]; a[k] := a[k + l]; a[k + l] := buf;
        changed := TRUE;
      end;

    // вывод массива
    for i := l to SIZE do
      Label2.caption := label2.caption + ' ' + IntTostr(a[i]);
    Label2.caption := label2.caption + #13;
  until
    not changed; // если не было обменов, значит

  // массив отсортирован
  Label2.caption := label2.caption + #13 + 'Maccив отсортирован.';
end;
  procedure TForm2.Button2Click(Sender: TObject);
  min:=A[1,1];
  posMin:=1;
  for i:=2 to n do
    if min>A[i,i] then
    begin
      min:=A[i,i];
      posMin:=i;
    end;
  Writeln(#13#10'Min = ', min:4:2);

  for i:=1 to n do
    B[i]:=A[i,posMin];

  for i:=1 to n do
    for j:=1 to m-1 do
      if B[j]>B[j+1] then
      begin
        t:=B[j];
        B[j]:=B[j+1];
        B[j+1]:=t;
      end;
  Writeln(#13#10'Sorted vector B = ');
  for i:=1 to n do
    writeln(B[i]:4:2, ' ');

  for i:=1 to n do
  begin
    t:=A[i,2];
    A[i,2]:=A[i,4];
    A[i,4]:=t;
  end;

  Writeln(#13#10'Result matrix - ');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(A[i,j]:4:2,'   ');
    Writeln;
  end;
  readln;
end;

procedure TForm3.Button3Click(Sender: TObject);
close;
end;
end.

Пожалуйсто, исправьте программу. И потом саму прогу сбросьте на E-mail: ace93@inbox.ru ( Т.е. сбросьте Unit1 и Progect1).
Заранее Спасибо.

[Вадим Мошев]

ace93

Внизу вложено программа и задание. ( Там более подробно описана тема и задание).
Если будете делать программу, то скиньте пожалуйсто всю программу, т.е. Unit и Progect.
Можете скинуть программу на E-mail: ace93@inbox.ru

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

Кончайте троллить, слишком толсто.

[Anton94.by]

Сообщение от Вадим Мошев

ace93

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

Кончайте троллить, слишком толсто.

Напишу в защиту ace93 у него сома прога написанна, конечно вродебы есть ошибки ( я сам не сильно разбираюсь в делфи).
Но если не хочешь, то не отправляй прогу и не делай. Зачем писать разную ерунду.

[Anton94.by]

ace93 эта прога которую ты выложил, только для:
2. Найти наибольший положительный элемент вектора.
3. Сортировка методом парного обмена. ( но и то вроде с ошибками).

А для: 1. Найти произведение элементов с четными индексами. В вашей проге ничего не написанно.

[ace93]

Да, я знаю что программа только для 2 и 3 пункта. А для первого пункта я незнаю куда вставлять и даже что ниписать для "1. Найти произведение элементов с четными индексами." Поэтому и выложил сюда, что есть. Чтобы что-то исправили и дописали. А т.к. большинство это делают в программе поэтому и попросил скинуть на E-mail что у них получится, т.к. думаю что сюда наверное нельзя будет выложить те файлы.