|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.11.2008, 14:48 | #11 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
Он повторяет строку и всё в таком же виде
|
21.11.2008, 14:51 | #12 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Могу посоветовать может пригодиться в будущем:
Поробуй F7 Debug->Watch->add s,s[i] и тп и пошагово(нажимая F7) отслеживай как работает программа
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
21.11.2008, 15:40 | #13 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
да вот тока серавно не понятнол
|
21.11.2008, 16:19 | #14 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Upcase вообще работает только с латинскими буквами, в Help загляните.
А русские бувы надо через их символы в таблице ANSII переводить, причем учесть, что для букв а..п одно значение для перевода, для р..я другое, и ё - третье. Задача примитивнейшая. |
21.11.2008, 17:41 | #15 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
да а где мне такую тоблицу взять
|
21.11.2008, 17:44 | #16 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
а всё всё нашол
|
21.11.2008, 17:50 | #17 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
а как их туда записать
|
21.11.2008, 18:27 | #18 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Попробуй это(для остальных букв подбери формулу сам)
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 21.11.2008 в 18:44. |
21.11.2008, 18:45 | #19 |
Пользователь
Регистрация: 21.11.2008
Сообщений: 12
|
спасибо alex_fcsm всё работает тока программа имеет вид:
program bykvu; uses crt; type M=set of byte; const smallLetters:M=[160..239]; var s:string; i:integer; begin clrscr; readln(s); for i:=1 to Length (s) do if ord(s[i]) in smallLetters then s[i]:=chr(ord(s[i])-32); readln; writeln(s); end. а так всё робит эшо раз спасибо тем кто помог да пусть ваша жизь сплошная белая полоса |
21.11.2008, 18:50 | #20 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Да не будет так нормально работать, так маленькие русские буквы идут в таблице с разрывом, писал же.
Код:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Русские буквы в TurboPascal | DartMrakkk | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 10.03.2009 21:51 |
Русские буквы в dev c++ | bull | Общие вопросы C/C++ | 3 | 22.09.2008 20:28 |
поменять большие буквы на маленькие и маленькие на большие в си++ | Барби | Помощь студентам | 4 | 08.04.2008 01:25 |
Буквы большие и маленькие | alekscooper | Microsoft Office Excel | 1 | 12.04.2007 23:12 |