Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ преобразование букв

Автор: compiler 8.02.2007 20:52

Помогите нужно решить задачу.
на входе буква(большая или маленькая)
на выходе обратная буква(Б→М; М→Б)
пример q →Q; Q→q;
мой нерабочий пример

uses crt;
var n : integer;
m : char;
begin
ClrScr;
n := 0;
n := ord(readkey);
if (n-10000) mod 10 =0
then
begin
n := n+100000;
end
else
begin
n := n-100000;
end;
m := chr(n);
writeln(n);
readln(m);
end.

Автор: volvo 8.02.2007 21:08

Вот тут: FAQ -> http://forum.pascal.net.ru/index.php?s=&showtopic=2361&view=findpost&p=33955 есть функции StrUpper/StrLower, преобразующие строку в верхний и нижний регистр соответственно... Посмотри, как там это делается, и сделай для одного символа...