Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 4
Регистрация: 10.11.2013
Сообщений: 140
1

Можно ли укоротить этот код?

12.11.2014, 21:47. Просмотров 455. Ответов 0
Метки нет (Все метки)


Можно ли укоротить этот код?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
{В школе преподаватель написал на доске не большой текст. Вызвал к доске ученика
и попросил его найти в тексте самое длинное слово и самую длинную фразу. Помогите школьнику с заданием.
 
Ввод
Исходный файл вводиться  текст со знаками препинания.
Вывод
В выходной файл вывести самое длинное слово и самую длинную фразу.
 
Пример
z.in
People reflect their life in art. Real, live art appeals to the heart and mind of man, to his feelings
and ideals and it proclaims life. Art is truthful only when it serves life, only when the artist
hopes to arouse a warm respons in the heart of man.
z.out
Truthful
only when the artist hopes to arouse a warm respon in the heart of man}
 
Program CPC_4;
uses crt;
const zn=['.','?','!'];
      zn1=['.','?','!',',',';',':'];
var s,s1,s2,s3:string;
    i,len,max:byte;
    f_in,f_out: text;
Begin
  assign(f_in,'z.in');
  reset(f_in);
  assign(f_out,'z.out');
  rewrite(f_out);
  readln(f_in,s);
s3:=s;
max:=0;
len:=0;
s1:='';s2:='';
i:=1;
while i<=length(s) do
  begin
   if s[i] in zn then
     begin
      s1:=copy(s,1,i);
      len:=i-1;
      delete(s,1,i);
      if len>max then
        begin
          max:=len;
          s2:=s1;
        end;
      i:=i+1;
     end
   else i:=i+1;
  end;
writeln(f_out,s2);
for i:=1 to length(s3) do
if s[i] in zn1 then s[i]:=' ';
s3:=s3+' ' ;
while pos('  ',s3)>0 do
delete(s3,pos('  ',s3),1);
max:=0;s1:='';s2:='';len:=0;
while pos(' ',s3)>0 do
  begin
    s1:=copy(s3,1,pos(' ',s3)-1);
    len:=length(s1);
    delete(s3,1,pos(' ',s3));
    if len>max then
      begin
        max:=len;
        s2:=s1;
      end;
  end;
  write(f_out,s2);
  writeln ('Программа завершена!');
  close(f_in);
  close(f_out);
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2014, 21:47
Ответы с готовыми решениями:

Как перевести этот код на код Delphi
uses crt; const nmax=100; var a:arrayof integer; n,i,k,j,x:integer; begin clrscr;...

Можно ли как укоротить этот код
Все повторятся одно по одному, на каждое нажатие стрелки &quot;имага танк&quot; меняется- типа...

Можно ли как-нибудь укоротить этот код:
Мне нужно что бы размер шрифта в fontdialog был равен введенному числу в combobox так,что бы не...

Как можно укоротить код ?
Написал код после прочтение обучающих статей.. знаю что не все идеально .. все с начинали с ошибок...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2014, 21:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Подскажите, как можно упростить/укоротить код - мини-калькулятора?
Дорогие форумчане! Посоветуйте как можно укоротить, точнее упростить нижеследующий код: ...

Как укоротить код, чтоб можно было добавлять слова для замены
Как укоротить код, чтоб можно было добавлять слова для замены? ' Удаляем , , ...

Нашел код в интернете. Можно ли этот код из С++ преобразовать в язык программирования C#?
Нашел код в интернете можно ли этот код из С++ преобразовать в язык программирования C#. Язык...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.