Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Vertigo]

DAN у тебя не фтп есть турбопаскаль?Нужен прям седня!!!

[DAN]

DAN у тебя не фтп есть турбопаскаль?Нужен прям седня!!!

Есть TP7

[Vertigo]

Есть TP7

А кокой адрес скажи плз я скачаю

[SiMM]

А у тебя инсталяка нет?

Гы Ни одна досовская программа не требует инсталляции Максимум - требуется настройка.

[Vertigo]

Гы Ни одна досовская программа не требует инсталляции Максимум - требуется настройка.

Гы А как мне всю папку выкачать?

[SiMM]

А как мне всю папку выкачать?

Какой софт может выкачать с ФТП целую папку с докачкой?

[DAN]

Гы А как мне всю папку выкачать?

Так то по этому вопросу уже есть тема. Но прога в моем варианте весит 11 мб - можно тем же тотал командером воспользоваться. Я ее копирнул у одного, потому что в ней графика работает. Еще есть установленный с моего диска ТП в 25 мб - но там я чето не смог настроить графику.

[Vertigo]

Фсе пасип Totalom уже качаю

[FEDERAL]

Нужен сам Турбо паскаль+книга+все нах все FAки которые есть)))
олимпиада на носу них не знаю!!!

[AndrewDragon]

гыгы, я тож участвую, тока в Новчике
ты раньше воопче чтоль не программил? )

[FEDERAL]

гыгы, я тож участвую, тока в Новчике
ты раньше воопче чтоль не программил? )

программил... до программился комне в хату с отдела к пришли... благо брат там прикрыл!
)) чат один ипанул )))

[DAN]

Нужен сам Турбо паскаль+книга+все нах все FAки которые есть)))
олимпиада на носу них не знаю!!!

Есть и ТП и учебник - тока это тебе мало чем поможет%) Насколько я знаю студенческие олимпиады сложнее чем школьные

[FEDERAL]

Есть и ТП и учебник - тока это тебе мало чем поможет%) Насколько я знаю студенческие олимпиады сложнее чем школьные

можешь на ФТП скинуть... ))))
мне хоть в глаза посмотреть!

[DAN]

держи
213.24.106.78
там папки TP7 и TP Book

[JoNy202]

можешь на ФТП скинуть... ))))
мне хоть в глаза посмотреть!

Вот такие програмеры и пишут Windows ггг шутка

[FEDERAL]

Вот такие програмеры и пишут Windows ггг шутка

я не отец я только учусь )

[DAN]

FEDERAL, а ты случайно не 18 декабря участвуешь в здании РЛИ (бывшего чувашско-турецкого)? А то есть подозрения, что, поскольку у нас студенческие олимпиады отсутствуют вообще, мы будем вместе соревноваться: и школьники, и студенты, чтобы вам, студентам, показать Кузькину мать

[DAN]

Так те нужно или нет?

[FEDERAL]

Так те нужно или нет?

уже слил да 18декабря вообщем Жопа мне я один от нашей 15школы )) ][ы

[DAN]

уже слил да 18декабря вообщем Жопа мне я один от нашей 15школы )) ][ы

ты школьник шоли? я думал студент

[FEDERAL]

ты школьник шоли? я думал студент

)) да из 15школы блин а ты поверил!

[Гость_Ea*Rais!_*]

FEDERAL, а ты случайно не 18 декабря участвуешь в здании РЛИ (бывшего чувашско-турецкого)? А то есть подозрения, что, поскольку у нас студенческие олимпиады отсутствуют вообще, мы будем вместе соревноваться: и школьники, и студенты, чтобы вам, студентам, показать Кузькину мать

Я помню в 11 классе туды ходил от 41 школы. Че пришел туды сел. Раздали задания, сначала тесты потом спросили на каком языке будешь программировать. Я говорю мне все равно один хрен ниче не знал. Короче сел умного себя сделал. Через мин 10 один вышел вслед за ним 2-ой вышел и так дальше. И остались мы человек 8, а потом я встал пля и ушел. Ваще полный ЛОЛ. Я думаю Federal и DAN остануться в двоем.

