mam do napisania program, ktory oczekuje na pwisanie dowolnego zdania, nastepnie informuje z ilu liter i ilu wyrazow sklada sie wpisane zdanie. UWAGA! spacja nie jest litera...
program zaczyna sie w ten sposob:
program abc; uses crt; var zdanie:string; i:byte; begin clrscr; writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu'); writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.'); writeln; writeln('UWAGA=spacja nie jest litera.'); writeln; writeln('Wpisz dowolne zdanie: '); readln(zdanie);
i teraz nie wiem co dalej, jak to zrobic ?
vegixa
Program abc; uses crt; var zdanie:string; i,litery,wyrazy:byte;
begin clrscr; writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu'); writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.'); writeln; writeln('UWAGA=spacja nie jest litera.'); writeln; writeln('Wpisz dowolne zdanie: '); readln(zdanie); for i := 1 to length(zdanie) do if zdanie[i] <> ' ' then litery := litery+1; wyrazy := length(zdanie)-litery+1;
Writeln('Liter w zdaniu jest: ',litery); Writeln('Wyrazow w zdaniu jest: ',wyrazy);
uses crt;
var zdanie:string;
i,litery,wyrazy:byte;
begin
clrscr;
writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu');
writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.');
writeln;
writeln('UWAGA=spacja nie jest litera.');
writeln;
writeln('Wpisz dowolne zdanie: ');
readln(zdanie);
for i := 1 to length(zdanie) do
if zdanie[i] <> ' ' then litery := litery+1;
wyrazy := length(zdanie)-litery+1;
Writeln('Liter w zdaniu jest: ',litery);
Writeln('Wyrazow w zdaniu jest: ',wyrazy);
readln;
end.