Codul sursă în limbajul de programare Pascal
var
f. text;
s. șir de caractere;
line. Cro. wrd. cuvânt;
i. octet;
pavilion. boolean;
începe
atribui # 40; f. 'Text.txt' # 41; ;
restabili # 40; f # 41; ;
line. = 0;
în timp ce nu EOF # 40; f # 41; începeți
readln # 40; f. s # 41; ;
scrie # 40; s. '-' # 41; ;
Cro. = lungime # 40; s # 41; ;
scrie # 40; Cro. „caractere. ' # 41; ;
wrd. = 0;
pavilion. = false;
pentru i. = 1 pentru a face asta
dacă # 40; s # 91; eu # 93; <> „“ # 41; și # 40; flag = false # 41; apoi începe
wrd. = wrd + 1;
pavilion. = adevărat;
capăt
altfel
dacă s # 91; eu # 93; = '' atunci pavilion. = false;
writeln # 40; wrd. 'F.' # 41; ;
se încheie;
închide # 40; f # 41; ;
writeln # 40; line. 'P.' # 41; ;
end.
Exemplu (exemple) de executare a programului în Pascal
Bună ziua. - 12 caractere. 2 sl.
Bună ziua. - 20 de caractere 2 sl.
Unu, doi, trei - 15 caractere. 3 sl.
Unu, doi, trei - 24 de caractere. 3 sl.
4 pagini
Caracteristicile soluției în limbajul de programare Pascal
Fișierul este executat în mediul GNU / Linux, compilatorul FreePascal. Caracterele rusești sunt considerate ca fiind 2 caractere. De exemplu, în acest exemplu, al doilea rând conține 9 simboluri chirilice, un spațiu și un semn de exclamare: 18 + 2 = 20 de caractere.
Codul sursă în limbajul de programare C
#include
#include
#define N 255
principal # 40; # 41; # 123;
FILE * f;
caracterele # 91; N # 93; ;
linie scurtă nesemnată. cuvânt. pavilion. i;
line = 0;
f = fopen # 40; "Text.txt". "R" # 41; ;
în timp ce # 40; fgets # 40; s. N. f # 41; ! = NULL # 41; # 123;
linia + = 1;
cuvânt = 0;
flag = 0;
pentru # 40; i = 0; eu
cuvânt + = 1;
flag = 1;
# 125; altfel
dacă # 40; s # 91; eu # 93; == '' ' # 41; flag = 0;
printf # 40; "% s \ t% ld simfcd. \ n". s. strlen # 40; s # 41;. cuvânt # 41; ;
# 125;
printf # 40; "\ n". linie # 41; ;
fclose # 40; f # 41; ;
# 125;
Exemplul (exemplele) executării programului în limba C
Bună ziua.
13 caractere 2 sl.
Bună ziua.
21 de caractere 2 sl.
Unu, doi, trei
16 Char. 3 sl.
Unu, doi, trei
25 de caractere 3 sl.
4 pagini
Caracteristicile soluției în limbajul de programare C
Același "efect" ca în Pascal: simbolul chirilic este considerat ca 2.
Funcția fgets () citește un șir împreună cu caracterul liniei noi. Argumentul N nu vă permite să numărați mai mult decât numărul specificat de caractere, dar lungimea șirului este determinată de numărul de citiri (adică de lungimea efectivă a șirului).
Codul sursă în limba de programare Python
f = deschis # 40; 'Text.txt' # 41;
line = 0
pentru i în f:
linia + = 1
flag = 0
cuvânt = 0
pentru j in i:
dacă j! = '' și flag == 0:
cuvânt + = 1
flag = 1
elif j == '':
flag = 0
imprimare # 40; i. Len # 40; eu # 41;. 'caractere.'. cuvânt. 'F.' # 41;
imprimare # 40; line. 'P.' # 41;
f. închide # 40; # 41;
Exemplu (e) pentru executarea unui program în Python
Bună ziua.
13 caractere 2 sl.
Bună ziua.
12 caractere 2 sl.
Unu, doi, trei
16 Char. 3 sl.
Unu, doi, trei
15 caractere 3 sl.
4 pagini
Caracteristicile soluției în limba de programare Python
Se ia în considerare caracterul de linie nouă.
Cod sursă în limba de programare KuMir
utilizați fișierele
SAL
devreme
integer f. line. cuvânt. char. în. eu
aprins
line: = 0
cuvânt: = 0
char: = 0
f: = deschis pentru citire # 40; "Tekst.txt" # 41;
nc până la sfârșitul dosarului # 40; f # 41;
Fwvod f. s
linia: = linia + 1
ieșire s. ns
char: = char + lungimi # 40; s # 41;
în: = 0
nc pentru i de la 1 la lungime # 40; s # 41;
dacă s # 91; eu # 93; <> "" și in = 0 atunci
cuvânt: = cuvânt + 1
în: = 1
altfel
dacă s # 91; eu # 93; = "" apoi în: = 0 toate
toate
KC
KC
închideți-vă # 40; f # 41;
ieșire ns. "linii -". line. ns
ieșirea de "cuvinte -". cuvânt. ns
ieșirea de "simboluri -". mangal
joc
Exemplu (exemple) de executare a programului în limba Kumir
Bună ziua.
Bună ziua.
5. 4.
rânduri - 3
cuvinte - 7
caractere - 32
Caracteristicile soluției problemei în mediul Qumir
Iată numărul total de cuvinte și simboluri.
Cod sursă în limba de programare de bază
deschideți "text.txt"
ln = 0
în timp ce nu eof
ln = ln + 1
s $ = readline
i = 1
cuvânt = 0
flag = 0
în timp ce i <= length(s$)
c $ = mijloc (s $, i, 1)
dacă c $ <> "" și pavilion = 0 atunci
cuvânt = cuvânt + 1
flag = 1
altfel
dacă c $ = "" atunci flag = 0
endif
i = i + 1
endwhile
print s $ + lungime (s $) + "," + cuvânt
endwhile
închide
tip "Linii:" + ln
Exemplu (e) de executare a programului în limba de bază
Bună ziua.
13. 2
Bună ziua.
12. 2
Unu, doi, trei
16. 3
Unu, doi, trei
15. 3
Linia: 4