Ezt a két feladatot hogy csinálnátok meg tp-ben? /sürgös/

Ezek nagyon egyszerű feladatok string kezelésre. Talán ha mutatnál kódot, hogy hol tartasz, akkor kicsit jobban menne a segítés. A szóközök kiszedését pl. az alábbi függvénnyel is megoldhatod:

function szokozkiszed(s : string):string;

var tmpstr : string;

i : integer;

begin

for i:=1 to length(s) do

begin

if s[i]<>' ' then tmpstr:=tmpstr+s[i];

end;

szokozkiszed:=tmpstr;

end;

Írsz egy összead függvényt ami 2 string-et vár paraméterül és egy strinet ad vissza.

function nagyszamOsszead(a,b:string):string;

Ha az egyik rövidebb kitoldod kezdeti 0-kal úgy hogy azonos hosszúak legyenek, az eredeti string-ekre ez nincs hatással ...

A maradék változót 0-ra iniciaizálod, az összeget tároló stringet ''-re, ha szükséges akkor egyéb változókat is inicializálsz.

Hátulról előre vissza végigmész egy for ciklussal az a és b stringen, és karakterenként a reprezentált számértéket összeadod maradékot kiszámolod, kiszámolod a számjegy értékét átalakítod karakterré hozzáfűzöd az összeget tároló string végéhez, kiszámolod az új maradékot.

Ha a for ciklus lefutása után nem 0 a maradék akkor ezt az osszeget tárolt string elejéhez fűzöd.

10:56

Ja tényleg. Akkor meg pofon egyszerű.