А скока всего будет человек??? там компов 20 максимум. НЕ знай может еще завезли.

Сообщение отредактировал Ea*Rais! - Dec 10 2005, 12:41

[DAN]

Я помню в 11 классе туды ходил от 41 школы. Че пришел туды сел. Раздали задания, сначала тесты потом спросили на каком языке будешь программировать. Я говорю мне все равно один хрен ниче не знал. Короче сел умного себя сделал. Через мин 10 один вышел вслед за ним 2-ой вышел и так дальше. И остались мы человек 8, а потом я встал пля и ушел. Ваще полный ЛОЛ. Я думаю Federal и DAN остануться в двоем.

А скока всего будет человек??? там компов 20 максимум. НЕ знай может еще завезли.

Тама 2 кабинета с компами. Скорее всего Федерал уйдет одним из первых

[DAN]

Да, там кстати команда из 3 чел нужна - это официально то районная командная олимпиада, хотя фактически это даже чуть больше чем городская - даже из Йошкар-Олы команда собирается приехать - у них то с этим делом все еще более дохло чем у нас

Сообщение отредактировал Папа Саня (DEN) - Dec 10 2005, 15:52

[FEDERAL]

Тама 2 кабинета с компами. Скорее всего Федерал уйдет одним из первых

ага я приду с хардкилом на флехе )
такое им устрою )

[DAN]

ага я приду с хардкилом на флехе )
такое им устрою )

Я ж тебе говорил, что там юзать внешние электронные носители запрещено и спереди нету юсб входа - или тебе пофигу и ты уже продумал план?

[FEDERAL]

Я ж тебе говорил, что там юзать внешние электронные носители запрещено и спереди нету юсб входа - или тебе пофигу и ты уже продумал план?

мне пофик прорвемся )))) ты их отвлекаешь я работаю

[DAN]

мне пофик прорвемся )))) ты их отвлекаешь я работаю

ггг хрен дождешься

[FEDERAL]

ггг хрен дождешься

ну и ладно

[Гость_Nemo_*]

Ну! Кто победил на той олимпиаде то? А?

[DAN]

Ну! Кто победил на той олимпиаде то? А?

ФЕДЕРАЛ вообще не пришел. Я его недавно на городской личной видел, но там он походу сразу после теоретического тура ушел

[Гость_Nemo_*]

ФЕДЕРАЛ вообще не пришел. Я его недавно на городской личной видел, но там он походу сразу после теоретического тура ушел

Ну а ты сам то как? Может расскажешь опчественности про эту Алимпиаду

Какие задания были? Выложи сюда.

[DAN]

Ну а ты сам то как? Может расскажешь опчественности про эту Алимпиаду

Какие задания были? Выложи сюда.

не помню я уже ее
всякие уже прошли: районные и городские, командные и личные. На республиканской командной наша 44-я 2-е абсолютное взяла, 1 - РЛИ гады. Какие-то рейтинговые проводятся неофициальные под спонсорством Эльдорадо, Букета Чувашии (лол). В Кирове получили 2 степень, на России в Питере не хватило 1 задачи чтоб взять диплом 3 степени (это вообще ужас - щас бы ато посчет институтов вообще не парился, итак бы взяли куда захотел), вон на этих выходных в Казань едем, на следующих республиканская личная будет

задачи бывают наподобие таких
 Условия.rar ( 18.89 килобайт ) Кол-во скачиваний: 59


Сообщение отредактировал DAN - Mar 23 2006, 13:55

[Kostet]

Dan делаешь за бабки или нет?
Как, если что с тобой договориться

[DAN]

Dan делаешь за бабки или нет?
Как, если что с тобой договориться

нет, не за бабки делаю, а только если умею я лишь алгоритмы составлять могу, полноценые проги - это не по моей части)

