Question

Pomocy!! ;((

1. napisz program w turbo pascalu, który obliczy, z ilu wyrazów składa się wprowadzony tekst(zakładamy, że jest to zdanie składające się z wyrazów oddzielonych spacjami oraz zakończone kropką).

2. napisz program(w turbo pascalu), który będzie czytał tekst z klawiatury (zdanie składające się z wyrazów oddzielonych spacjami, zakończone kropką) i wyprowadzi każdy wyraz w oddzielnym wierszu.

zadanie musi zawierać wszystkie części (deklaracyjną, zmienne itp) i za najlepiej rozpisane daję max. oczywiście program musi działać!!

Answer 1

Pascal ssie no ale niech stracę ;)

program jeden;

var:
napis:string;
i,licznik:Integer;

begin
licznik:=0;
wrinteln('Napisz zdanie');
readln(napis);
for i:=1 to napis[0] do begin
if (napis[i]=' ') or (napis[i]='.') then licznik:=licznik+1;
end;
writeln(licznik, ' slow');
end.



program dwa;

var:
napis:string;
i:Integer;

begin
wrinteln('Napisz zdanie');
readln(napis);
for i:=1 to napis[0] do begin
if (napis[i]=' ') or (napis[i]='.') then writeln
else write(napis[i]);
end;
end.

Pisałem "z palca" ale powinno sie kompilować. Jak nie to pisz PW.