И снова строки..., Массив элементов строки Опции

[Гость]

Задача.
В строке содержаться целые числа,разделенные запятыми. после последнего числа стоит точка. Создать массив из этих чисел.

{Строку вводим с клавиатуры. А потом выводим числа в строке}

Помогите!Не могу понять как создать этот массив...

[мисс_граффити]

В чем проблема? Как выделить числа из строки? Или как их перевести в числа?
вот эту темку читал(а)? Разбиение на слова. Все способы.

[Гость]

Да читала. И всё равно не могу понять,как выделить именно целые числа,если каждая цифра будет считаться как элемент строки.

[Malice]

Вот если по-простецки, то где то так:

..
i:=0; kl:=0;
fillchar(x,sizeof(x),0);
repeat
inc (i); inc (kl);
while s[i] in ['0'..'9'] do begin
x[kl]:=x[kl]*10+ord(s[i])-$30;
inc (i);
end;
until s[i]='.';
for i:=1 to kl do writeln (x[i]);

[Гость]

uses crt;
var  s,x:string; i,k1:integer;

begin
clrscr;
writeln('Vvedite stroku iz tselih chisel cherez zapyatuy,v kontse tochka');
readln(s);
for i:=1 to length(s) do
if (s[i]<>',') and (s[i]<>'.')then begin
inc(k1);
x[k1]:=s[i];
end;
for i:=1 to k1 do write(x[i],' ');
readln;
end.

Я попыталась сделать эту программу...Вот что получилось.Не могу понять как сделать чтобы выводились именно числа, а не цифры.Помогите!Подалуйста.

[мисс_граффити]

может, посмотришь на сообщение, которое оставил Malice?...

[Гость]

Вот что получилось.

У меня x не string, a array [1..255] of longint, что и дает возможно хранить числа, а не цифры.

[Артемий]

Что-то в коде не видно массива ^^^
Может так с массивом:

var
x: array [1..25] of longint;
i,j,n: Integer;
s,s1,s2: string;
begin
j:=1;
readln(s);
s2:=s;
for i:=1 to length(s) do begin
 if s[i] in [','] then begin
  s1:=copy(s2,1,pos(',',s2)-1);
  val(s1,x[j],n);
  delete(s2,1,pos(',',s2));
  inc(j);
 end else if s[i] in ['.'] then begin
  s1:=copy(s2,1,pos('.',s2)-1);
  val(s1,x[j],n); break;  end;
end;

Тут идет преобразование в числа, код не компактный , тебе выбирать..

[Malice]

Чтоб непоняток не было полностью приведу:

var x:array [1..255] of longint;
i,kl:integer;
s:string;
begin
{readln (s);}
s:='565,44325,6754,2134,5,34.';
i:=0; kl:=0;
fillchar(x,sizeof(x),0);
repeat
inc (i); inc (kl);
while s[i] in ['0'..'9'] do begin
x[kl]:=x[kl]*10+ord(s[i])-$30;
inc (i);
end;
until s[i]='.';
for i:=1 to kl do writeln (x[i]);
end.

[Гость]

Malice, я не могу понять,как ты вывел формулу x[kl]:=x[kl]*10+ord(s[i])-$30... то есть не понимаю почему $30 в конце. Объясни,если нетрудно. Спасибо за решение задачи.
Спасибо и Артемию
P.S. Сразу про решение задачи от Malice не написала,потому что набрать его в Паскале не было возможности(

[Malice]

Malice, я не могу понять,как ты вывел формулу x[kl]:=x[kl]*10+ord(s[i])-$30... то есть не понимаю почему $30 в конце.

$30 - это код символа "0", т.е. таким образом переводим символы от "0".."9" в числа 0..9.

[Гость]

Спасибо,теперь понятно.