Решение Задачи к учебнику Ушаков,Юркова, Помогите с решением задачи Опции

[Дмитрий Ильин]

Доброго времени суток,начал изучение Pascal неделю назад,были кое-где вопросы,где непонятки,где-то решал сам,где помогали соседи,интернет.
Но тут все гораздо сложнее*
(!) смотрите вложение
Урок 3.2. по задаче мы должны написать программу которая из 3 строчек,выберет несколько,определенно запрограммированных букв,затем по алфавиту поменять их на N количество в лево/право,НО^
!)нам надо ввести 3 строчки
FINISHED
OR
PENDING?
а уже в каждой из строчек выбрать первую букву,в другой строчке вторую букву,и ее уже редактировать(менять на 1-2 пункта влево/право по алфавиту)
И в итоге таких манипуляций на выводе должно быть слово DONE
2) Пока что из книги,я могу менять только символы занесенные в переменную(Char),т.е. 1 символ,а тут целое слово,алгоритма деления слова на буквы,занесения каждой буквы в ячейку(это вроде дальше-массивы),и уже из массивов выдирать те символы что нам необходимы.
Вопрос
Так все таки как написать такую программу?
Или все эти 3 строчки я не должен вводить в программу?(Readln(x1)) ?
Не думаю что тут дойдет до массивов,т.к. я прошел только переменные,константы,умножение,деление,ост
атки,и даже до условия(If else ) еще не дошёл ,как быть?Буду благодарен за ответы,надеюсь я не такой "непробиваемый"
спасибо
_______________________________________________________
* - возможно я немного не понял поставленной задачи

[Дмитрий Ильин]

И так....
Раз ответа я так и не получил,решил сделать все сам,но получилось довольно "Грубо"...
задача была такая
1) Т.к. Отделять Буквы от слова программным методом я не умею еще,я сам записал эти буквы.и присвоих их к переменным типа char.
2) Узнал коды иэтих символов.с помощью команды a1:= Ord(a);
3) Мне необходимо были возвратить предществующий элемент(по 2 раза) относительно значений 1 и 3 буквы,а 2 и 4 оставить без изменения
4)певерести номера символов обратно в соответствующие символам в таблице слова,и
5) собственно вывести эти 4 буквы в порядке 1,2,3,4 что бы получилось слово и оно получилось
Done

Теперь код...Простите

program n_3.3;
uses crt;
var a,b,c,d,e:integer;
a_1,b_2,c_3,d_4,a_a,b_b,c_c,d_d:integer;
a1,a2,a3,a4:Char;
begin
a1:='F';
a2:='O';
a3:='P';
a4:='E';
a:=Ord(a1);
b:=ord(a2);
c:=Ord(a3);
d:=Ord(a4);
a_1:=Pred(a);a:=Pred(A_1);
b_2:=b;
c_3:=Pred©; c:= Pred(c_3);
d_4:=(d);
a1:=chr(a);a2:=chr(b_2); a3:=chr©; a4:= chr(d_4);




writeln('Слово', a1 ,a2 , a3, a4, 'Нажмите ENTER' );
readln();
writeln('Вроде получилось =) ');
readln()





end.


_____________________________________
* смотрите вложение (PascalABC)

Сообщение отредактировано: Дмитрий Ильин - 10.12.2011 3:35