[Gobbs]

нет, не за бабки делаю, а только если умею я лишь алгоритмы составлять могу, полноценые проги - это не по моей части)

мона обратиться ко мне могу сделать и алгоритм и прогу накатать просто так, конечно.

[Nadir]

Borland Delphi 6 Enterprise Edition... мож у кого завалялся?

[DAN]

Borland Delphi 6 Enterprise Edition... мож у кого завалялся?

ээ а зачем тебе 6?

[Nadir]

Просто у меня больше инфы на 6, чем на 7 или тем более 8.

[DAN]

Просто у меня больше инфы на 6, чем на 7 или тем более 8.

нашел проблему) электронных учебников полно, хотя я не знаю, может если цели у тебя не слишком грандтозные то наверно и 6 пойдет

[Nadir]

Как бы не получилось ремонтировать ВАЗ 2109 по инструкции на ВАЗ 2106..., а что много вкусностей добавлено в 7?

[SiMM]

Как бы не получилось ремонтировать ВАЗ 2109 по инструкции на ВАЗ 2106..., а что много вкусностей добавлено в 7?

А какая нафиг разница, если результат одинаковый?

[Nadir]

Мож кто поделится софтиной?.. С внешнего качать много и ненай чево с ентого выйдет.

[DAN]

Мож кто поделится софтиной?.. С внешнего качать много и ненай чево с ентого выйдет.

есть 7 версия

[Nadir]

Спасибо. Откуда качать?

[DAN]

Спасибо. Откуда качать?

http://pauk.net.ru/ipb/index.php?showtopic=1928

[Nadir]

http://pauk.net.ru/ipb/index.php?showtopic=1928

Нашел. Благодарю.

[Гость_G1UK_*]

Вообще, если такой вопрос поднялся, 6 лучше чем 7...

В палитре компанентов есть ClientSocket и ServerSocket, а в 7 нету...

[Lenin]

У меня тут в одной программе(написана конечно на паскале) нужно из файла передать на экран текст .
Но получается так , что английский алфавит выходит провально , а когда доходит до русского то выводит бог знает что. Мож кто нить поможет

Я тут выложил код проги.....
 LENIN.rar ( 822 байт ) Кол-во скачиваний: 9


Сообщение отредактировал Lenin - Jul 12 2006, 09:49

[DAN]

 p2_2.jpg ( 196.35 килобайт ) Кол-во скачиваний: 29

вся проблема в том что когда смотришь и записываешь через Винду он все делает по 1 кодировке, а когда паскаль выводит на экран он использует 2 кодировку, т.е. при выводе на экран надо смещать коды с учетом таблицы

[DAN]

хотя есть одна неточность - в 1 таблице А-я должны быть не 176-239, а 192-255

Сообщение отредактировал DAN - Jul 12 2006, 11:01

[DAN]

короче там где ты выводишь очередной символ добавь эти строчки

Код

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);

но только при открытии блокнотом выходной файл естественно некорректно будет отображаться зато на экране паскаля все нормально должно быть

[Lenin]

хотя есть одна неточность - в 1 таблице А-я должны быть не 176-239, а 192-255

А в винде какие коды для а-я и А-я ?(только именно в винде)

[DAN]

А в винде какие коды для а-я и А-я ?(только именно в винде)

А-Я: 192-223
а-я: 224-255

[Lenin]

запахала гадина , спасиба DAN очень выручил

[Lenin]

мне тут ешо одну программку написать нужно , но в ней требуется вывести файл на печать(т.е. на принтер) , я пробовал добавлять в прогу:
Uses Printer;
....
begin
writeln (LST, '......')
end.

но выводится ошибка Error 105: File not open for output , другими словами файл не отррывается на запись ,

Мож у кого нить процедурка или функция какая нить для примера есть , срочно нужно!!!!!

[DAN]

Никогда не пробовал но попробуй обращаться с LST как с обычным файлом. Там может быть
Assign(output,LST);
Rewrite(output);

