readln

BBUlet · Napísal **BBUlet**: 01.12.2010 13:56 | readln

Zdravim, potreboval by som pomoct, dajme tomu ze uzivatel zada vstup "5 4 3 6 4.." pocet cisiel alebo stringu nepoznam... da sa to precitanim nejak rozdelit do pola? ze bude array[0]=5 a tak...diki moc

walther · Napísal **walther**: 01.12.2010 14:05 | readln

samozrejme že áno, delimiter je medzera a potom len cez foreach naplníš pole aké len chceš

BBUlet · Napísal autor témy **BBUlet**: 01.12.2010 14:07 | readln

mozes prosimta uviest priklad? od vcera hladam riesenie...

walther · Napísal **walther**: 01.12.2010 14:10 | readln

jazyk?

BBUlet · Napísal autor témy **BBUlet**: 01.12.2010 14:11 | readln

pascal..

walther · Napísal **walther**: 01.12.2010 15:24 | readln

ok. a teda čo si zatiaľ urobil? čo konkrétne ti nejde?

BBUlet · Napísal autor témy **BBUlet**: 01.12.2010 15:26 | readln

proste to neviem rozdelit do pola.. hladam to od vcera..

walther · Napísal **walther**: 01.12.2010 15:38 | readln

napísal som ti, podľa čoho to máš rozdeliť..
napr ti stačí upraviť tento kód a máš to hotové: http://free-pascal-general.1045716.n5.n ... 18466.html
3 sekundy strávené na googli

BBUlet · Napísal autor témy **BBUlet**: 01.12.2010 15:43 | readln

vo free pascale mi to nechce ist... asi mam nieco pridat do uses vsak.. len neviem nazov..btw to riesenie zo stringlistom som nasiel ale tomu sa chcem vyhnut

Ďuri · Napísal **Ďuri**: 01.12.2010 16:33 | readln

Co takto

Kód:

i := 0; { alebo 1 }
while not eoln do begin
   read(pole[i]);
   inc(i);
end;

Keby si nacitaval nie cisla, ale char-y, musis preskakovat medzery.

coldak · Napísal **coldak**: 01.12.2010 20:26 | readln

na splitnutie uz nacitaneho retazca mozes pouzit TStringList

Kód:

uses
  SysUtils,Classes;
 var
   List:TStringList;
   i : integer;
begin
    List:=TStringList.Create;
    List.Delimiter:=' ';
    List.DelimitedText:='5 6 8 7 9';
    for i := 0 to List.Count - 1 do
      WriteLn(List.Strings[i]);
    read(i);

end.