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

[DAN]

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

[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]

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