[Гость_Nikolaevich aka SpektR_*]

а у тебя модуль сам то есть?

[Гость_Nikolaevich aka SpektR_*]

да и не будет наверное паскаль с новыми притерами работать, если только с матричными и лазерными некоторыми

[Amp]

Код

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;

[Gobbs]

В плюс к этому писал у себя ещё 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

[Amp]

тока они у тебя не написаны на паскале

Господь с вами.. а разницы-то..
Тут дело не в языке, а в алгоритме

[Gobbs]

Господь с вами.. а разницы-то..
Тут дело не в языке, а в алгоритме

хех, вообще есть стандарты изложения алгоритмов. Давайте не будем писать в теме "про бейсик кодом ассемблера".

Программирование-это одна точность. Не стоит делать из этого кашу.

[SiMM]

хех, вообще есть стандарты изложения алгоритмов.

Предлагаешь перейти к блок-схемам или Р-схемам? Нашёл предмет для спора - главное, что суть была понята - остальное всё фигня.

[Gobbs]

Предлагаешь перейти к блок-схемам или Р-схемам? Нашёл предмет для спора - главное, что суть была понята - остальное всё фигня.

Если всё понятно-конечно нет разницы как писать. Но для тех, кто не изучал си, а только паскаль, синтаксис языка си несовсем понятен, могу это точно сказать по многим моим знакомым. Я это к тому, чтобы в теме про паскаль писать код паскаля, а не что-то другое, чтобы не возникало лишних ворпосов. По-моему, это логично и практично.

[SiMM]

Если всё понятно-конечно нет разницы как писать. Но для тех, кто не изучал си, а только паскаль, синтаксис языка си несовсем понятен, могу это точно сказать по многим моим знакомым. Я это к тому, чтобы в теме про паскаль писать код паскаля, а не что-то другое, чтобы не возникало лишних ворпосов. По-моему, это логично и практично.

Не поймёт - спросит. Логично? Много чести помнить синтаксис всякой экзотики, когда кругом Си-подобный.

[Gobbs]

Не поймёт - спросит. Логично? Много чести помнить синтаксис всякой экзотики, когда кругом Си-подобный.

Логично, но не практично

[Amp]

Если всё понятно-конечно нет разницы как писать. Но для тех, кто не изучал си

Если человек не может понять элементарнейших конструкций сишного синтаксиса (заметь, никаких специфических конструкций типа операций взятия адреса, разыменования и т.п. не было), то он весьма ограничен в своих знаниях...

Я это к тому, чтобы в теме про паскаль писать код паскаля, а не что-то другое, чтобы не возникало лишних ворпосов.

Может у меня такой алгоритмический язык?м?

З.Ы.Давайте жить дружно

[Gobbs]

Если человек не может понять элементарнейших конструкций сишного синтаксиса (заметь, никаких специфических конструкций типа операций взятия адреса, разыменования и т.п. не было), то он весьма ограничен в своих знаниях...

Всяко бывает

[Гость_Ireul_*]

Вот такие вот темы всегда вызывают у меня саркастическую улыбку до ушей.
Прежде всего меня радует что ретрограды программирования (более известные как Делфушники или Графоманы Кодинга и Прочие Мазохисты) называют себя программерами. Вы прогЛамера, детки. По современным тенденциям рынка даже AutoLISP востребован больше, чем прогЛамер Делфоидный... не верите - найдите любой IT-Recruitment сайтик, уже даже неважно отечественный, али забугорный. Там таких не как я, с ламерами, а вообще с шимпанзе сравнивают... Смотрите сами, короче....
И дело тут, представьте себе, даже не в синтаксисе. Дело в подходе. Иногда беру почитать свеженький Хакер - журнал с приходом Криса сейчас освобождается от оплота делфушнков - но раньше там были такие, например, статьи как "Делфи всемогущий". До сих пор помню как я офигевал КАКИЕ извращения(прочтите эту статью! Многие из вас хотя бы поймут что они даже прогламеры ниочёмные!) необходимы чтобы сработать на делфе драйвер или системную тулзу. И кто-то ведь этим занимался! Сейчас, слава богу, ошибки учтены, и журнал не принимает ваше вырождающееся племя всерьёз.

