[ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале - Форум HeroesWorld-а

Быстрая навигация по основным разделам форума:
Турниры
КАРТЫ
Heroes 6
Heroes 5
Heroes 4
Heroes 3
Heroes 2
Heroes 1
Might&Magic

Результаты опроса: ПАМАГИТЕ!!!
^
Я б тебе помог, да сам дуб дубом...
7
77.78%
Блин, времени совсем нет фигней заниматься!
2
22.22%
Закрытая тема
 
Опции темы
#1
Старый 18.11.2009, 16:26
  #1
^
Kash
 
Аватар для Kash
📖
Регистрация: 31.08.2008
Сообщения: 2198
Регистрация: 31.08.2008
Сообщения: 2198
По умолчанию
[ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

Граждане-форумчане, обращаюсь за помощью
Нужно срочно решить две задачки на турбо-паскале, а я в нем ни бум-бум. Пробовал найти готовые решения в инете - не вышло. Скачал и прочитал учебник - что горох об стену
Если найдется энтузиаст, знакомый с языком, и сварганит хоть одну прогу - буду безмерно признателен
1. Чтобы зашифровать текст, написанный с помощью русских букв и знаков препинания, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а)
а) Зашифровать данный текст
б) Расшифровать данный текст
Шифр Цезаря называется, самый примитивный.
Как я понял, после запуска прога спрашивает: Что тебе типа надо? Зашифровать или расшифровать? (а или б) Отвечаешь ей, вводишь текст, она шифрует/дешифрует.
Решается, по-видимому, двумя способами: привязкой к таблице кодировки либо введением массива, состоящего из русских букв. Второй способ предпочтительнее, ибо кодировки могут различаться (это мои нубские комменты)
2. Даны символы s1, s2, ... Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3, ... есть по крайней мере один восклицатеньный знак. Пусть s1, ..., sn - символы данной последовательности, предшествующие первому восклицательному знаку (n заранее неизвестно).
Выяснить, верно ли, что среди s1, ..., sn имеются все буквы, входящие в слово "шина"
Тоже чот типа того...

Решение нужно сегодня к ночи, но возможны варианты). Благодарю за внимание, с надеждой в голосе и т.п.
Kash вне форума
#2
Старый 18.11.2009, 17:58
  #2
^
WhiteLizard
 
Аватар для WhiteLizard
📖
Регистрация: 30.06.2008
Адрес: awesOmsk
Сообщения: 2368
Отправить сообщение для  WhiteLizard с помощью ICQ
Регистрация: 30.06.2008
Адрес: awesOmsk
Сообщения: 2368
Отправить сообщение для  WhiteLizard с помощью ICQ
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

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









__________________

За всем следят машины благодати и любви.

За всем следят машины благодати и любви.
WhiteLizard вне форума
#3
Старый 18.11.2009, 19:06
  #3
^
Imaris
 
Аватар для Imaris
📖
Регистрация: 13.11.2007
Адрес: Скитаюсь по чужим мирам.
Сообщения: 1885
Отправить сообщение для  Imaris с помощью ICQ
Регистрация: 13.11.2007
Адрес: Скитаюсь по чужим мирам.
Сообщения: 1885
Отправить сообщение для  Imaris с помощью ICQ
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

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

Добавлено через 1 минуту
Зы ты так нубовски написал название темы, что большая часть существ, обитающих на форуме, ее (тему) не посетит)
Imaris вне форума
#4
Старый 18.11.2009, 19:10
  #4
^
Kash
 
Аватар для Kash
📖
Регистрация: 31.08.2008
Сообщения: 2198
Регистрация: 31.08.2008
Сообщения: 2198
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

Флудеры вы...
Большинство существ (в т.ч. 1 волк) уже заглянуло в тему, за что им спасибо.
Один усиленно решает первую задачку, счас уже до ума доведем.
Может, еще кто подтянется
Kash вне форума
#5
Старый 18.11.2009, 19:17
  #5
^
Imaris
 
Аватар для Imaris
📖
Регистрация: 13.11.2007
Адрес: Скитаюсь по чужим мирам.
Сообщения: 1885
Отправить сообщение для  Imaris с помощью ICQ
Регистрация: 13.11.2007
Адрес: Скитаюсь по чужим мирам.
Сообщения: 1885
Отправить сообщение для  Imaris с помощью ICQ
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

А чорт, Кэш, извини, это я название опроса прочитал, и подумал, что тема так называется (я ж по ссылке)
я сам олень)
зы и 1 Ящерка уже заглянула же!
Imaris вне форума
#6
Старый 18.11.2009, 21:15
  #6
^
Dirty_Player
 
Аватар для Dirty_Player
Координатор
📖
Регистрация: 29.04.2007
Адрес: Las Vegas, Nevada
Сообщения: 11704
1750
Отправить сообщение для  Dirty_Player с помощью ICQ Dirty_Player#3487
Выставка наград
Регистрация: 29.04.2007
Адрес: Las Vegas, Nevada
Сообщения: 11704
1750
Отправить сообщение для  Dirty_Player с помощью ICQ Dirty_Player#3487
Выставка наград
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

Лучшая помощь - это совет! Напиши в аську тем, кто пишет проги для ХММ. Они то уж точно разрулят.
Dirty_Player вне форума
#7
Старый 19.11.2009, 00:09
  #7
^
Avern
 
Аватар для Avern
📖
Регистрация: 14.03.2009
Адрес: Nigon, Sorrow Crown
Сообщения: 718
Отправить сообщение для  Avern с помощью ICQ
Регистрация: 14.03.2009
Адрес: Nigon, Sorrow Crown
Сообщения: 718
Отправить сообщение для  Avern с помощью ICQ
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

Решение 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.

Первую задачку, я так понимаю, решили уже?
__________________
Avern вне форума
#8
Старый 19.11.2009, 00:32
  #8
^
Kash
 
Аватар для Kash
📖
Регистрация: 31.08.2008
Сообщения: 2198
Регистрация: 31.08.2008
Сообщения: 2198
По умолчанию
Re: [ПРОБЛЕМА]Нужна помощь. 2 задачки на турбо-паскале

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

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

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

Еще раз всем спасибо
Kash вне форума
Закрытая тема


Опции темы



Часовой пояс GMT +4, время: 23:25.


vBulletin v3.5.0, Copyright ©2000-2024, Jelsoft Enterprises Ltd. (Русский)

Яндекс цитирование    Top.Mail.Ru