Tu fciu StrToInt si musis napisat sam(inak ona je v pascal helpe napisana), moze vyzerat takto :
Kód:
function StrToInt(value : string) : integer;
var code, num : integer;
begin
Val(value, num, code);
StrToInt := num;
end;
a este by som povedal nieco k tomu tvojmu programu :
Mas tam 1 logicku chybu, ze ak v tom retazci je cislo 0, tak ho nezaregistrujes, teda neinkrementujes pocet cislic...
Takze tu je kompletna verzia tvojho programu :
Kód:
program bodka;
uses crt;
var veta:string;
i,suc,poc:integer;
function StrToInt(value : string) : integer;
var code, num : integer;
begin
Val(value, num, code);
StrToInt := num;
end;
begin
clrscr;
writeln('zadaj vetu');
readln(veta);
writeln('pocet znakov vo vete je',length(veta)); {zisti pocet znakov vo vete}
poc:=0;
suc:=0;
for i:=1 to length(veta) do
if (veta[i] in ['0'..'9']) then begin
inc(poc); {zisti pocet cislic}
inc(suc, StrToInt(veta[i])); {zisti sucet cislic}
end;
writeln('pocet cislic vo vete je ',poc);
writeln('sucet cislic vo vete je ',suc);
readln;
end.
zajtra sem hodim zdrojovy kod a presne zadanie ulohy...
