Delphi. Задачка по одномерным массивам.

[deni3x]

Сообщение от Вавел из ГМТУ

У нас задание "Длинна массива 12. Тип элементов char"

min : unteger;

если сделать так, то выбивает

Incompatible types: 'Integer' and 'Char'

[Вавел из ГМТУ]

Я в 7 посте написал про фу-ю Ord.
Нужно преобразовывать символ в числовое значение...

[deni3x]

я не умею пользоваться этой функцией

[russian-stalker]

Вот так компилится:

procedure TForm1.Button1Click(Sender: TObject);
const n=12;
var
a:array[1..n] of char;
i,nmin:integer;
min:real;
begin
for i:=1 to n do
a[i]:=StringGrid1.Cells[1-1,0][1];
min:=strtoint(a[1]);
nmin:=1;
for i:=2 to n do
if min>strtoint(a[i]) then
min:=strtoint(a[i]);
nmin:=i;
end;

[Вавел из ГМТУ]

Хм.... Ord(a[i])

[deni3x]

Сообщение от russian-stalker

Вот так компилится:

procedure TForm1.Button1Click(Sender: TObject);
const n=12;
var
a:array[1..n] of char;
i,nmin:integer;
min:real;
begin
for i:=1 to n do
a[i]:=StringGrid1.Cells[1-1,0][1];
min:=strtoint(a[1]);
nmin:=1;
for i:=2 to n do
if min>strtoint(a[i]) then
min:=strtoint(a[i]);
nmin:=i;
end;

компилиться то компилится, но не работает...

[Вавел из ГМТУ]

Хватит уже тупить....

Var
  M : Array [1..5] of Char = ('a', 'b', 'c', 'd' ,'a');
  i, Min, N : Integer;
Begin
Min := Ord(M[1]);
N := 1;
For i := 2 To 5 Do
  If Ord(M[i]) < Min Then
    Begin
      Min := Ord(M[i]);
      N := i;
    End;
Writeln(M[N], ' = ',N);
Readln;
End.