Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Ввод-вывод элементов массива




Ввод и вывод массивов так же осуществляется поэлементно.

 

Алгоритм ввода массива

Алгоритм вывода массива

Ввод массива с помощью функции InputBox

procedure TForm1.Button1Click(Sender: TObject);

var i,n:byte;

X:array [1..20] of real;

begin

n:=StrToInt(Edit1.Text);

for i:= 1 to n do

X[i]:=StrToFloat(InputBox

('Ввод элементов массива',

'Введите '+IntToStr(i)+ '

элемент','0,00'));

end;

Результатом работы такой подпрограммы будет многократное появление на экране окна ввода:

Вывод с помощью функции MessageDlg:

for i:= 1 to n do

MessageDlg('X['+

IntToStr(i)+']='

+FloatToStr(X[i]),

MtInformation,[mbOk],0)

Здесь будет открываться отдельное окно для каждого элемента.

Чтобы у пользователя была возможность просматривать элементы массива одновременно, можно из них сформировать строку, а затем вывести ее, например, на форму или в окне сообщения.

var i,n:byte;

X:array [1..20] of real; S:string;

begin

S:='';

for i:=1 to n do

S:=S+FloatToStrF(X[i],

ffFixed,5,2)+' ';

Label2.Caption:=S;

S:='';

for i:=1 to n do

S:=S+FloatToStrF(X[i],

ffFixed,5,2)+chr(13);

MessageDlg(S,MtInformation,

[mbOk],0);

 

Компонент Таблица

Компонент, называется StringGrid и представляет собой таблицу, ячейки которой предназначены для чтения или редактирования данных.

Компонент находится в группе Additional панели инструментов.

Основные свойства компонента

 

Свойство Описание
BorderStyle Рамка таблицы: · bsNone – нет; · bsSingle – толщиной 1 пик.
Cells[C,R] Содержимое ячейки, находящейся в C столбце и R строке.
ColCount Кол-во столбцов.
RowCount Кол-во строк.
Cols[Ind] Элементы столбца с индексом Ind.
Rows[Ind] Элементы строки с индексом Ind
ColWidtht[Ind] Ширина столбца с индексом Ind.
RowHeights[Ind] Высота строки с индексом Ind.
DefaultColWidth Ширина столбца по умолчанию.
DefaultRowHeight Высота строки по умолчанию.
GridHeight Высота таблицы
GridWidth Ширина таблицы
GridLineWidth Толщина линий, расчерчивающих таблицу.
Options Параметры: goVertLine – наличие вертикальных линий; goHorzLine – наличие горизонтальных линий; goColSizing – возможность изменять размер столбца; goRowSizing – возможность изменять размер строки; goColMoving – возможность перемещать столбцы; goRowMoving – возможность перемещать строки; goEditing – возможность редактировать содержимое таблицы.
ScrollBars Определяет полосы прокрутки: ssNone – нет; ssHorizontal –горизонтальная; ssVertical –вертикальная; ssBoth –обе.

 

ПРИМЕР. Создать программу, с помощью которой можно осуществить ввод массива целых чисел, а затем вывести его в обратном порядке.

Разместим на форме надпись, поле ввода, две таблицы и одну кнопку.

Поле ввода определяет кол-во элементов в будущем массиве.

В первую таблицу будем вводить элементы заданного массива. Во вторую выводить преобразованный массив.

Свойства компонентов

 

Свойство StringGrid1 StringGrid2
Height (Высота)    
Width (Ширина)    
ColCount (Кол-во столбцов)    
RowCount (Кол-во строк)    
Options.goEditing (Редактировать) true false

 

Щелчок по кнопке Ok вызовет следующую подпрограмму:

procedure TForm1.Button1Click(Sender: TObject);

var n,i:integer;

X:array [1..10] of integer;

begin

n:=StrToInt(Edit1.Text);

for i:=1 to n do

X[i]:=StrToInt(

StringGrid1.Cells[i,0]);

for i:=1 to n do

StringGrid2.Cells[i,0]:=

IntToStr(X[n-i+1]);

end;

 






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных