 Программирование 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 |
Цитата(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; -------------------- |
|
|
|
|
Aug 25 2006, 23:15
Сообщение
#4
|
|
 Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Цитата(Amp @ Aug 25 2006, 23:52) В плюс к этому писал у себя ещё 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 |
|
|
|
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 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 |
|
Текстовая версия | Сейчас: 16th June 2025 - 01:29 |
