23.11.2010, 19:04 | #1 (permalink) |
Member
Регистрация: 17.10.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерные массивы
После того как я ввел числа в колонках нажимаю пуск и ничего не происходит, препод говорит что то с -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. |
23.11.2010, 19:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
С вашей темой имеются схожие темы, можете пролистать Массивы Qbasic не могу решить одномерные массивы.. |
11.12.2010, 20:00 | #3 (permalink) |
Member
Регистрация: 26.10.2010
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
если задача всё ещё нужна то вот
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|