Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2012, 22:15   #1
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию сделать с процедурами

Код:
var
  i, j, i1, i2, i3, i4, i5: integer;
  Stroka: String;
  SK1, SK2, sk3, sk4, sk5, sk6: Char;
 
begin
  SK1 := '(';
  SK2 := ')';
  SK3 := '[';
  SK4 := ']';
  SK5 := '{';
  SK6 := '}';
  WriteLn('Введите строку со скобками: ');
  ReadLn(Stroka);
  WriteLn;
  for j := 1 to Length(Stroka) do 
  begin
    i := pos(SK1, Stroka);
    i1 := pos(SK2, Stroka);
    i2  := pos(SK3, Stroka);
    i3 := pos(SK4, Stroka);
    i4 := pos(SK5, Stroka);
    i5 := pos(SK6, Stroka);
  end;
  if  i <> 0 then WriteLn('( - ОК!')
  else WriteLn('( - No!');
  if  i1 <> 0 then WriteLn(') - Ok!')
  else WriteLn(') - No!');
  if  i2 <> 0 then WriteLn('[ - Ok!')
  else WriteLn('[ - No!');



2)var
  s, sl, smax: string;
  i, n, dmax, nmax: integer;
 
begin
  write('Вводим строку s=');
  readln(s);
  s := s + ' '; sl := '';dmax := 0;
  for i := 1 to length(s) do
    if s[i] <> ' ' then sl := sl + s[i]
    else if length(sl) > 0 then
    begin
      inc(n);
      if length(sl) > dmax then
      begin
        dmax := length(sl);
        smax := sl;
        nmax := n;
      end;
      sl := '';
    end;
  writeln('Самое длинное слово "', smax, '" длиной в ', dmax, ' символов, порядковый номер ', nmax);
  write('s=', s);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 12.04.2012 в 23:07.
Richik123 вне форума Ответить с цитированием
Старый 12.04.2012, 22:23   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

код оформляй! читать не возможно! (кнопочка #)
Poma][a вне форума Ответить с цитированием
Старый 12.04.2012, 22:24   #3
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
код оформляй! читать не возможно! (кнопочка #)
1
Код:
)var
 i, j, i1, i2, i3, i4, i5: integer;
 Stroka: String;
 SK1, SK2, sk3, sk4, sk5, sk6: Char;

 begin
 SK1 := '(';
 SK2 := ')';
 SK3 := '[';
 SK4 := ']';
 SK5 := '{';
 SK6 := '}';
 WriteLn('Введите строку со скобками: ');
 ReadLn(Stroka);
 WriteLn;
 for j := 1 to Length(Stroka) do 
 begin
 i := pos(SK1, Stroka);
 i1 := pos(SK2, Stroka);
 i2 := pos(SK3, Stroka);
 i3 := pos(SK4, Stroka);
 i4 := pos(SK5, Stroka);
 i5 := pos(SK6, Stroka);
 end;
 if i <> 0 then WriteLn('( - ОК!')
 else WriteLn('( - No!');
 if i1 <> 0 then WriteLn(') - Ok!')
 else WriteLn(') - No!');
 if i2 <> 0 then WriteLn('[ - Ok!')
 else WriteLn('[ - No!');
Richik123 вне форума Ответить с цитированием
Старый 12.04.2012, 22:25   #4
Richik123
Пользователь
 
Регистрация: 09.04.2012
Сообщений: 92
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
код оформляй! читать не возможно! (кнопочка #)
Код:
2)var
 s, sl, smax: string;
 i, n, dmax, nmax: integer;

 begin
 write('Вводим строку s=');
 readln(s);
 s := s + ' '; sl := '';dmax := 0;
 for i := 1 to length(s) do
 if s[i] <> ' ' then sl := sl + s[i]
 else if length(sl) > 0 then
 begin
 inc(n);
 if length(sl) > dmax then
 begin
 dmax := length(sl);
 smax := sl;
 nmax := n;
 end;
 sl := '';
 end;
 writeln('Самое длинное слово "', smax, '" длиной в ', dmax, ' символов, порядковый номер ', nmax);
 write('s=', s);
 end.
Richik123 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записи с процедурами Sandysman Паскаль, Turbo Pascal, PascalABC.NET 0 18.05.2011 08:54
Проблема с процедурами problema Паскаль, Turbo Pascal, PascalABC.NET 0 27.02.2011 16:28
работа с процедурами nex 9119 Помощь студентам 2 24.01.2011 18:38
Сделать процедурами Айдар Помощь студентам 9 01.12.2009 22:22
Задача по одномерному массиву, сделать с процедурами deu4er Помощь студентам 6 13.11.2008 13:59