В общем ребята, хватит уже фигнёй страдать. Для чего всё время создаются таки темы? Для студентов? Если он не может сам осилить древний кал по кличке пас(история его рождения была прозаичной - как-нибудь кратко изложу) - он ошибся с профессией. Для специалистов? Специалистам всерьёз не подумают что этот кал на что-то годен. Для юзеров и чайников? Или может ламеров? Даже не смешно. Им это не поможет....

Вердикт: долой ниочёмные темы... или хотя бы называть надо не так, как будто это язык программирования, на котором люди работают...

[Gobbs]

В общем ребята, хватит уже фигнёй страдать. Для чего всё время создаются таки темы? Для студентов?

Хех, развёл тут. Это не специализированный форум программеров-это общий форум. Нужен типовой-иди ищи в инете.

[DRAFARD]

DAN у тебя не фтп есть турбопаскаль?Нужен прям седня!!!

если надо то
ftp://89.151.145.8/INSTALL/%D3%D7%C5%C1%CD%C8%CA%C8/TP7/BIN/

[SiMM]

как будто это язык программирования, на котором люди работают...

И ведь работают. Но, видимо, в Вашей классификации это не люди

[Гость_sam0rez_*]

Прежде всего меня радует что ретрограды программирования (более известные как Делфушники или Графоманы Кодинга и Прочие Мазохисты) называют себя программерами.

Ну развел понимаешь демогогию. Я когда-то тож с Паскаля начинал.. потом Delphi, сейчас и уже давно C++. Однако процентов 30 проектов до сих пор в Delphi пишу (быстрее и эффективней получается). И насчет работы ты это зря, огромное количество людей пишут на Delphi создавая реальные рабочие и восстребованые приложения. С другой стороны такое отношение мне немного понятно, сам непереношу VB-шников, но сравнить VB и Delphi язык не поворачивается. А по своему опыту могу сказать что на delphi(вернее object pascal-е) писать гораздо приятней чем на си.

[Amp]

delphi(вернее object pascal-е) писать гораздо приятней чем на си.

В чем же эта "приятность" выражается? Меня, скажем, выворачивает от паскалевского синтаксиса.. эти begin/end.. а когда они вложены и их много ) ууу.. ) какая картина!

[GerVin]

Давайте не будем сориться и все дружно перейдем на .NET

[Sandro]

программа нажна..на паскале
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста

[Gobbs]

программа нажна..на паскале
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста

Код

program sandro;
uses crt;
const a_count=3;
var a:array[1..a_count] of byte;
temp,i,k:byte;
begin
clrscr;
for i:=1 to sizeof(a) do
    begin
    write('vvedite chislo # ',i,' -->');
    readln(a[i]);
    end;

for i:=1 to sizeof(a)-1 do
    for k:=1 to sizeof(a)-1 do
        if(a[k]>a[k+1])then
          begin
          temp:=a[k];
          a[k]:=a[k+1];
          a[k+1]:=temp;
          end;

writeln('poluchili upor-ii massiv');
for i:=1 to sizeof(a) do
    writeln(i,'-oe chislo-->',a[i]);

readkey;
end.

[Sandro]

спасибо ток не все понятно можно попроще?мало я знаю в паскале...очень мало
но все равно спасибо

[Gobbs]

... можно попроще?мало я знаю в паскале...очень мало ...

Как раз появился повод узнать больше. Берёшь книгу в руки и вперёд! Будут какие-то непонятки, думаю, добрые люди помогут.

[Sandro]

1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000)
2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив).
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1
3)дан массив из N чисел в диапозоне от -32000 до 32000.(1<=N<=10000). отсортировать элементы данного массива по возрастанию
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10

