кто рубит в паскале?

Я тут последнее время в руссифицированный даггерфолл бегаю. Скачал редактор сэйвов - в нем можно редактить history героя. Сие мне очень понравилось, но писать тяжко. Например вот что должно получиться, если набрать фразу

"бородый, жадный и юродивый эклектик"

"`jhjlsq, \flysq b <hjlbdsq @rktrnbr"

Дык решил програмульку чиркануть - чтоб козябру в русский и обратно конвертировала. Бэйсик я уже совсем не помню (да и не проходили мы в нем работу с файлами) паскаль был в прошлом году, но тож подзабылся. А других языков я и не знал никогда. Ну значиться взялся писать в паскале. Реализовал переделку козябры в русский, но почемуто в получаемом тексте последние несколько слов не отображаються. Не могу понять почему. Кто поможет?

 

Ну, я, в принципе, в бауманке экзамен по нему сдал на 4...Кидай код, посмотрим

 

послал личкой, но как то криво получилось. Если надо - давай на мыло кину.
Кто нить еще присоединиться?

 

А чего именно Pascal? Я просто синтаксис плохо помню, алгоритм посмотрю
Кидай на мыло gae13@yandex.ru.
И, кстати, почему бы не сменить в первой процедуре порнографию с if...then/else на условный оператор case? Короче будет раза в 2.

 

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

Добавлено через 6 минут
Ошибка
Недопустимый адрес
Адрес gae13@yandex.ru. не существует или заблокирован. Письмо не было послано. Исправьте ошибку и отправьте письмо еще раз

 

Ты для каждой буквы делаешь условный оператор
if w='A' then
w:='Ф'

Удобнее будет:
case w of
'A' : 'Ф';
'B' : 'И'
<...>
end;

2_Dimouse О, ну если тут будут ты и MaxEd, могу спокойно отправляться курить мох и осозновать собственную ничтожность =)

 

Когда кидаю в форум как-то криво выходит - пробелы пропускаються, ну ладно.
program filestext;
uses crt;
var f,f1,readme:text;
menu:char;

Procedure kozrus(var f, f1:text);
var w:char;
begin
Clrscr;
while not seekeof (f) do begin
while not eoln (f) do begin
read (f,w);
if w='A' then
w:='Ф';
if w='B' then
w:='И';
if w='C' then
w:='С';
if w='D' then
w:='В';
if w='E' then
w:='У';
if w='F' then
w:='А';
if w='G' then
w:='П';
if w='H' then
w:='Р';
if w='I' then
w:='Ш';
if w='J' then
w:='О';
if w='K' then
w:='Л';
if w='L' then
w:='Д';
if w='M' then
w:='Ь';
if w='N' then
w:='Т';
if w='O' then
w:='Щ';
if w='P' then
w:='З';
if w='Q' then
w:='Й';
if w='R' then
w:='К';
if w='S' then
w:='Ы';
if w='T' then
w:='Е';
if w='U' then
w:='Г';
if w='V' then
w:='М';
if w='W' then
w:='Ц';
if w='X' then
w:='Ч';
if w='Y' then
w:='Н';
if w='Z' then
w:='Я';
if w='[' then
w:='х';
if w='\' then
w:='ж';
if w=']' then
w:='ъ';
if w='^' then
w:='Э';
if w='>' then
w:='Ю';
if w='`' then
w:='б';
if w='a' then
w:='ф';
if w='b' then
w:='и';
if w='c' then
w:='с';
if w='d' then
w:='в';
if w='e' then
w:='у';
if w='f' then
w:='а';
if w='g' then
w:='п';
if w='h' then
w:='р';
if w='i' then
w:='ш';
if w='j' then
w:='о';
if w='k' then
w:='л';
if w='l' then
w:='д';
if w='m' then
w:='ь';
if w='n' then
w:='т';
if w='o' then
w:='щ';
if w='p' then
w:='з';
if w='q' then
w:='й';
if w='r' then
w:='к';
if w='s' then
w:='ы';
if w='t' then
w:='е';
if w='u' then
w:='г';
if w='v' then
w:='м';
if w='w' then
w:='ц';
if w='x' then
w:='ч';
if w='y' then
w:='н';
if w='z' then
w:='я';
if w='{' then
w:='Х';
if w='|' then
w:='Ж';
if w='}' then
w:='Ъ';
if w='~' then
w:='Б';
if w='<' then
w:='ю';
if w='@' then
w:='э';
write(f1, w);
end;
writeln(f1);
end;
writeln('Ј®в®ў®');
readkey;
end;

