Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Здравствуйте, гость ( Вход | Регистрация )
Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется |
Aug 24 2005, 14:35
Сообщение
#1
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Можете сдесь задавать свои вопросы по этой теме.
-------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Jul 12 2006, 11:15
Сообщение
#2
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
короче там где ты выводишь очередной символ добавь эти строчки
Код if (Ord(str[i])>=192) and (Ord(str[i])<=239) then str[i]:=Chr(Ord(str[i])-64); if (Ord(str[i])>=240) and (Ord(str[i])<=255) then str[i]:=Chr(Ord(str[i])-16); но только при открытии блокнотом выходной файл естественно некорректно будет отображаться зато на экране паскаля все нормально должно быть -------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Aug 25 2006, 22:52
Сообщение
#3
|
|
Мега постер Группа: Local moder Сообщений: 1,712 Регистрация: 21.8.2006 Пользователь №: 1,269 |
Код if (Ord(str[i])>=192) and (Ord(str[i])<=239) then str[i]:=Chr(Ord(str[i])-64); if (Ord(str[i])>=240) and (Ord(str[i])<=255) then str[i]:=Chr(Ord(str[i])-16); В плюс к этому писал у себя ещё 2 условия: Код if(t==168) lit = 240;
if(t==184) lit = 241; -------------------- |
|
|
Aug 25 2006, 23:15
Сообщение
#4
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
В плюс к этому писал у себя ещё 2 условия: Код if(t==168) lit = 240; if(t==184) lit = 241; тока они у тебя не написаны на паскале. Это на сиподобном языке ты написал-си, ява... На Паскаль несложно переделать: Код if t=168 then lit: = 240;
if t=184 then lit: = 241; Сообщение отредактировал Gobbs - Aug 25 2006, 23:16 |
|
|
Aug 27 2006, 14:12
Сообщение
#5
|
|
Мега постер Группа: Local moder Сообщений: 1,712 Регистрация: 21.8.2006 Пользователь №: 1,269 |
тока они у тебя не написаны на паскале Господь с вами.. а разницы-то.. Тут дело не в языке, а в алгоритме -------------------- |
|
|
Aug 27 2006, 15:28
Сообщение
#6
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
|
|
|
Aug 27 2006, 16:15
Сообщение
#7
|
|
PAUK-NET.RU TEAM Группа: Admin Сообщений: 4,715 Регистрация: 11.7.2005 Из: ЮЗР Пользователь №: 3 |
|
|
|
Aug 27 2006, 16:24
Сообщение
#8
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Предлагаешь перейти к блок-схемам или Р-схемам? Нашёл предмет для спора - главное, что суть была понята - остальное всё фигня. Если всё понятно-конечно нет разницы как писать. Но для тех, кто не изучал си, а только паскаль, синтаксис языка си несовсем понятен, могу это точно сказать по многим моим знакомым. Я это к тому, чтобы в теме про паскаль писать код паскаля, а не что-то другое, чтобы не возникало лишних ворпосов. По-моему, это логично и практично. |
|
|
Текстовая версия | Сейчас: 12th May 2024 - 07:19 |