Witam
Napisałem taki oto programik do zliczania długości łańcucha. Niestety po podaniu wyrazu nic się nie dzieje. Proszę o pomoc ;)
function dlugosc (lan : array of char) : byte;
var d:byte;
begin
d:=0;
while (lan[d] <> '\0') do inc(d);
result:=d;
end;
var wyraz:array [1..50] of char;
begin
repeat
writeln('podaj wyraz');
readln(wyraz);
writeln('dlugosc wynosi', dlugosc(wyraz));
until wyraz = '.';
readln;
end.
Dlaczego nie używasz typu string i gotowej funkcji Length()?
W twoim kodzie jest tyle błędów, że nie chce mi się ich wymieniać. Oto poprawiona wersja:
function dlugosc (lan : pchar) : byte;
var d:byte;
begin
d:=0;
while (lan[d] <> #0) do inc(d);
result:=d;
end;
var wyraz:array [0..49] of char;
begin
repeat
writeln('podaj wyraz');
readln(wyraz);
writeln('dlugosc wynosi ', dlugosc(wyraz));
until wyraz = '.';
readln;
end.
Ale nie tak powinien wyglądać kod w Pascalu. Użyj po prostu stringa.
Dzięki :)
Jakby komuś kiedyś było potrzebne to działający program na stringu z funkcją:
function dlugosc (lan : string) : byte;
begin
result:= length(lan);
end;
var wyraz:string;
begin
repeat
writeln('podaj wyraz');
readln(wyraz);
writeln('dlugosc wynosi', dlugosc(wyraz));
until wyraz = '.' ;
writeln('koniec programu');
readln;
end.
Nie dość, że ta funkcja:
function dlugosc (lan : string) : byte;
begin
result:= length(lan);
end;
jest zbędna, to jeszcze nie obsługuje w pełni łańcuchów typu String - rozmiar tego łańcucha może być znacznie większy niż 255 znaków, więc typ Byte jako wartość zwracana jest błędna;
Poza tym nie ma sensu kombinować z własnymi nakładkami - lepiej po prostu poznać RTL;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.
