Вихідний код на мові програмування Pascal
var
f. text;
s. string;
line. chr. wrd. word;
i. byte;
flag. boolean;
begin
assign # 40; f. 'Text.txt' # 41; ;
reset # 40; f # 41; ;
line. = 0;
while not EOF # 40; f # 41; do begin
readln # 40; f. s # 41; ;
write # 40; s. '-' # 41; ;
chr. = length # 40; s # 41; ;
write # 40; chr. 'Симв. ' # 41; ;
wrd. = 0;
flag. = False;
for i. = 1 to chr do
if # 40; s # 91; i # 93; <> '' # 41; and # 40; flag = false # 41; then begin
wrd. = Wrd + 1;
flag. = True;
end
else
if s # 91; i # 93; = '' Then flag. = False;
writeln # 40; wrd. 'Сл.' # 41; ;
end;
close # 40; f # 41; ;
writeln # 40; line. ' Стор.' # 41; ;
end.
Приклад (и) виконання програми на мові Pascal
Hello world. - 12 симв. 2 сл.
Привіт світ. - 20 симв. 2 сл.
One, two, three - 15 симв. 3 сл.
Один, два, три - 24 симв. 3 сл.
4 стор.
Особливості рішення на мові програмування Pascal
Файл виконаний в середовищі GNU / Linux, компілятор FreePascal. Російські символи вважаються за 2 символи. Наприклад, в даному прикладі у другому рядку 9 кириличних символу, пробіл і знак оклику: 18 + 2 = 20 символів.
Вихідний код на мові програмування C
#include
#include
#define N 255
main # 40; # 41; # 123;
FILE * f;
char s # 91; N # 93; ;
unsigned short line. word. flag. i;
line = 0;
f = fopen # 40; "Text.txt". "R" # 41; ;
while # 40; fgets # 40; s. N. f # 41; ! = NULL # 41; # 123;
line + = 1;
word = 0;
flag = 0;
for # 40; i = 0; i
word + = 1;
flag = 1;
# 125; else
if # 40; s # 91; i # 93; == '' # 41; flag = 0;
printf # 40; "% S \ t% ld симв.. Сл. \ N". s. strlen # 40; s # 41 ;. word # 41; ;
# 125;
printf # 40; ". Стор. \ N". line # 41; ;
fclose # 40; f # 41; ;
# 125;
Приклад (и) виконання програми на мові C
Hello world.
13 симв. 2 сл.
Привіт світ.
21 симв. 2 сл.
One, two, three
16 симв. 3 сл.
Один два три
25 симв. 3 сл.
4 стор.
Особливості рішення на мові програмування C
Той же "ефект", що і в Паскалі: кириличний символ вважається за 2.
Функція fgets () зчитує рядок разом з символом переходу на новий рядок. Аргумент N не дозволяє вважати більше зазначеної кількості символів, але довжина рядка визначається за кількістю лічених (тобто фактичної довжиною рядка).
Вихідний код на мові програмування Python
f = open # 40; 'Text.txt' # 41;
line = 0
for i in f:
line + = 1
flag = 0
word = 0
for j in i:
if j! = '' and flag == 0:
word + = 1
flag = 1
elif j == '':
flag = 0
print # 40; i. len # 40; i # 41 ;. 'Симв.'. word. 'Сл.' # 41;
print # 40; line. 'Стор.' # 41;
f. close # 40; # 41;
Приклад (и) виконання програми на мові Python
Hello world.
13 симв. 2 сл.
Привіт світ.
12 симв. 2 сл.
One, two, three
16 симв. 3 сл.
Один два три
15 симв. 3 сл.
4 стор.
Особливості рішення на мові програмування Python
Символ переходу на новий рядок враховується.
Вихідний код на мові програмування кумирів
використовувати Файли П
алг
нач
цілий f. line. word. char. in. i
лит s
line: = 0
word: = 0
char: = 0
f: = відкрити на читання # 40; "Текст.txt" # 41;
нц поки не кінець файлу # 40; f # 41;
Фввод f. s
line: = line + 1
висновок s. нс
char: = char + довжин # 40; s # 41;
in: = 0
нц для i від 1 до довжин # 40; s # 41;
якщо s # 91; i # 93; <> "" І in = 0 то
word: = word + 1
in: = 1
інакше
якщо s # 91; i # 93; = "" То in: = 0 всі
Усе
кЦ
кЦ
закрити # 40; f # 41;
висновок нс. "Рядків -". line. нс
висновок "слів -". word. нс
висновок "символів -". char
кін
Приклад (и) виконання програми на мові кумирів
Привіт світ.
Hello World.
5. 4.
рядків - 3
слів - 7
символів - 32
Особливості вирішення задачі в середовищі кумирів
Тут вважається загальна кількість слів і символів.
Вихідний код на мові програмування Basic
open "text.txt"
ln = 0
while not eof
ln = ln + 1
s $ = readline
i = 1
word = 0
flag = 0
while i <= length(s$)
c $ = mid (s $, i, 1)
if c $ <> "" And flag = 0 then
word = word + 1
flag = 1
else
if c $ = "" then flag = 0
endif
i = i + 1
endwhile
print s $ + length (s $) + "," + word
endwhile
close
print "Строк:" + ln
Приклад (и) виконання програми на мові Basic
Hello world.
13. 2
Привіт світ.
12. 2
One, two, three
16. 3
Один два три
15. 3
Рядків: 4