Ćwiczenie 115 doc


Ćwiczenie 115.

Napisać program obliczający liczbę słów w pliku tekstowym.

program Project5;

{$APPTYPE CONSOLE}

uses

SysUtils;

VAR

tekst:String[80];

t:text;

a:char;

slowo : string;

liczba: integer;//

ilosc: integer; //

BEGIN

assign(t, 'plik.txt');

reset(t);

ilosc:=0;

while not eof(t) do

begin

slowo := '';

REPEAT

read(t,a);

if (a > ' ') and (a <> ',') then slowo:=slowo+a;

UNTIL (a<=' ') or (a=',');

liczba:=Length(slowo);

if(liczba>0)then

ilosc:=ilosc+1;

end;

Close(t);

readln;

END.



Wyszukiwarka

Podobne podstrony:
Biofizyka ćwiczenie M1 doc
pytania z cwiczen z hist doc
Ćwiczenie 27B doc
ćwiczenie 15 (wstęp teoretyczny,opis wykonania ćwiczenia,obl doc
Ćwiczenia nr 6 (1) doc
Cwiczenia 8 gr1 (2) doc
Cwiczenie 91d (2) DOC
Ćwiczenie 3 09 doc
ćwiczenie proj doc
CWICZENIE 33 B (2) DOC
Ćwiczenia nr 1 doc
CWICZENIE 81 C (2) DOC
ćwiczenie 7 (opis wykonania ćwiczenia i obliczenia) doc
Ćwiczenie 113 doc
ćwiczenie 10 (2) doc
Ćwiczenie nr 5 doc
ćwiczenie 1 (opis wykonania ćwiczenia i obliczenia) doc
ćwiczenie 19 (wykonanie ćwiczenia i obliczenia) doc
ćwiczenie 15 (2) doc

więcej podobnych podstron