следующая тема »

[19 Сентябрь 2025, 00:53:54]

Новости, реклама:

[19 Сентябрь 2025, 00:53:54]

Новости, реклама:

[Toreador]

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

[SAgent-RAF-]

с таким названием темы лень даже писать, кое как себя заставил   то же мне рулез  :-/

[VooDoo]

ну ёлки-палки, что вы всё на пасцал наезжаете. ну ведь надо ж начём-нить детей в школах учить. И чем он хуже тех же сей?

[UNnameD]

чем хуже C? Паскаль изначально был создан для обучения студентов...
Он менее "пластичен" и динамичен....
Да и ващё паскаль - неплохая вещь( я щас говорю о турбо паскале, а не о например обжект паскале), но сравнивать его с C всё равно, что сравнивать топор с хирургическим скальпелем...

[iced]

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

[Toreador]

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

На себе испробовал!?
Явно ты им так и занимался? Что так о нём думаешь!
Согласен я только с тем чё черный экран многим неприятен, но в целом с этого языка начинается всё!

[iced]

с какого языка?

[VooDoo]

да все, по крайней мере в этой стране начинали с васика а потом писали на пасике. В гродно наверное ниодной школы нету в которой си дают

[VooDoo]

кстати о прикольных текстах. Во, ловите:

program OH_TOPMO3;

uses
 CRT;

const
 MHOrO_TEKCTOB         = 15;
 nPOPEXA               = nil;

type
 A_KTO_EBO_3HAET       = (HO_KTO_TO_BEgb_3HAET, BCE_ETO_BECbMA_CTPAHHO);

 HyMEP                 = Byte;

 CTPOKA                = String[15];

 TEKCTuK               = record
                           OHA: CTPOKA;
                           TOPMO3: HyMEP;
                         end;

 TAM_ABTOMAT           = ^ABTOMAT;

 ABTOMAT               = object
                           MOE_X, MOE_Y: HyMEP;
                           TEKCTOB_BCEBO: HyMEP;
                           TEKCTbl: array[1.. MHOrO_TEKCTOB] of TEKCTuK;
                           KAKOE: HyMEP;
                           TOPMO3uM: HyMEP;
                           XPEH_EMy: TAM_ABTOMAT;

                           constructor BOT_EBOHOE_MECTO(X, Y: HyMEP);
                           procedure BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT);
                           procedure ETO_CTPOKA(OHA_CAMA: CTPOKA;
                                                EE_TOPMO3: HyMEP);
                           procedure BblBOg;
                         end;

 XMblPb                = object
                           HE_KACEKOB: A_KTO_EBO_3HAET;
                           KTO_TAM_CAMOE_TAKOE: TAM_ABTOMAT;

                           constructor Hy_HuKAK_MHE_EBO_HE_HA3BATb;
                           procedure B_nyTb;
                           procedure u_EBO_TO3E
(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);
                       end;


procedure BAM_TEMHO;
begin
 ClrScr;
end;


procedure TOPMO3HyTb(CKOKO: HyMEP);
begin
 Delay(CKOKO);
end;


procedure rge_EMy_KBACuTb(EBO_X, EBO_Y: HyMEP);
begin
 GoToXY(EBO_X, EBO_Y);
end;


function WyXEP: Boolean;
begin
 WyXEP:= KeyPressed;
end;


constructor ABTOMAT. BOT_EBOHOE_MECTO(X, Y: HyMEP);
begin
 MOE_X:= X;
 MOE_Y:= Y;
 TEKCTOB_BCEBO:= 0;
 KAKOE:= 0;
 TOPMO3uM:= 0;
end;


procedure ABTOMAT. BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT);
begin
 XPEH_EMy:= KOMy_XPEH;
end;


procedure ABTOMAT. ETO_CTPOKA(OHA_CAMA: CTPOKA; EE_TOPMO3: HyMEP);
begin
 if TEKCTOB_BCEBO < MHOrO_TEKCTOB then begin
   Inc(TEKCTOB_BCEBO);
   with TEKCTbl[TEKCTOB_BCEBO] do begin
     OHA:= OHA_CAMA;
     TOPMO3:= EE_TOPMO3;
   end;
 end;
end;


procedure ABTOMAT. BblBOg;
begin
 if TEKCTOB_BCEBO > 0 then begin
   if TOPMO3uM = 0 then begin
     Inc(KAKOE);
     if KAKOE > TEKCTOB_BCEBO then KAKOE:= 1;
     rge_EMy_KBACuTb(MOE_X, MOE_Y);
     with TEKCTbl[KAKOE] do begin
        Write(OHA);
        TOPMO3uM:= TOPMO3;
     end;
   end;
   Dec(TOPMO3uM);
 end;
