Pascal

[Fiesta_Life]

пожалуйста,срочно!!!!!!помогите решить задачку (Pascal)
Пользователь вводит строку чисел через запятую например, -5,89,3.6,789,437,-7
записать эти числа в массив

[booktiger]

На VB так, для Pascal принцип такой же

'глбальные переменные
Dim mass(50) As String
Public StartPosition As Long 'начальная позиция считывания строки
Public EndPosition As Long  'конечная позиция считывания строки
Dim i As Long  'индекс массива

Private Sub Form_Load()
'инициализация пер-х
 StartPosition = 1
 EndPosition = 1
 i = 0
End Sub

Private Sub TextBox1_Change()
  If Right(TextBox1.Text, 1) = "," Then 'считываем последнюю букву если она равна ","
  
    EndPosition = Len(TextBox1.Text) 'конечная позиция равна длинне строки
    
        'ф-ция MID() считывает символы начиная со StartPosition и длинной
        'равной EndPosition - StartPosition
    mass(i) = Mid(TextBox1.Text, StartPosition, EndPosition - StartPosition)
    
    i = i + 1 'увиличиваем приращение массива на 1
    StartPosition = EndPosition + 1 'начальная позиция равна конечной +1 для следующей итерации

  End If
End Sub

Private Sub Command1_Click()
'перебираем массив
 For i = 0 To UBound(mass) - 1
 Debug.Print mass(i)
 Next i
End Sub

[DragonDr]

На VBA можно просто писать функцию Split
например Arr = Split("1,2,3,4,5", ",")

Добавлено через 3 минуты
А для Delphi используйте функцию
function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
делает все что нужно и результат возвращает в TString

[stefanovs]

var
s: string;
a: array [0..100] of integer;
i: integer;
begin
readln(s);
i := 0;
while (s <> '') do begin
if (Pos(',', s) = 0) then begin
a[i] := StrToInt(s);
s := '';
end else begin
a[i] := Copy(s, 1, Pos(',', s)-1);
Delete(s, 1, Pos(',', s));
end;
Inc(i);
end;
end;

[Paradoksov]

Цитата: Сообщение от stefanovs a: array [0..100] of integer;

Цитата: Сообщение от stefanovs a[i] := Copy(s, 1, Pos(',', s)-1);

Так не бывает.