VPF::[Pascal]String - Форум программистов

MotokoK

Дата 28.10.2009, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.10.2009

Репутация: нет
Всего: нет

Нужно написать программу.

Рассматривается непустая строка, содержащая не более 80 символов.Каждый символ строки может быть малой англ. буквой, цифрой или одним из знаков +, -, *.Группой букв будет называтся такая совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определяется группа цифр и знаков.Требуется написать программу, которая находит и печатает саммую длинну группу знаков.
Если в строке имеется групп знаков с наибольшей длинной, то найти первую.Если в строке нет ни одной группы знаков ,то напечатать сообщение "В строке нет ни одной группы знаков"
Исходная строка вводится с клавиатуры.

Все что я придумала это.

Код


 uses crt;
const
symb='+,-,*'

var
str:string[80];
str2:string;
I:byte;
begin
gotoxy(10,15);
readln(str);
gotoxy(10,20);
for i:=  1 to 80 do
if str[i]<>symb then

Вобщем здесь что то не так.Вроде нужно делать через константу и проверку.

RockClimber

Дата 29.10.2009, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: нет
Всего: 15

Во-первых, тут не весь код, как я понимаю...
Во-вторых:

Код


{ Вместо }
symb='+,-,*'
{ надо написать }
plus='+';
minus='-';
star='*';
...
var
 str3: string;
begin
...
for i:=  1 to 80 do
if (str[i]<>plus) and (str[i]<>minus) and (str[i]<>star) then 
  str2:=str2+str[i]
else
   begin
     if length(str2)>length(str3) then
        str3:=str2;     
     str2:='';
   end;

Что-то типа такого...

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

volvo877

Дата 29.10.2009, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

RockClimber, во-первых, почему в условиях <>, когда проверять надо на равенство. А во-вторых,

Код

const symb = ['+', '-', '*'];
...
for i := 1 to length(str) do
  if str[i] in symb then str2 := str2 + str[i]
  else begin
    if length(str2) > length(str_max) then str_max := str2;
    str2 := '';
  end;

выглядит более привлекательно.

RockClimber

Дата 29.10.2009, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: нет
Всего: 15

Цитата(volvo877 @ 29.10.2009, 09:46

)

RockClimber, во-первых, почему в условиях <>, когда проверять надо на равенство.

А, это я туплю... Я вместо

Цитата(MotokoK @ 28.10.2009, 20:58

)

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

Прочитал "Требуется написать программу, которая находит и печатает саммую длинну группу букв". Ну и вообще невнимательно читал.

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

MotokoK

Дата 26.11.2009, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.10.2009

Репутация: нет
Всего: нет

Вот такая проблема возника.

Код


uses crt;
const
symb=['+','-','*'];
var
 str_80: string[80];
 str_buf: string;
 str_max: string;
    i: byte;
begin
clrscr;
 gotoxy(32,4);
 writeln('Введите строку:');
 gotoxy(1,6);
 readln(str_80);
for i:=  1 to 80 do
if str_80[i] in symb then
  str_buf:=str_buf+str_80[i]
 else
   begin
     if length(str_buf)>length(str_max) then
        str_max:=str_buf;
     str_buf:=''
     end;
if length(str_max)=0 then begin gotoxy(26,19); writeln('В строке нет ни одной группы знаков.'); end
else
begin
gotoxy(25,13);
writeln('Максимальная группа знаков:',str_max);
end;
readkey;
end.

Говорят нужно вместо опаратора множеств (in)

Код


...
if str_80[i] in symb then
...

Использовать функцию подпрограммы модуля string.
В это случучае функцию StrPos помоему.
Но вот как я не знаю помогите иправить пожалуйста.

amsoft

Дата 26.11.2009, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: нет
Всего: 4

if not (StrPos(symb,str_80[i]) = nil)
then ...

в этом случае symb надо представить как простую строку (symb = '+-*')

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

MotokoK

Дата 26.11.2009, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.10.2009

Репутация: нет
Всего: нет

Я ошиблась немного. Не StrPos а просто Pos. Только модуль crt нужно использовать.
Что то типа:

Код


...
if Pos(symb,str_80[i]) >0 then
...

и как в этом случая обьявить строку тоже не поняла. У меня запускатеся программа только если так.

Код


...
Const
symb:string[3] = '+,-,*'
...

Но так не работает smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »