Пребройте редовете във файла, а броят на думи и символи във всяка линия, задачите на

Изходният код на Паскал език за програмиране

Var
е. текст;
с. низ;
линия. CHR. WRD. дума;
аз. байт;
флаг. булева;
започвам
възлага # 40; е. "Text.txt" # 41; ;
нулиране # 40; е # 41; ;
линия. = 0;
докато не EOF # 40; е # 41; започвайте
readln # 40; е. ите # 41; ;
пиша # 40; с. '-' # 41; ;

CHR. = дължина # 40; ите # 41; ;
пиша # 40; CHR. "знаци. " # 41; ;

WRD. = 0;
флаг. = False;
за аз. = 1 до CHR направи
ако # 40; ите # 91; аз # 93; <> '' # 41; и # 40; флаг = фалшива # 41; след това да започне
WRD. = WRD + 1;
флаг. = True;
край
още
ако е # 91; аз # 93; = '' Тогава флаг. = False;
writeln # 40; WRD. "Е." # 41; ;
приключи;
близо # 40; е # 41; ;
writeln # 40; линия. "Стр" # 41; ;
край.

Пример (и) на програмата на езика Pascal

Здравей, свят. - 12 знака. 2 ее.
Здравей, свят. - 20 знака. 2 ее.
Едно, две, три - 15 знака. 3 и сл.
Едно, две, три - 24 знака. 3 и сл.
4 стр.

решения, особено в езика за програмиране Pascal

Файлът е в GNU / Linux среда, съставител FreePascal на. Руски герои, се отчитат като 2 знака. Например, в примера на втория ред 9 от вероятно символи, пространство и удивителна: 18 + 2 = 20 символи.

Изходният код на езика за програмиране на C

#include
#include
# определят N 255
основен # 40; # 41; # 123;
FILE * F;
Чар и # 91; N # 93; ;
неподписан кратко линия. дума. флаг. аз;
линия = 0;
F = fopen # 40; "Text.txt". "R" # 41; ;
докато # 40; fgets # 40; с. Н. е # 41; ! = NULL # 41; # 123;
линия + = 1;

дума = 0;
флаг = 0;
за # 40; I = 0; аз ако # 40; ите # 91; аз # 93; ! = '' == флаг 0 # 41; # 123;
дума + = 1;
флаг = 1;
# 125; още
ако # 40; ите # 91; аз # 93; == '' # 41; флаг = 0;

ФОРМАТ # 40; "% S \ т% \ п LD символи .. F .." с. strlen # 40; ите # 41. дума # 41; ;
# 125;
ФОРМАТ # 40; . "Page. \ N". линия # 41; ;
fclose # 40; е # 41; ;
# 125;

Пример (и) на програмата на езика С

Здравей, свят.
13 Чар. 2 ее.
Здравей, свят.
21 Чар. 2 ее.
Едно, две, три
16 Чар. 3 и сл.
Едно, две, три
25 Char. 3 и сл.
4 стр.

решения, особено в езика за програмиране на C

Същата "ефект", както и в Паскал: кирилица характер, се отчита като 2.

fgets () функция чете съответствие с символ на прехода към нов ред. N аргумент предполага не повече от определения брой символи, но дължината на линия се определя от броя на четене (т.е., действителната дължина на низа).

Изходният код на езика за програмиране Python

е = отворен # 40; "Text.txt" # 41;
линия = 0
защото в F:
линия + = 1

флаг = 0
Думата = 0
за к в и:
ако й = '' и флаг == 0:
дума + = 1
флаг = 1
Елиф й == '':
флаг = 0

печат # 40; аз. дъл # 40; аз # 41. "Герои".. дума. "Е." # 41;

печат # 40; линия. "Стр" # 41;
е. близо # 40; # 41;

Пример (и) на програмата в Python език

Здравей, свят.
13 Чар. 2 ее.
Здравей, свят.
12 Чар. 2 ее.
Едно, две, три
16 Чар. 3 и сл.
Едно, две, три
15 Чар. 3 и сл.
4 стр.

решения, особено в езика за програмиране Python

символ на преход към нова линия се взема под внимание.

Изходният код в идоли за програмиране

използвате P файлове
SAL
рано
непокътнати е. линия. дума. Чар. инча аз
и свети
линия: = 0
дума: = 0
овъгляване: = 0
F: = отворена четяща # 40; "Tekst.txt" # 41;
NC до края на файла # 40; е # 41;
Fvvod е. ите
линия: = линия + 1
заключение с. НЧ
харак: = харак + дължини # 40; ите # 41;
в: = 0
НТС защото от 1 до дължини # 40; ите # 41;
ако е # 91; аз # 93; <> "" В = 0 и след това
дума: = дума + 1
в: = 1
в противен случай
ако е # 91; аз # 93; = "" Е в: = 0 всичко
всички
KC
KC
близо # 40; е # 41;
заключение НЧ. "линии -". линия. НЧ
заключение "думи -". дума. НЧ
изход "герои -". овъглявам
игра

Пример (и) на програмата на език идол

Hello World.
Hello World.
5. 4.

редове - 3
думи - 7
знаци - 32

Особено в решаване на проблема с идол сред

Там се счита за общия брой на думи и символи.

Изходният код на Basic език за програмиране

отворен "text.txt"
LN = 0
докато не EOF
LN = LN + 1
S $ = Readline
I = 1
Думата = 0
флаг = 0
докато аз <= length(s$)
в $ = средата (S $, I, 1)
ако в $ <> "" И флаг = 0, тогава
дума = дума + 1
флаг = 1
още
ако в $ = "" След това знаме = 0
endif
I = I + 1
endwhile

печат и $ + дължина (и $) + "," + дума
endwhile
близо

Печат "Strings:" + LN

Пример (и) на програмата в основния

Здравей, свят.
13. 2
Здравей, свят.
12. 2
Едно, две, три
16. 3
Едно, две, три
15. 3
Покажи # 4