IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите нарисовать блок схему к задаче?
Толян123
сообщение 16.06.2009 18:43
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Program ds;
var s: string;
procedure doWork(var s: string);
var
  i: integer;
  l: integer;
begin
  i := 1;
  l := length(s);
  while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
    inc(i);
  if (i > 1) and (i < l) then
  begin
    while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
      inc(i);
    if (i > 1) and (i < l) then
      for i:=1 to l do
      begin
        if s[i] = '+' then
          s[i] := '1';
        if s[i] = '-' then
          s[i] := '2';
        if s[i] = '*' then
          s[i] := '3'
      end;
  end;
end;

begin
  readln(s);
  doWork(s);
  writeln(s);
end.


М
Тэги, тэги, тэги!..



Сообщение отредактировано: Lapp - 17.06.2009 2:13
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
Archon
сообщение 17.06.2009 6:17
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


А ты уверен, что задача решена правильно? Мне этот код кажется странным и с явными излишествами. Приведи задание, тогда можно будет точнее сказать.


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Толян123
сообщение 17.06.2009 8:39
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Вот и задание!!!!!!



Строковый тип данных

дан текст.Если в данном тексте имеется не менее 2 групп букв,то каждый знак+ встерчающийся между двумя первыми по порядку группами букв заменить цифрой 1, знак - заменить цифрой 2,а знак * заменить цифрой 3.Иначе оставить текст без изменений
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Archon
сообщение 17.06.2009 16:25
Сообщение #4


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


Тогда задача определенно решена не правильно. По заданию, строка "a+b" должна преобразоваться в "a1b", а строка "+++abc+-*bcd---cde***" должна превратиться в "+++abc123bcd---cde***". А теперь попробуй проверить свою программу на этих исходных данных.

Предлагаю следующий алгоритм решения:
1. Найти первую букву в строке.
2. Продолжая с найденной позиции найти первую небукву в строке.
3. Запомнить эту позицию (начиная с нее надо будет производить замену).
4. Продолжая с найденной позиции найти первую букву (это начало второй группы букв).
5. Запомнить предыдущую позицию (на ней надо будет закончить замену).
6. Если строка еще не закончилась, произвести замену с начальной позиции до конечной.

Сообщение отредактировано: Archon - 17.06.2009 16:25


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 27.07.2025 2:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"