Zaciatocnicky problem – Pascal – Fórum – Programujte.com

prosim o radu mam taky banalny problem, v textovom subore mam udaje v takomto tvare:
mo1 +2.3
mo2 -3.5
mo3 -4.1
mo4 +5.6
...
ako mam urobit aby mi do samostatnej premennej nacitalo mo1 potom do dalsej premennej + alebo - a do dalsej to cislo?

Slo by to treba takto

readln(file,radek);

prvnipolozka=radek[1]+radek[2]+radek[3];

znamenko=radek[4]; { tady nevim , kdybys tam mel mezeru tak tady bude 5, a dalsi cisla by byly +1 }

val(radek[5]+radek[6]+radek[7],cislo,code);

To don_Dominique:ok diki a jako je to s tym cislom? tomu tvojmu poslednemu riadku moc nerozumiem.

ja řešil něco podobného v delphi

readln(file,radek);

for i:=0 to length(radek) do if radek[i]=' ' then begin j:=i; break; end;

mo1:=strToFloat(copy(radek,j+1,length(radek-1));

...a tak dále

Doporučuju spíš tohle:

program Nacitani;

const max = 20;

      soubor = 'test.txt';

var cislo:array[1..max] of real;

    txt:array[1..max] of string[4];

    f:text;

    i,j:integer;

begin

Assign(f,soubor);

Reset(f);

i:=0;

while (not Eof(f)) and (i<max) do

   begin

   i:=i+1;

   read(f,txt[i]);

   readln(f,cislo[i]);

   writeln('text c.',i,': ',txt[i]);

   writeln('cislo c.',i,': ',cislo[i]:3:3);

   end;

Close(f);

readln;

end.

2 pista: Val(S:string;var V:real;code integer);
Prevede Retezec S na cislo a ulozi do V , v případě chyby vrací číslo chyby.
jestli si myslel to radek[5]+.... to ti složí ze znaků to realne číslo ( např "2"+"."+"3"="2.3")