end;


constructor XMblPb. Hy_HuKAK_MHE_EBO_HE_HA3BATb;
begin
 KTO_TAM_CAMOE_TAKOE:= nPOPEXA;
 HE_KACEKOB:= BCE_ETO_BECbMA_CTPAHHO;
end;


procedure XMblPb. u_EBO_TO3E(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);
begin
 if KTO_TAM_CAMOE_TAKOE = nPOPEXA then begin
   KTO_TAM_CAMOE_TAKOE:= uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
   uMEHHO_ETO_MOXHATOE_OHO_CAMOE^. XPEH_EMy:= uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
 end
 else begin
   uMEHHO_ETO_MOXHATOE_OHO_CAMOE^. XPEH_EMy:= KTO_TAM_CAMOE_TAKOE^. XPEH_EMy;
   KTO_TAM_CAMOE_TAKOE^. XPEH_EMy:= uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
 end;
end;


procedure XMblPb. B_nyTb;
var
 ETOT_PAXuT: TAM_ABTOMAT;

begin
 ETOT_PAXuT:= KTO_TAM_CAMOE_TAKOE;

 while not WyXEP do
   with ETOT_PAXuT^ do begin
     BblBOg;
     ETOT_PAXuT:= XPEH_EMy;
     rge_EMy_KBACuTb(1, 10);
     TOPMO3HyTb(40);
   end;
end;


procedure BAM_XOPOWO;
begin
 BAM_TEMHO;
 WriteLN('OH TOPMO3 v1. 0  Copyright The Future Hackers, 1993');
 WriteLN('  Written by Kirill Shirokov and Dmitry Moskovich, May 93');
 WriteLN;
end;


var
 EBO_3EHKu,
 EBO_HOC,
 EBO_POT,
 EBO_XBOCT: ABTOMAT;

 KACEKOB: XMblPb;


