Автор Тема: ПРОВЕРТЕ ПОЖАЛУЙСТА КОД ....ЧТО -ТО НЕ РАБОТАЕТ  (Прочитано 2229 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн t;br

  • Новичок
  • *
  • Сообщений: 3
    • Просмотр профиля
ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p4="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub

Оффлайн tig81

  • Глобальный модератор
  • *****
  • Сообщений: 15181
    • Просмотр профиля
ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p4="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub
А есть разница P$ или р$?
И почему начинаете проверять с p4?

Оффлайн t;br

  • Новичок
  • *
  • Сообщений: 3
    • Просмотр профиля
ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p$="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub
разницы нет ни какой ....а там я ошибся ...
« Последнее редактирование: 16 Февраля 2013, 16:18:20 от tig81 »

Оффлайн t;br

  • Новичок
  • *
  • Сообщений: 3
    • Просмотр профиля
но программа все ровно не запускается!?

Оффлайн tig81

  • Глобальный модератор
  • *****
  • Сообщений: 15181
    • Просмотр профиля
разницы нет ни какой ....а там я ошибся ...
ясно, спасибо
но программа все ровно не запускается!?
давайте подождем, может кто-то из программистов появится...

 

Люди добрые помогите пожалуйста с решением задачки в паскале

Автор Fi

Ответов: 3
Просмотров: 4560
Последний ответ 22 Апреля 2010, 09:54:05
от Asix
Помогите решить пожалуйста. Алгоритм в виде блок схемы

Автор Кочубеев

Ответов: 0
Просмотров: 3837
Последний ответ 22 Сентября 2010, 18:31:07
от Кочубеев
Помогите пожалуйста решить задачи в паскале!!!очень срочно

Автор sergsergserg

Ответов: 2
Просмотров: 3938
Последний ответ 28 Октября 2010, 21:14:22
от domny
Добрый День помогите пожалуйста решить задачи на Паскале!!!

Автор Ramzes 1993

Ответов: 1
Просмотров: 2217
Последний ответ 31 Октября 2011, 12:13:47
от wital1984
Помогите пожалуйста решить задачу симплекс методом.

Автор MissKiss

Ответов: 5
Просмотров: 3866
Последний ответ 10 Ноября 2010, 02:01:49
от tig81