Сообщения от Нужна помощь. 2 задачки на турбо-паскале

Граждане-форумчане, обращаюсь за помощью
Нужно срочно решить две задачки на турбо-паскале, а я в нем ни бум-бум. Пробовал найти готовые решения в инете - не вышло. Скачал и прочитал учебник - что горох об стену :(
Если найдется энтузиаст, знакомый с языком, и сварганит хоть одну прогу - буду безмерно признателен

1. Чтобы зашифровать текст, написанный с помощью русских букв и знаков препинания, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а)
а) Зашифровать данный текст
б) Расшифровать данный текст

Шифр Цезаря называется, самый примитивный.
Как я понял, после запуска прога спрашивает: Что тебе типа надо? Зашифровать или расшифровать? (а или б) Отвечаешь ей, вводишь текст, она шифрует/дешифрует.
Решается, по-видимому, двумя способами: привязкой к таблице кодировки либо введением массива, состоящего из русских букв. Второй способ предпочтительнее, ибо кодировки могут различаться (это мои нубские комменты)

2. Даны символы s1, s2, ... Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3, ... есть по крайней мере один восклицатеньный знак. Пусть s1, ..., sn - символы данной последовательности, предшествующие первому восклицательному знаку (n заранее неизвестно).
Выяснить, верно ли, что среди s1, ..., sn имеются все буквы, входящие в слово "шина"

Тоже чот типа того...

Решение нужно сегодня к ночи, но возможны варианты). Благодарю за внимание, с надеждой в голосе и т.п. :)

Помочь не могу, сам дуб-дубом) Ну помогите ему, ну пожалуйста! *___*

На самом деле вон тот третий сверху - это я
паскаля не знаю, знал бы, помог х(
зарегайся на форуме каком-нибудь, где знающие люди, проси там

Добавлено через 1 минуту
Зы ты так нубовски написал название темы, что большая часть существ, обитающих на форуме, ее (тему) не посетит)

Флудеры вы... :)
Большинство существ (в т.ч. 1 волк) уже заглянуло в тему, за что им спасибо.
Один усиленно решает первую задачку, счас уже до ума доведем.
Может, еще кто подтянется

А чорт, Кэш, извини, это я название опроса прочитал, и подумал, что тема так называется (я ж по ссылке)
я сам олень)
зы и 1 Ящерка уже заглянула же!

Лучшая помощь - это совет! Напиши в аську тем, кто пишет проги для ХММ. Они то уж точно разрулят.

Решение 2-й задачи.
Наверно, можно было лучше сделать, но я все таки С++ учил, а не Паскаль.

var
str1:String;
a,b,c,d,e:Integer;
begin
Write('Введите строку: ');
ReadLn(str1);
a:=pos('ш',str1);
b:=pos('и',str1);
c:=pos('н',str1);
d:=pos('а',str1);
e:=pos('!',str1);
if (a < e) and (b < e) and (c < e) and (d < e) then
Write('Уррра! Слово получится')
else
Write ('Нифига не получится');
ReadLn;
end.

Первую задачку, я так понимаю, решили уже?

Всем большое спасибо за сочувствие и попытки помощи :smile43:

И огромное просто спасибо Володе Hermit-у за обе задачи!

ЗЫ Сейчас скинул решение девушке (да, это было нужно ей, нафиг мне паскаль), поворчала, что оно слишком сложное и не для первокурсников, но я прощен - и это классно :)

Еще раз всем спасибо