Турбо паскаль версии 7.0 и выше, Вот так Опции

[Troll]

1. В заданном слове укажите номера позиций, в которых находится буква "а". За ранее огромное спасибо.
Слово может быть любым с несколькими буквами "а".

Сообщение отредактировано: Troll - 3.02.2010 19:56

[Ozzя]

for i:=1 to length(s) do
  if s[i]='а' then
     writeln('позиция буквы а № ',i);

А где теория-то здесь?

[Troll]

спасибо, ошибся темой, сейчас переправлю.

[Troll]

В указанном слове укажите номера позиций, в которых находится буква "а".
Это может быть слово не с одной буквой "а", на пример "мама".
За ранее благодарен. Большое спасибо.
Если можно через POS.

Сообщение отредактировано: Troll - 3.02.2010 23:06

[Troll]

Дан массив f1..f14. построить новый массив, содержащий только отрицательные f[i] , вычислить сумму его элементов и найти f min... .
Буду очень признателен.

Сообщение отредактировано: Troll - 4.02.2010 0:55

[Troll]

Вот программа для определения номера позиции буквы "а" в слове.
Program a3:
s:string;
begin
readln (s);
writeln (pos('a',s));
end.
Но эта программа определяет позицию только первой буквы "а", а если их две в слове, например "мама"?
Вторую букву "а" программа не видит! Что нужно сделать, кто подскажет. Буду признателен. Спасибо.

Сообщение отредактировано: Troll - 3.02.2010 21:24

[Client]

надо удалить первый встретившийся, и заново искать удалать, пока не будет конец строки

Сообщение отредактировано: Client - 3.02.2010 21:25

[Troll]

А как прописать программу, если не секрет.

[Ozzя]

эта программа определяет позицию только первой буквы "а", а если их две в слове, например "мама"?

Записывай номера позиций, в которых встречается буква 'а' в массив.
Кстати, тебе нужно только вывести номера позиций, в которых встречается буква 'а' , или как-то их сохранять?

[Troll]

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

Сообщение отредактировано: Troll - 3.02.2010 21:59

[Ozzя]

Дык, в теории я ж ответил уже

[volvo]

Я тоже Буду очень признателен., если автор все-таки поменяет название темы, поскольку ВСЁ, что есть в этом разделе -

Турбо паскаль версии 7.0 и выше

. Неужели так сложно назвать тему, чтобы НЕ ОТКРЫВАЯ ее было понятно, о чем речь, хотя бы приблизительно?

[volvo]

Переименуй тему, иначе она будет закрыта в соответствии с пунктом 4 >> вот этого документа <<

[Troll]

Огромное спасибо, у меня получилось!!!

[Lapp]

!

Troll, ты самый умный типа? Одно название - одна тема. Тема закрыта за нарушение Правил, п.4

Обращение к участникам Форума: просьба не отвечать в темы, нарушающие правила. Извиняюсь, что пришлось закрыть тему с вашими ответами. Человек откровенно издевается над правилами и форумом...