Главная » Delphi, Исходники, Массивы » Определение индекса положительного числа в одномерном массиве из 5 чисел
Ноя
12

Определение индекса положительного числа в одномерном массиве из 5 чисел

Программа должна выводить индексы всех положительных чисел которые мы вводим в массив.
У нас дано пять чисел 2, -3, 62, -23, 5 (числа любые, это неважно) им автоматически присваиваются индексы, для 2 он будет равен 1, для -3 — 2, для 62 — 3, -23 — 4 и 5 — 5. Но суть программы в выводе только положительных чисел. То есть в итоге программа нам выведет индексы 1, 3, 5 — так как они не отрицательны.

Внешний вид программы:

Вот сам исходник:

[sourcecode language=»css»]
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ExtCtrls, StdCtrls;
type
TMainForm = class(TForm)
MainGrid: TStringGrid;
Cbutton: TButton;
IndexPanel: TPanel;
procedure CbuttonClick(Sender: TObject);
procedure MainGridKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.CbuttonClick(Sender: TObject);
var
index: integer;





begin
IndexPanel.Caption:=»;
for index:=0 to MainGrid.ColCount-1 do
if StrToInt(MainGrid.Cells[index,0])>=0 then
IndexPanel.Caption:=IndexPanel.Caption+IntToStr(index)+’ ‘;
end;
procedure TMainForm.MainGridKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8, ‘0’..’9′: ;
#13: if MainGrid.Col < MainGrid.ColCount-1
then MainGrid.Col:= MainGrid.Col+1;
‘-‘:
if Length(MainGrid.Cells[MainGrid.Col, 0]) <> 0
then Key:= Chr(0);
else Key:= Chr(0);
end;
end;
end.
[/sourcecode]

Скачать исходник программы, и уже откомпилированную программу для Определение индекса положительного числа в одномерном массиве из 5 чисел.

Постовой:
Если вы не знаете как создать блог, заходите на сайт Wpnew, где вы найдете очень много информации по созданию блога на WordPress, оптимизации блога с сети интернет, заработку на нем и многое другое.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.