Одномерные массивы
Нужна помощь в доработке программы. Delphi формы:
После того как я ввел числа в колонках нажимаю пуск и ничего не происходит, препод говорит что то с -1 больше нуля не может быть, но я чет так и не понял его вод сам код: {Все отрицательные элементы массива X перенести в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов. Дополнительный массив не заводить.} unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; sgInput: TStringGrid; Button2: TButton; Button3: TButton; sgOut: TStringGrid; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:array[1..100] of real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var //a :array of integer; i:integer; begin //setLength(a, sgInput.RowCount - 1); sgout.RowCount:=sginput.RowCount; for i := 1 to sgInput.colCount - 1 do if strtoint(sgInput.Cells[1,i])>0 then sgout.Cells[1,i]:=sgout.Cells[1,i]; end; procedure TForm1.Button2Click(Sender: TObject); begin sginput.rowcount:=sginput.rowcount+1; end; procedure TForm1.Button3Click(Sender: TObject); begin sginput.rowcount:=sginput.rowcount-1; end; end. |
неужто никто не поможет?
|
Вложений: 1
если задача всё ещё нужна то вот
|
Часовой пояс GMT +4, время: 10:12. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.