IPB

Здравствуйте, гость ( Вход | Регистрация )

> Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется
DAN
сообщение Aug 24 2005, 14:35
Сообщение #1


Мега постер
******

Группа: Posters
Сообщений: 1,337
Регистрация: 15.8.2005
Из: Москва
Пользователь №: 45
Можете сдесь задавать свои вопросы по этой теме.


--------------------
http://www.fds-net.ru Филиал Дома Студента МГУ
Вернуться к началу страницы
 
+Цитировать сообщение
 
 Создать новую тему
Ответов
DAN
сообщение 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 Филиал Дома Студента МГУ
Вернуться к началу страницы
 
+Цитировать сообщение
Amp
сообщение Aug 25 2006, 22:52
Сообщение #3


Мега постер
Иконка группы

Группа: Local moder
Сообщений: 1,712
Регистрация: 21.8.2006
Пользователь №: 1,269
Цитата(DAN @ Jul 12 2006, 12:15) *
Код
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;


--------------------
irc-капец

#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение

Сообщений в этой теме
- DAN   Программирование Turbo Pascal 7 и Delphi 7   Aug 24 2005, 14:35
- - Vertigo   DAN у тебя не фтп есть турбопаскаль?Нужен прям сед...   Nov 13 2005, 16:26
|- - DAN   Цитата(Vertigo @ Nov 13 2005, 16:26) DAN ...   Nov 13 2005, 17:05
||- - Vertigo   Цитата(DAN @ Nov 13 2005, 17:05) Есть TP7...   Nov 13 2005, 18:13
|- - DRAFARD   Цитата(Vertigo @ Nov 13 2005, 17:26) DAN ...   Oct 9 2006, 19:12
- - FEDERAL   Нужен сам Турбо паскаль+книга+все нах все FAки кот...   Nov 21 2005, 21:38
|- - DAN   Цитата(FEDERAL @ Nov 21 2005, 21:38) Нуже...   Nov 22 2005, 09:05
|- - FEDERAL   Цитата(DAN @ Nov 22 2005, 09:05) Есть и Т...   Nov 24 2005, 20:37
|- - JoNy202   Цитата(FEDERAL @ Nov 24 2005, 20:37) може...   Nov 24 2005, 23:10
|- - FEDERAL   Цитата(JoNy202 @ Nov 24 2005, 23:10) Вот ...   Nov 25 2005, 17:23
- - AndrewDragon   гыгы, я тож участвую, тока в Новчике ты раньше во...   Nov 21 2005, 22:07
|- - FEDERAL   Цитата(AndrewDragon @ Nov 21 2005, 22:07)...   Nov 21 2005, 22:45
- - DAN   держи 213.24.106.78 там папки TP7 и TP Book   Nov 24 2005, 21:33
- - DAN   FEDERAL, а ты случайно не 18 декабря участвуешь в ...   Nov 28 2005, 20:36
|- - Ea*Rais!   Цитата(DAN @ Nov 28 2005, 20:36) FEDERAL,...   Dec 10 2005, 12:40
|- - Папа Саня (DEN)   Цитата(Ea*Rais! @ Dec 10 2005, 12:40)...   Dec 10 2005, 15:24
|- - FEDERAL   Цитата(Папа Саня (DEN) @ Dec 10 2005,...   Dec 10 2005, 23:17
|- - Папа Саня (DEN)   Цитата(FEDERAL @ Dec 10 2005, 23:17) ага ...   Dec 11 2005, 19:04
|- - FEDERAL   Цитата(Папа Саня (DEN) @ Dec 11 2005,...   Dec 11 2005, 19:24
|- - Папа Саня (DEN)   Цитата(FEDERAL @ Dec 11 2005, 19:24) мне ...   Dec 11 2005, 19:43
|- - FEDERAL   Цитата(Папа Саня (DEN) @ Dec 11 2005,...   Dec 12 2005, 21:31
- - DAN   Так те нужно или нет?   Nov 29 2005, 20:22
|- - FEDERAL   Цитата(DAN @ Nov 29 2005, 20:22) Так те н...   Dec 6 2005, 21:25
|- - Папа Саня (DEN)   Цитата(FEDERAL @ Dec 6 2005, 21:25) уже с...   Dec 6 2005, 21:31
|- - FEDERAL   Цитата(Папа Саня (DEN) @ Dec 6 2005, ...   Dec 6 2005, 21:34
- - Папа Саня (DEN)   Да, там кстати команда из 3 чел нужна - это официа...   Dec 10 2005, 15:51
- - Nemo   Ну! Кто победил на той олимпиаде то? А?   Mar 9 2006, 21:25
|- - DAN   Цитата(Nemo @ Mar 9 2006, 21:25) Ну! ...   Mar 9 2006, 22:33
|- - Nemo   Цитата(DAN @ Mar 9 2006, 22:33) ФЕДЕРАЛ в...   Mar 9 2006, 22:35
|- - DAN   Цитата(Nemo @ Mar 9 2006, 22:35) Ну а ты ...   Mar 9 2006, 22:59
- - Urus   Dan делаешь за бабки или нет? Как, если что с тоб...   Mar 23 2006, 09:11
|- - DAN   Цитата(Urus @ Mar 23 2006, 09:11) Dan дел...   Mar 23 2006, 13:54
|- - Gobbs   Цитата(DAN @ Mar 23 2006, 13:54) нет, не ...   Mar 23 2006, 21:08
- - Nadir   Borland Delphi 6 Enterprise Edition... мож у кого ...   May 3 2006, 12:23
|- - DAN   Цитата(Nadir @ May 3 2006, 13:23) Borland...   May 3 2006, 18:16
- - Nadir   Просто у меня больше инфы на 6, чем на 7 или тем б...   May 4 2006, 12:25
|- - DAN   Цитата(Nadir @ May 4 2006, 13:25) Просто ...   May 4 2006, 13:29
- - Nadir   Как бы не получилось ремонтировать ВАЗ 2109 по инс...   May 4 2006, 14:12
|- - SiMM   Цитата(Nadir @ May 4 2006, 15:12) Как бы ...   May 4 2006, 15:32
- - Nadir   Мож кто поделится софтиной?.. С внешнего качать мн...   May 5 2006, 06:43
|- - DAN   Цитата(Nadir @ May 5 2006, 07:43) Мож кто...   May 5 2006, 14:37
- - Nadir   Спасибо. Откуда качать?   May 5 2006, 15:01
|- - DAN   Цитата(Nadir @ May 5 2006, 16:01) Спасибо...   May 5 2006, 15:15
|- - Nadir   Цитата(DAN @ May 5 2006, 16:15) http://pa...   May 5 2006, 16:58
- - G1UK   Вообще, если такой вопрос поднялся, 6 лучше чем 7....   May 24 2006, 18:11
- - Lenin   У меня тут в одной программе(написана конечно на п...   Jul 12 2006, 09:46
- - DAN   вся проблема в том что когда смотришь и записыва...   Jul 12 2006, 10:18
- - DAN   хотя есть одна неточность - в 1 таблице А-я должны...   Jul 12 2006, 10:38
|- - Lenin   Цитата(DAN @ Jul 12 2006, 11:38) хотя ест...   Jul 12 2006, 11:22
|- - DAN   Цитата(Lenin @ Jul 12 2006, 12:22) А в ви...   Jul 12 2006, 11:26
- - DAN   короче там где ты выводишь очередной символ добавь...   Jul 12 2006, 11:15
|- - Amp   Цитата(DAN @ Jul 12 2006, 12:15) Кодif ...   Aug 25 2006, 22:52
|- - Gobbs   Цитата(Amp @ Aug 25 2006, 23:52) В плюс к...   Aug 25 2006, 23:15
|- - Amp   Цитата(Gobbs @ Aug 26 2006, 00:15) тока о...   Aug 27 2006, 14:12
|- - Gobbs   Цитата(Amp @ Aug 27 2006, 15:12) Господь ...   Aug 27 2006, 15:28
|- - SiMM   Цитата(Gobbs @ Aug 27 2006, 16:28) хех, в...   Aug 27 2006, 16:15
|- - Gobbs   Цитата(SiMM @ Aug 27 2006, 17:15) Предлаг...   Aug 27 2006, 16:24
|- - SiMM   Цитата(Gobbs @ Aug 27 2006, 17:24) Если в...   Aug 27 2006, 16:27
||- - Gobbs   Цитата(SiMM @ Aug 27 2006, 17:27) Не пойм...   Aug 27 2006, 16:36
|- - Amp   Цитата(Gobbs @ Aug 27 2006, 17:24) Если в...   Aug 27 2006, 19:01
- - Lenin   запахала гадина , спасиба DAN очень выручил   Jul 12 2006, 11:57
- - Lenin   мне тут ешо одну программку написать нужно , но в ...   Jul 17 2006, 11:04
- - DAN   Никогда не пробовал но попробуй обращаться с LST к...   Jul 17 2006, 12:55
- - Nikolaevich aka SpektR   а у тебя модуль сам то есть?   Jul 21 2006, 17:13
- - Nikolaevich aka SpektR   да и не будет наверное паскаль с новыми притерами ...   Jul 21 2006, 17:28
- - Gobbs   ЦитатаЕсли человек не может понять элементарнейших...   Aug 27 2006, 19:08
- - Ireul   Вот такие вот темы всегда вызывают у меня саркасти...   Oct 9 2006, 16:49
|- - Gobbs   Цитата(Ireul @ Oct 9 2006, 17:49) В общем...   Oct 9 2006, 16:56
|- - SiMM   Цитата(Ireul @ Oct 9 2006, 17:49) как буд...   Oct 14 2006, 19:51
|- - sam0rez   Цитата(Ireul @ Oct 9 2006, 16:49) Прежде ...   Nov 12 2006, 20:43
|- - Amp   Цитата(sam0rez @ Nov 12 2006, 20:43) delp...   Nov 12 2006, 21:21
- - GerVin   Давайте не будем сориться и все дружно перейдем на...   Nov 13 2006, 10:51
- - Sandro   программа нажна..на паскале значения заданных пере...   Dec 20 2006, 08:14
|- - Gobbs   Цитата(Sandro @ Dec 20 2006, 08:14) прогр...   Dec 20 2006, 11:02
- - Sandro   спасибо ток не все понятно можно попроще?мало я ...   Dec 20 2006, 17:20
|- - Gobbs   Цитата(Sandro @ Dec 20 2006, 17:20) ... м...   Dec 20 2006, 19:05
- - Sandro   1)составить программу нахождения суммы двух чисел ...   Jan 18 2007, 07:42
|- - SiMM   Цитата(Sandro @ Jan 18 2007, 07:42) 1)сос...   Jan 18 2007, 08:01
|- - Sandro   Цитата(SiMM @ Jan 18 2007, 08:01) Sandro,...   Jan 18 2007, 10:21
|- - SiMM   Цитата(Sandro @ Jan 18 2007, 10:21) а ост...   Jan 18 2007, 10:31
- - Amp   Вопрос и паскалю-то слабое отношение имеет. Посиди...   Jan 18 2007, 11:32
|- - Sandro   Цитата(Amp @ Jan 18 2007, 11:32) Вопрос и...   Jan 18 2007, 13:43
|- - Amp   Цитата(Sandro @ Jan 18 2007, 13:43) первы...   Jan 18 2007, 13:52
|- - Gobbs   Цитата(Amp @ Jan 18 2007, 13:52) Практика...   Jan 18 2007, 13:55
- - Gobbs   Цитата3)дан массив из N чисел в диапозоне от -3200...   Jan 18 2007, 13:00
- - Gobbs   Цитата2)дана последовательность из N чисел в диапо...   Jan 18 2007, 13:34
- - CBAPOr   Мне интересно, может кто-нибудь намутить программк...   Feb 18 2007, 20:13
|- - Gobbs   Цитата(CBAPOr @ Feb 18 2007, 20:13) Мне и...   Feb 18 2007, 21:13
- - Temp1ar   Подскажите пожалуйста, как понимать данный синтакс...   May 28 2007, 09:07
- - SiMM   Ну а в чём сложность то? Если при маскировании hex...   May 28 2007, 09:40
|- - Temp1ar   Цитата(SiMM @ May 28 2007, 10:40) Ну а в ...   May 28 2007, 10:39
|- - SiMM   Цитата(Temp1ar @ May 28 2007, 11:39) Как ...   May 28 2007, 11:38
- - Temp1ar   ЦитатаТочно так же. Так? Код$hexvar=hexdec...   May 28 2007, 13:30
- - SiMM   Да, только непонятен смысл использования второго ...   May 28 2007, 14:24
- - Temp1ar   Цитата(SiMM @ May 28 2007, 15:24) Да, то...   May 28 2007, 16:15
2 страниц V   1 2 >

« Предыдущая тема · Прикладное программирование · Следующая тема »
 

ОтветитьСоздать новую тему
4 чел. читают эту тему (гостей: 4, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

RSS Текстовая версия Сейчас: 16th June 2025 - 08:36
Форум IP.Board © 2025  IPS, Inc.