Lista 2 zad 8 - mgr Dudek ?? - www.ispwsznysa.fora.pl

Forum www.ispwsznysa.fora.pl Strona Główna

www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

Lista 2 zad 8 - mgr Dudek ??

Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Siwy
Gaduła

Dołączył: 02 Gru 2007
Posty: 93
Przeczytał: 0 tematów

Wysłany: Wto 9:55, 04 Gru 2007 Temat postu: Lista 2 zad 8 - mgr Dudek ??

zapodajcie to zadanie, bo potrzebne jest do listy 4, trzeba zrobic jego modyfikacje, a jak sie go nie ma to ciężko, z góry dzieki

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

roy
Administrator

Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów

Skąd: Głuchołazy

Wysłany: Wto 15:32, 04 Gru 2007 Temat postu:

Kod:

program zad8;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
napis:string;
i,znaki,wyrazy,n:integer;

begin
writeln('Wprowadz tekst');
readln(napis);
znaki:=0;
wyrazy:=0;
n:=length(napis);
for i:=1 to n do
begin
if napis[i]<>(' ') then
inc(znaki);
if napis[i]=(' ') then
begin
if napis[i-1]<>(' ') then
inc(wyrazy);
end;
end;
if napis[n]<>(' ') then
wyrazy:=wyrazy+1;
if napis[1]=(' ') then
wyrazy:=wyrazy-1;
writeln('Ilosc znakow = ',znaki);
writeln('Ilosc wyrazow = ',wyrazy);
writeln;
for i:=1 to n do
begin
if napis[i]=(' ') then
begin
if napis[i-1]<>(' ') then
writeln;
end
else write(napis[i]);
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

program stramika

Powrót do góry

Wyświetl posty z ostatnich:

	Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I	Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

Skocz do:

Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

Regulamin