begin
 with KACEKOB do begin
   Hy_HuKAK_MHE_EBO_HE_HA3BATb;
   with EBO_3EHKu do begin
     BOT_EBOHOE_MECTO(1, 1);
     ETO_CTPOKA('-  -', 20);
     ETO_CTPOKA('o  o', 3);
     ETO_CTPOKA('O  O', 16);
     ETO_CTPOKA('0  0', 23);
     ETO_CTPOKA('O  O', 14);
     ETO_CTPOKA('o  o', 5);
   end;
   u_EBO_TO3E(@EBO_3EHKu);

   with EBO_HOC do begin
     BOT_EBOHOE_MECTO(1, 2);
     ETO_CTPOKA('.. ', 21);
     ETO_CTPOKA(' oo ', 16);
   end;
   u_EBO_TO3E(@EBO_HOC);

   with EBO_POT do begin
     BOT_EBOHOE_MECTO(1, 3);
     ETO_CTPOKA(' -- ', 22);
     ETO_CTPOKA(' == ', 4);
     ETO_CTPOKA('-==-', 6);
     ETO_CTPOKA('/--\', 19);
     ETO_CTPOKA('-!! -', 16);
     ETO_CTPOKA('\==/', 21);
     ETO_CTPOKA('-!! -', 3);
   end;
   u_EBO_TO3E(@EBO_POT);

   BAM_TEMHO;
   B_nyTb;
   BAM_XOPOWO;
 end;
end.

[Toreador]

с какого языка?

Ты попал не на ту тему?
:-/

[iced]

у меня был basic, c, c++, pascal - в этом порядке.

[VooDoo]

у меня был basic, c, c++, pascal - в этом порядке.

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

[Toreador]

кстати о прикольных текстах. Во, ловите:

program OH_TOPMO3;
[snip by x-penguin]
.....

---------------------------------------
По тексту вижу прикольная прога!
Скоро свою кину!.......

[Toreador]

 
ВОТ ТАКАЯ ВОТ ПРОГА!!!
-----------------------------------------


{COPYRIGHT 2005 ©! THIS PROGRAMM CREATED BY TORE@DOR!}
(*ВЕЗЕНИЁ or ИнТУИциЯ*)
{YoU INTYISHEN}

uses crt;
label nach;
var o,s,r,i,p,j:integer;

procedure vverh;
begin
textbackground(4);
 textcolor(white);
clrscr;
 writeln('-------------------------------------------------------------------------------');
 writeln('':30,'ТВОЁ ВЕЗЕНИЕ');
 writeln('-------------------------------------------------------------------------------');
end;

procedure poka;
begin
 clrscr;
  writeln('-------------------------------------------------------------------------------');
  writeln('':30,'СПАСИБО ЗА ИСПОЛЬЗОВАНИЕ');
  writeln('-------------------------------------------------------------------------------');
  writeln('':492,'COPYRIGHT 2005 ©! THIS PROGRAMM CREATED BY TORE@DOR!');
   writeln; writeln; writeln;
   writeln('':24,'ВАШЕ ВЕЗЕНИЕ(ИНТУИЦИЯ) СОСТАВЛЯЕТ: ',i,'%');
 readln;
end;

procedure los;
begin
 vverh;
  for j:=1 to 70 do
 write('':15,'GAME OVER':3);
  readln;
   i:=0;
 poka;
end;

procedure win;
begin
  vverh;
 for j:=1 to 20 do
writeln('':25,'YOU WIN!');
end;

begin
nach:
vverh;
write('ПРЕДЕЛЫ ЧИСЕЛ:'); readln(s);
if (s<3) or (s>100) then begin writeln('A ЛЕГКО НЕ БУДЕТ?');
readln; goto nach; end;
write('ВВЕДИ ЛЮБОЕ ЧИСЛО:'); readln(o);
if (o>s) then goto nach;
 randomize;
 r:=random(s);
  writeln('КОМПЬЮТЕР ВЫБРАЛ: ',r);
if (o=r) then i:=i+14+r
else
if (i>=9) then i:=i-10 else i:=i-1;
if (i>=0) and (i<92) then writeln('ВАША УДАЧА СОСТАВЛЯЕТ: ',i,'%')
else if (i>=-15) then writeln('МОЖЕТ ВЫ ЕЩЁ НЕ ЗАДУМЫВАЛИСЬ ОБ ЭТОМ - НО ВЫ НЕУДАЧНИК (НИЦА)!  (',i,')')
 else if (i<=-15) then los;
if (i>=92) then win;
readln;
repeat
vverh;
writeln;
writeln('':30,'ЕЩЁ РАЗОК?');
writeln('"1" - ДА, ЕЩЁ!          "2" - НЕТ! УЖЕ ХВАТИТ');
readln(p);
until (p=1) or (p=2);
if (p=1) then goto nach else poka;
end.

[iced]

а кто тебе сказал что я в школе или там в универе учил?

[Toreador]

а кто тебе сказал что я в школе или там в универе учил?

Так ты вообще самоучка? [smiley=1.gif]

[iced]

нет

[Toreador]

нет

Возникает ещё один вопрос - Ты вообще паскаль знаешь?

[iced]

уже наверное нет.

[Toreador]

уже наверное нет.

Возможно ты и не знал! Ты не задумывался об этом?
Попробуй поучить,... возьми умные книги и т.п.
----

[iced]

1. знал
2. зачем оно мне надо
3. умные книги по паскалю? ;]

[LamMeR]

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

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

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

[iced]

>IceD когда-то знал паскаль. ведь дипломы на респе брал

не дипломы а асболютные первые места :]]]

>ну а без знания языка это никак

ну последнюю республику я таки хотел на с++ писать - но не дали - у них компилера не оказалось :]

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

не на всё. в основном на дельфю и иногда на жабку.

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

неа - с васика и зх ассемблера.

[iced]

>и вот уже как большой

`старый и больной` (ц)

[LamMeR]

>IceD когда-то знал паскаль. ведь дипломы на респе брал

не дипломы а асболютные первые места :]]]

абсолютное первые-это тоже дипломы

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

неа - с васика и зх ассемблера.

у кого как, у меня с паскаля

[VooDoo]

Я начинал с васика, ну если это можно назвать началом. Просто где-то в 6 классе нам давали книжку и мы от-туда набирали проги. Конечно же Пётр Владиславович нам что-то объяснял, но кто ж его слушал в 6 классе, нам играться была охота. А потом уже в 9 и дальше был паскаль. Так что нормальное начало было с паскаля и большое ему за это спасибо

[Mишкa (Phantom)]

Паскаль и Васик это основа.

Многие конечно же могут возразить....но это просто мое личное мнение.

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

:-)

[Dark Side]

Вообще-то основа- это Assembler!!!

[Dark Side]

Тем не менее без Пасцаля в Делфях нечего ловить!!!
Всё чаще замечаю, что мыслю вне языков программирования. А вообще С++ изящней Пасаля.
И синтаксис более свободный, рекомендую.

[iced]

Тем не менее без Пасцаля в Делфях нечего ловить!!!

ну и хорошо. нафиг они нуны то?