Procedure win;
begin
textbackground(0);
clrscr;
window(5,2,77,24);
textbackground(1);
textcolor(11);
clrscr;
writeln;
writeln(' ЙНННННННННННMAIN MENUННННННННННН»');
writeln(' є є');
writeln(' є 1.Ё§ Є®§пЎал ў агббЄЁ© є');
writeln(' є є');
writeln(' є 2.Ё§ агббЄ®Ј® ў Є®§пЎаг є');
writeln(' є є');
writeln(' є 3.Їа®зҐбвм readme є');
writeln(' є є');
writeln(' є 4.ўл室 є');
writeln(' ИНННННННННННННННННННННННННННННННј');
gotoXY(1,29);
write(' ўлЎҐаЁвҐ Їг*Єв ¬Ґ*о Ё **¦¬ЁвҐ ENTER: ');
end;

begin
assign (f, '1.txt');
assign (f1, '2.txt');
assign (readme, 'readme.txt');
reset (readme);
reset (f);
rewrite (f1);
{ write (f1, ' ');}


repeat
win;
read(menu);
case menu of
'1':begin
kozrus(f,f1);
exit;
end;
'2':{ruskoz(f,f1)};
'3':{help};
'4':exit;
end;
until menu='4';


{ while not seekeof (f) do
while not eoln (f) do begin
read (f,w);
if w=' ' then begin
writeln (f1);
write(f1, ' '); end
else
write (f1,w);

end;}
close (f); close(f1);

readkey
end.

 

Чего-то я не понял, а в процедуре Win так и должны быть кракозябры?

Все, понял, туплю =)

 

прога то досовская получиться. Соответственно кодовая страничка другая. При исполнении программы получаеться нормальное псевдографическое окошко с менюшкой на русском внутре. Иногда в винде (по крайней мере 95 98) в полноэкранном режиме они так и остаються крякозябликами - тогда надо запускать в окне.

Исправил

на
case w of
'A':w:='Ф'
<...>
end;
а так, как сказал gae13 - не работает.

 

вот примерно то, что на экране появляеться:

вот пример исходного файла

вот что получаеться:

если приглядитесь, то увидете, что в конечном файле нескольких слов не хватает. Более того - количество пропущенного зависит от кол-ва символов в первоначальном. Если в первоначальном 2 или менее строк - в результирующем вообще пусто.

Добавлено через 51 секунду
БЛИН! Форум убирает "лишние" пробелы! Ну надеюсь вы поняли, что я имел ввиду.

Добавлено через 12 минут
?

Так может мне не заморачиваться, а просто взять имеющуюся прогу? В принципе с русского в козябру нужнее, это я для комплекта решил сделать туда-обратно.

 

Собственно, на Ruby это выглядит так. И вроде даже работает, хоть это и "демо-версия"

#Перевод из кракозябров на русский
def krakrus(f,f1) #Процедура перевода
f1 = case f
when "A"
"ф"
when "B"
"И"
when "C"
"C"
else
<Error 1> #Ошибка: неверный ввод
end
puts f1

text=File.new("gametext.txt") #Файл
str=text.readlines #Строка-массив с текстом

for i in 1..str.size #Гоняем цикл по массиву
krakrus(str)
end

 

кто такая ruby? А зачема мине этот код?

 

Ruby - как ни странно, язык программирования. А код - скорее умным товарищам, т.к. я никакой ошибк не вижу, а паскалевские проги мне на компе запускать не на чем, написал на Руби.

 

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

 

СИ у мя нету, куда я его засуну?
text - это файловый тип
char - в паскале этот тип принимает значения в виде 1-ого символа.

Если помочь никак, но есть возможность самому написать - большой спасиб!
соответсвие символов:
ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯхжъЭЮбфисвуапршолдьтщзйкыегмцчняХЖЪБюэ
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^>`abcdefghijklmnopqrstuvwxyz{|}~<@

Добавлено через 3 минуты

вот ща попробовал обработать файлик по больше - результирующий 2.87 Kb

 

А исходник сколько?

Интерпретатор, или как там это называется, для С качается из сети с легкостью.