[SiMM]

1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000)

Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций.

[Sandro]

Sandro, ты издеваешься? Такую программу даже человек, совершенно незнакомый с языком, уж хоть за сутки - да состряпает самостоятельно. Тем более при наличии инета даже при условии отсутствия книг и лекций.

а остальные програмы?
ps заходил в тему и думал что симм меня обгадит

[SiMM]

а остальные програмы?

тоже несложные.

[Amp]

Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет

[Gobbs]

3)дан массив из N чисел в диапозоне от -32000 до 32000.(1<=N<=10000). отсортировать элементы данного массива по возрастанию
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10

Алгоритм данной задачи был выложен мною в 79-ом посте данного топика.

[Gobbs]

2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив).
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1

Код

program sandro;
uses crt;
const max=10000;
var c:array[1..max] of integer;
n,i:integer;
begin
clrscr;
repeat;
  write('vvedite kol-vo el-ov-->');
  readln(n);
  if(n>max)then writeln('vvedeno N>MAX');
until(n<max);

write('zapolnite massiv->');

for i:=1 to n do
    repeat;
    read(c[i]);
    until((c[i]>-3200) and (c[i]<3200));

writeln;
write('vivod massiva v obratnom poriadke-->');
for i:=n downto 1 do
    write(c[i],' ');
end.

[Sandro]

Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет

первый учебный год паскаля,и то не все уроки были
for Simm кому как,по себе людей не суди уж

[Amp]

первый учебный год паскаля,и то не все уроки были

Зачем оправдываться? )

Если за тебя будут программировать алгоритмы (в данном случае типовые) ты вообще не получишь полезных знаний из предмета.

Практика показала:
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.

[Gobbs]

Практика показала:
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.

нет практики без теории, теорию надо обязательно закреплять на практике. Без этого никак.

[Гость_CBAPOr_*]

Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?

[Gobbs]

Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?

был бы стимул да желание

[Temp1ar]

Подскажите пожалуйста, как понимать данный синтаксис:

Код

hexvar:=StrToInt('$00F0'); # Преобразуем шестнадцатиричное число
   if (hexvar and $01)<>0 then d1:=1 else d1:=2;
   if (hexvar and $02)<>0 then d2:=1 else d2:=2;
   if (hexvar and $04)<>0 then d3:=1 else d3:=2;

Как понять последние 3 строчки? Когда True, а когда False?

[SiMM]

Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки.

[Temp1ar]

Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки.

Как производится это маскирование? Нельзя ли переделать как-нибудь это условие? Например на PHP как бы оно выглядело?

[SiMM]

Как производится это маскирование?

Побитово, в соответствии с алгеброй Буля.
http://ru.wikipedia.org/wiki/Логические_операции

Нельзя ли переделать как-нибудь это условие?

А зачем? Проще оно не станет.

Например на PHP как бы оно выглядело?

Точно так же.
http://php.net/language.operators.bitwise
Паскалевское AND - это сишное &, OR - сишное |.
PS: хотя... изврат на PHP мог бы выглядеть и так:

Код

extract(unpack('A1d3/A1d2/A1d1',strtr(sprintf('%03b',$hexvar&7),'01','12')));

правда работать с массивами, ИМХО, куда удобнее, чем с d1, d2, d3 по отдельности. И вообще, скорее всего, все эти танцы с бубном лишены смысла - ибо исходной задачи мы не знаем.

[Temp1ar]

Точно так же.

Так?

Код

$hexvar=hexdec('00F0'); # Преобразуем шестнадцатиричное число
   if (($hexvar & hexdec('01'))<>0) {$d1=1;} else {$d1=2;}

Сообщение отредактировал Temp1ar - May 28 2007, 13:32

[SiMM]

Да,
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]

[Temp1ar]

Да,
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]

Ну там не только до 10, ну вообщем смысл понятен 0x01, спасибо.