Számoljuk meg a sorok számát a fájlban, és a szavak számát és karakterek minden sor, a feladatokat, a
A forráskód Pascal programozási nyelv
var
f. szöveg;
s. string;
vonalon. chr. wrd. szó;
i. byte;
zászló. logikai;
kezdődik
rendelni # 40; f. 'Text.txt' # 41; ;
vissza # 40; f # 41; ;
vonalon. = 0;
miközben nem EOF # 40; f # 41; nem kezdődik
readln # 40; f. s # 41; ;
ír # 40; s. '-' # 41; ;
chr. = hossz # 40; s # 41; ;
ír # 40; chr. Karakterek. ' # 41; ;
wrd. = 0;
zászló. = False;
i. = 1 a Chr do
ha # 40; s # 91; én # 93; <> „” # 41; és # 40; flag = false # 41; ezután kezdődik
wrd. = Wrd + 1;
zászló. = True;
vég
más
ha s # 91; én # 93; = „” Akkor zászló. = False;
writeln # 40; wrd. 'F.' # 41; ;
végén;
közel # 40; f # 41; ;
writeln # 40; vonalon. 'P.' # 41; ;
végén.
Példa (k) a program a nyelvi Pascal
Helló világ. - 12 karakter. 2 ff.
Helló világ. - 20 karakter. 2 ff.
Egy, kettő, három - 15 karakter. 3 kk.
Egy, kettő, három - 24 karakter. 3 kk.
4 o.
megoldások főleg a Pascal programozási nyelv
A fájl a GNU / Linux környezetben fordító FreePascal. Orosz karakterek számítanak 2 karakter. Például, a példában a második sorban 9 cirill karakterek, a tér és felkiáltójel: 18 + 2 = 20 szimbólumok.
A forráskód a C programozási nyelv
#include
#include
#define N 255
legfontosabb # 40; # 41; # 123;
FILE * f;
char s # 91; N # 93; ;
előjel nélküli rövid sort. szó. zászló. i;
vonal = 0;
F = fopen # 40; "Text.txt". "R" # 41; ;
míg # 40; fgets # 40; s. N. f # 41; ! = NULL # 41; # 123;
vonal + = 1;
Szó = 0;
flag = 0;
mert # 40; i = 0; én
szó + = 1;
flag = 1;
# 125; más
ha # 40; s # 91; én # 93; == '' # 41; flag = 0;
printf # 40; "% S \ t% \ n ld karakter .. F .." s. strlen # 40; s # 41;. szó # 41; ;
# 125;
printf # 40; . "A lap. \ N". vonal # 41; ;
fclose # 40; f # 41; ;
# 125;
Példa (i) a program a nyelv a C
Helló világ.
13 Char. 2 ff.
Helló világ.
21 Char. 2 ff.
Egy, kettő, három
16 Char. 3 kk.
Egy, kettő, három
25 Char. 3 kk.
4 o.
megoldások különösen a C programozási nyelv
Ugyanez a „hatás”, mint a Pascal: cirill karakter számít 2.
fgets () függvény olvas egy vonalon egy szimbólum az átmenet egy új sort. N érv azt sugallja, nem több, mint a megadott szimbólumok számát, de a vonal hossza határozza meg a számát az olvasási (azaz, a tényleges hossza a húr).
A forráskód a Python programozási nyelv
F = nyitott # 40; 'Text.txt' # 41;
vonal = 0
for i in F:
vonal + = 1
flag = 0
szó = 0
j i:
ha J = '' és flag == 0:
szó + = 1
flag = 1
elif j == '':
flag = 0
nyomtatás # 40; i. len # 40; én # 41;. Karakterek. ". szó. 'F.' # 41;
nyomtatás # 40; vonalon. 'P.' # 41;
f. közel # 40; # 41;
Példa (i) a program Python
Helló világ.
13 Char. 2 ff.
Helló világ.
12 Char. 2 ff.
Egy, kettő, három
16 Char. 3 kk.
Egy, kettő, három
15 Char. 3 kk.
4 o.
megoldások főleg a Python programozási nyelv
jelképe az átmenet egy új sort kell figyelembe venni.
Forráskód programozási bálványok
használja a P Files
SAL
korai
intakt f. vonalon. szó. char. a. én
s világít
sor: = 0
szót: = 0
char: = 0
f: = nyílt leolvasási # 40; "Tekst.txt" # 41;
NC végéig a fájl # 40; f # 41;
Fvvod f. s
sor: = vonal + 1
következtetés s. ns
char: = char + hosszban # 40; s # 41;
in: = 0
NT-k i 1-től hosszúságban # 40; s # 41;
ha s # 91; én # 93; <> „” A = 0, majd
szót: = szó + 1
in: = 1
egyébként
ha s # 91; én # 93; = "" Van a: = 0 minden
minden
KC
KC
közel # 40; f # 41;
következtetést ns. "Lines -". vonalon. ns
következtetés „szavakat -”. szó. ns
kimenet „karakter -”. faszén
játék
Példa (i) a program olyan nyelven idol
Hello World.
Hello World.
5. 4.
sorok - 3
szó - 7
karakterek - 32
Különösen a probléma megoldásában idol között
Van úgy, hogy a teljes szavak száma és a karaktereket.
Forráskód Basic programozási nyelv
nyitott „text.txt”
ln = 0
miközben nem EOF
ln = ln + 1
s $ = readline
i = 1
szó = 0
flag = 0
míg én <= length(s$)
c $ = közepes (s $, i, 1)
ha c $ <> "" És flag = 0, akkor
Szó = szó + 1
flag = 1
más
ha c $ = "" majd flag = 0
endif
i = i + 1
endwhile
print $ s + hossz (s $) + "" + szó
endwhile
közel
print "Strings:" + ln
Példa (i) a program Basic
Helló világ.
13. 2
Helló világ.
12. 2
Egy, kettő, három
16. 3
Egy, kettő, három
15. 3
Display # 4