Вычислить количество слов и вывести на печать самую длинную строку

@olive · Регистрация: 23.09.2012

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

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

@Comst95 · 23.09.2012, 20:00

а текст откуда берётся? из текстового файла?

@CodeR · 23.09.2012, 20:06

Pascal

Const mn=[' ',',','.','!','?'];
Var g:text;
    s,s1:string;
    max,i,k:byte;
Function F(s:string):byte;
Var s1:string;
    i,k:byte;
Begin
    s:=s+' ';s1:='';k:=0;
    For i:=1 to Length(s) do
     if not (s[i] in mn) then s1:=s1+s[i]
      else
       Begin
        if s1<>'' then inc(k);
        s1:='';
       End;
    F:=k;
End;
Begin
    Assign(g,'in.txt');Reset(g);
    max:=0;s1:='';i:=0;
    While not Eof(g) do
     Begin
      readln(g,s);
      inc(i);
      k:=F(s);
      if k>max then 
       Begin
        max:=k;
        s1:=s;
       End;
      writeln('В ',i,'-ой строке: ',k,' слов');
     End;
    writeln('Строка с наиб-им кол-ом слов: ',s1,' в ней слов ',max);
    readln;
End.

С процедурой и просто так сам сделай там не много изменить...

@olive · 23.09.2012, 20:10 **[ТС]**

Добавлено через 1 минуту

Сообщение от Comst95

а текст откуда берётся? из текстового файла?

-Да , конечно.

Добавлено через 2 минуты

Сообщение от Artem7

С процедурой и просто так сам сделай там не много изменить...

хорошо , попробую . Большое спасибо)

@Comst95 · 23.09.2012, 20:19

моя помощь уже не требуется.

@olive · 23.09.2012, 20:27 **[ТС]**

а вы не знаэте без "inc" как-то можно зделать программу, а то мы еще такого не учили...что оно делает?

@CodeR · 23.09.2012, 20:31

тоже самое что и

Pascal

k:=k+1

@olive · 23.09.2012, 20:34 **[ТС]**

теперь понятно)

@olive 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 5
		1
	Вычислить количество слов и вывести на печать самую длинную строку 23.09.2012, 19:44. Показов 1115. Ответов 7 Метки нет (Все метки) для каждой строки текста нужно вычислить количество слов и вывести на печать строку, в которой больше слов. помогите пожалуйста, надо сделать через процедуру, через функцию, и без них. 0

@Comst95 6 / 6 / 3 Регистрация: 02.01.2012 Сообщений: 42
	23.09.2012, 20:00	2
	а текст откуда берётся? из текстового файла? 0

@olive 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 5
	23.09.2012, 20:10 [ТС]	4
	Добавлено через 1 минуту Сообщение от Comst95 а текст откуда берётся? из текстового файла? -Да , конечно. Добавлено через 2 минуты Сообщение от Artem7 С процедурой и просто так сам сделай там не много изменить... хорошо , попробую . Большое спасибо) 0

@Comst95 6 / 6 / 3 Регистрация: 02.01.2012 Сообщений: 42
	23.09.2012, 20:19	5
	моя помощь уже не требуется. 0

@olive 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 5
	23.09.2012, 20:27 [ТС]	6
	а вы не знаэте без "inc" как-то можно зделать программу, а то мы еще такого не учили...что оно делает? 0

@olive 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 5
	23.09.2012, 20:34 [ТС]	8
	теперь понятно) 0

Опции темы

Вычислить количество слов и вывести на печать самую длинную строку

Решение