Перевод строки из нижнего регистра в верхний.

[dima1257]

PHP код:

const
     upper = 'A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z';
     lower = 'a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z';

var
   line:string;
   count, litter:integer;
Begin
     writeln('Ввод строки');
     readln(line);
     for count:= 1 to length(line) do
         if (line[count] >= 'a') and (line[count] <= 'z') then
            for litter:= 1 to 26 do
                if line[count] = lower[litter] then
                   line[count]:= upper[litter];
     writeln('Преобразованная строка ');
     writeln(line);
end. 


Исходная строка
a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z

Преобразованная строка
A, B, C, D, E, F, G, H, I, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z

Скажите пожалуйста почему преобразовывает только до j?

[Serge_Bliznykov]

потому что у Вас в строке ещё и пробелы и запятые, которые там нафик не нужны!

задайте строки так:

const
     upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
     lower = 'abcdefghijklmnopqrstuvwxyz';

[Poma][a]

Или так :

 for litter:= 1 to Length(lower) do

И кстати, такого красивого кода и такого адекватного поста я давно не видел..

[Аватар]

А что так сложно, глянул по справке фри паскаля есть UpperCase и LowerCase. И даже AnsiUpperCase с AnsiLowerCase. upcase еще

[dima1257]

спасибо. Я всё понял.
Этот пример мне дал мой препод и только сейчас я понял насколько он бесполезен.

const
     upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
     lower = 'abcdefghijklmnopqrstuvwxyz';

var
   line:string;
   count, litter:integer;
Begin
     writeln('Ввод строки');
     readln(line);
     for count:= 1 to length(line) do
         if (line[count] >= 'a') and (line[count] <= 'z') then
            for litter:= 1 to length(line) do
                if line[count] = lower[litter] then
                   line[count]:= upper[litter];
     writeln('Преобразованная строка ');
     writeln(line);
end.

Ввод строки
abcdefghijklmnopqrstuvwxyz

Преобразованная строка
ABCDEFGHIJKLMNOPQRSTUVWXYZ

Ввод строки
qwe asd zxc
Преобразованная строка
qwE AsD zxC

[dima1257]

Глянуть функцию в справке, заюзать гуглояндекс это не проблема. Проблема разобраться в говнокоде препода, а потом еще и ответить по нему что нибудь.

[Serge_Bliznykov]

Ввод строки
qwe asd zxc
Преобразованная строка
qwE AsD zxC

не понял. Это как?!
должно быть
QWE ASD ZXC
не?

Вы же НЕВЕРНО восприняли совет от Poma][a

смотрите.
у него:

for litter:= 1 to Length(lower) do

у Вас:

for litter:= 1 to length(line) do

Ошибку сами найдетё? Или подсказать?!!

[dima1257]

Сообщение от Serge_Bliznykov

не понял. Это как?!
должно быть
QWE ASD ZXC
не?

Да. должно быть так, но почему то оно не так)

[Poma][a]

глянул по справке фри паскаля

Она на инглише
И еще её прикрутичивать замаешься..

qwE AsD zxC

Не правда Ваша..

[Serge_Bliznykov]

пост #7 я дописывал. читаем внимательно!!



p.s. лучше бы Вы уж оставили for litter:= 1 to 26 do, если не разобрались, что это за цикл и почему там именно 26!!!