Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей

@qwertere · Регистрация: 17.12.2017

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста.
1) Как вернуть значения n к 0 после подсчета количества слов в предложении?
2) Как отправлять слова на вывод в файл

Pascal

uses crt;
var f1,f2:text;
    s:string;
    n,i:integer;
    z:real;
begin
clrscr;
assign(f1,'Input.txt');
reset(f1);
while not Eof(f1) do begin
Readln(f1,s);
for i := 1 to Length(s) do
if (s[i] <> ' ') and ((i = Length(s)) or (s[i + 1] = ' ')) then Inc(n);
while pos(' ', s)<>0 do
delete(s, pos(' ', s), 1);
writeln ('Количество слов в предложении: ',n);
Writeln('В строке: ', Length(s),' символов');
writeln ('Количество слов в предложении: ',n);
z:= length(s)/n;
writeln ('Средняя длина слов в строке: ' ,length(s)/n);
end;
assign (f2, 'Output.txt');
rewrite(f2,n);
close(f1);
close(f2)
end.

@Cyborg Drone · 19.12.2017, 13:24

Напишите вопрос полностью. То, что Вы написали в заголовке темы, не ясно. Пожалуйста, впредь не пишите вопрос в заголовке, поскольку заголовок может быть отреда

@Cyborg Drone Модератор 9609 / 4930 / 3251 Регистрация: 17.08.2012 Сообщений: 15,379
	19.12.2017, 13:24	2
	Напишите вопрос полностью. То, что Вы написали в заголовке темы, не ясно. Пожалуйста, впредь не пишите вопрос в заголовке, поскольку заголовок может быть отреда 0

Опции темы