Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

Strony: 1

 

#1  2005-10-16 16:00:33

  korbol - Członek DUG

korbol
Członek DUG
Zarejestrowany: 2005-04-29

Pascal

Ktory pakiet polecacie zainstalować do programowania w pascalu bo sie normalnie na 4 roku zaczelismy uczyc :DZnalazlem cos takiego ale zupelnie niewiem ktore bedzi emi potrzebne i co wpisac po zainstalowaniu aby wywolac tego pascala.

Kod:

fp-compiler - Free Pascal -- Compiler
fp-docs - Free Pascal -- Documentation
fp-units-base - Free Pascal -- base units
fp-units-db - Free Pascal -- database libraries units
fp-units-fcl - Free Pascal -- Free Component Library
fp-units-gfx - Free Pascal -- graphics libraries units
fp-units-gnome1 - Free Pascal -- GNOME 1 units
fp-units-gtk - Free Pascal -- GTK 1.2 units
fp-units-misc - Free Pascal -- miscellaneous units
fp-units-net - Free Pascal -- networking units
fp-units-rtl - Free Pascal -- Runtime Library
fp-utils - Free Pascal -- Utils
Pozdrawiam

Offline

 

#2  2005-10-16 21:11:42

  korbol - Członek DUG

korbol
Członek DUG
Zarejestrowany: 2005-04-29

Re: Pascal

Widze ze nie wzbudzilem eufori moim pytaniem:)a jzu mam kolejne oto moj zaawansowany program:D w pascalu:


program jez;
uses wincrt;
var a,b,c,z:integer;
begin
write ('podaj a=');
read (a);
write ('podaj b=');
read (b);
write ('podaj c=');
[color=red]read[/color] (c);
z:= (a+b+c) ;
writeln (a,'+',b,'+',c,'=',z);
readln;
end.


Po podaniu ostatniej zmiennej c i wcisnieci enter okienko z progsem sie zamyka i w efekcie nei widac wyniku :/natomiast jezeli znienie ten mykens na czerwono to wszystko gra wynik sie pojawia i czeka na enter.


program jez;
uses wincrt;
var a,b,c,z:integer;
begin
write ('podaj a=');
read (a);
write ('podaj b=');
read (b);
write ('podaj c=');
[color=red]readln[/color] (c);
z:= (a+b+c) ;
writeln (a,'+',b,'+',c,'=',z);
readln;
end.

Dlaczego tak sie dzieje?Przeciez dalem na samym koncu readln co nakazuje czekac na enter.

Chyba trza przeniesc to do innego dzialu.

Pozdrawiam

Offline

 

#3  2005-10-16 21:29:30

  Bodzio - Ojciec Założyciel

Bodzio
Ojciec Założyciel
Skąd: Gorlice
Zarejestrowany: 2004-04-17
Serwis

Re: Pascal



Chyba trza przeniesc to do innego dzialu.[/quote]
No masz rację :)

Debian jest lepszy niż wszystkie klony
Linux register users: #359018
[img]http://www.freebsd.org/gifs/powerlogo.gif[/img]
[url=https://goo.gl/photos/5XGKFkvaMimLwM2s9]Beskid Niski[/url]

Offline

 

#4  2005-10-16 21:35:56

  BiExi - matka przelozona

BiExi
matka przelozona
Skąd: Gorlice
Zarejestrowany: 2004-04-16
Serwis

Re: Pascal

chyba bylo cos takiego jak keypress w tym pascaluczy readkey

a co do pascala to wes se zainstaluj freedos'a lub dosbox'a i na tym se postaw pascala 7.0

[url=http://dug.net.pl][b]DUG[/b][/url]

Offline

 

#5  2005-10-16 23:38:29

  korbol - Członek DUG

korbol
Członek DUG
Zarejestrowany: 2005-04-29

Re: Pascal

Dzieki.
Czy ktoś potrafi rozkminić (wyjasnić) dlaczego tak sie dzieje z tymi progsami?

Pozdrawiam

Offline

 

#6  2005-10-17 11:25:03

  voti - Votisław Naczelnik

voti
Votisław Naczelnik
Zarejestrowany: 2004-04-18
Serwis

Re: Pascal

korbol:

repeat until keypressed;

Registered Linux User #383763
[url=http://dug.net.pl/][img]http://voti.dug.net.pl/dug_mini.png[/img][/url]
[url=http://www.upr.org.pl/][img]http://www.upr.org.pl/main/grafika/mala_flaga.png[/img][/url]

Offline

 

#7  2005-10-17 11:28:41

  voti - Votisław Naczelnik

voti
Votisław Naczelnik
Zarejestrowany: 2004-04-18
Serwis

Re: Pascal

dobra mam taki progz i co tu zrobić żeby ten kod skrócić a efekt był taki sam??

Kod:

{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}
program kropka2;
uses crt;
var x,y,z     :integer;
    screen    : array[0..63999] of byte absolute $a000:0;
    screen1   : array[0..63999] of byte absolute $a370:0;
    screen2   : array[0..63999] of byte absolute $a640:0;
    screen3   : array[0..63999] of byte absolute $a120:0;
    screen4   : array[0..63999] of byte absolute $a800:0;
    screen5   : array[0..63999] of byte absolute $a4b0:0;
    screen6   : array[0..63999] of byte absolute $a5b0:0;
    screen7   : array[0..63999] of byte absolute $a360:0;
    screen8   : array[0..63999] of byte absolute $a760:0;
    screen9   : array[0..63999] of byte absolute $a010:0;
    screen10  : array[0..63999] of byte absolute $a4a0:0;
    screen11  : array[0..63999] of byte absolute $a9a0:0;
    screen12  : array[0..63999] of byte absolute $a8b0:0;
    screen13  : array[0..63999] of byte absolute $aa00:0;
    screen14  : array[0..63999] of byte absolute $a350:0;
    screen15  : array[0..63999] of byte absolute $a8a0:0;
    screen16  : array[0..63999] of byte absolute $a170:0;
    screen17  : array[0..63999] of byte absolute $aaa0:0;
    screen18  : array[0..63999] of byte absolute $a810:0;
    screen19  : array[0..63999] of byte absolute $ab80:0;
    screen20  : array[0..63999] of byte absolute $a650:0;
    screen21  : array[0..63999] of byte absolute $a380:0;
    screen22  : array[0..63999] of byte absolute $a4c0:0;
    screen23  : array[0..63999] of byte absolute $a2e0:0;
    screen24  : array[0..63999] of byte absolute $a5c0:0;
    screen25  : array[0..63999] of byte absolute $a5a0:0;
    screen26  : array[0..63999] of byte absolute $aa10:0;
    screen27  : array[0..63999] of byte absolute $a990:0;
    screen28  : array[0..63999] of byte absolute $a750:0;
    screen29  : array[0..63999] of byte absolute $a0b0:0;
    screen30  : array[0..63999] of byte absolute $a490:0;
    screen31  : array[0..63999] of byte absolute $a8c0:0;
    screen32  : array[0..63999] of byte absolute $a9b0:0;
    screen33  : array[0..63999] of byte absolute $a780:0;
    screen34  : array[0..63999] of byte absolute $a340:0;
    screen35  : array[0..63999] of byte absolute $a110:0;
    screen36  : array[0..63999] of byte absolute $ab70:0;
    screen37  : array[0..63999] of byte absolute $aab0:0;
    screen38  : array[0..63999] of byte absolute $a820:0;
    screen39  : array[0..63999] of byte absolute $a2b0:0;
    screen40  : array[0..63999] of byte absolute $a660:0;
    screen41  : array[0..63999] of byte absolute $a390:0;
    screen42  : array[0..63999] of byte absolute $a4d0:0;
    screen43  : array[0..63999] of byte absolute $a200:0;
    screen44  : array[0..63999] of byte absolute $a9f0:0;
    screen45  : array[0..63999] of byte absolute $a590:0;
    screen46  : array[0..63999] of byte absolute $a030:0;
    screen47  : array[0..63999] of byte absolute $a9c0:0;
    screen48  : array[0..63999] of byte absolute $a740:0;
    screen49  : array[0..63999] of byte absolute $a980:0;
    screen50  : array[0..63999] of byte absolute $a480:0;
    screen51  : array[0..63999] of byte absolute $a2f0:0;
    screen52  : array[0..63999] of byte absolute $a8d0:0;
    screen53  : array[0..63999] of byte absolute $a770:0;
    screen54  : array[0..63999] of byte absolute $a330:0;
    screen55  : array[0..63999] of byte absolute $a100:0;
    screen56  : array[0..63999] of byte absolute $a1f0:0;
    screen57  : array[0..63999] of byte absolute $a830:0;
    screen58  : array[0..63999] of byte absolute $a7f0:0;
    screen59  : array[0..63999] of byte absolute $a2a0:0;
    screen60  : array[0..63999] of byte absolute $a670:0;
    screen61  : array[0..63999] of byte absolute $a3a0:0;
    screen62  : array[0..63999] of byte absolute $a4e0:0;
    screen63  : array[0..63999] of byte absolute $a0d0:0;
    screen64  : array[0..63999] of byte absolute $a020:0;
    screen65  : array[0..63999] of byte absolute $a580:0;
    screen66  : array[0..63999] of byte absolute $a9d0:0;
    screen67  : array[0..63999] of byte absolute $aa20:0;
    screen68  : array[0..63999] of byte absolute $a730:0;
    screen69  : array[0..63999] of byte absolute $a970:0;
    screen70  : array[0..63999] of byte absolute $a5d0:0;
    screen71  : array[0..63999] of byte absolute $a470:0;
    screen72  : array[0..63999] of byte absolute $a220:0;
    screen73  : array[0..63999] of byte absolute $a8e0:0;
    screen74  : array[0..63999] of byte absolute $a320:0;
    screen75  : array[0..63999] of byte absolute $aac0:0;
    screen76  : array[0..63999] of byte absolute $a180:0;
    screen77  : array[0..63999] of byte absolute $aa30:0;
    screen78  : array[0..63999] of byte absolute $a890:0;
    screen79  : array[0..63999] of byte absolute $a7e0:0;
    screen80  : array[0..63999] of byte absolute $ab60:0;
    screen81  : array[0..63999] of byte absolute $a3b0:0;
    screen82  : array[0..63999] of byte absolute $a4f0:0;
    screen83  : array[0..63999] of byte absolute $a130:0;
    screen84  : array[0..63999] of byte absolute $a680:0;
    screen85  : array[0..63999] of byte absolute $a570:0;
    screen86  : array[0..63999] of byte absolute $a9e0:0;
    screen87  : array[0..63999] of byte absolute $a1d0:0;
    screen88  : array[0..63999] of byte absolute $a720:0;
    screen89  : array[0..63999] of byte absolute $a960:0;
    screen90  : array[0..63999] of byte absolute $a5e0:0;
    screen91  : array[0..63999] of byte absolute $a460:0;
    screen92  : array[0..63999] of byte absolute $a160:0;
    screen93  : array[0..63999] of byte absolute $a8f0:0;
    screen94  : array[0..63999] of byte absolute $a310:0;
    screen95  : array[0..63999] of byte absolute $aa40:0;
    screen96  : array[0..63999] of byte absolute $aad0:0;
    screen97  : array[0..63999] of byte absolute $a250:0;
    screen98  : array[0..63999] of byte absolute $a880:0;
    screen99  : array[0..63999] of byte absolute $a7d0:0;
    screen100 : array[0..63999] of byte absolute $ab50:0;
    screen101 : array[0..63999] of byte absolute $a290:0;
    screen102 : array[0..63999] of byte absolute $a3c0:0;
    screen103 : array[0..63999] of byte absolute $a1e0:0;
    screen104 : array[0..63999] of byte absolute $a690:0;
    screen105 : array[0..63999] of byte absolute $a560:0;
    screen106 : array[0..63999] of byte absolute $a940:0;
    screen107 : array[0..63999] of byte absolute $a1c0:0;
    screen108 : array[0..63999] of byte absolute $a710:0;
    screen109 : array[0..63999] of byte absolute $ab90:0;
    screen110 : array[0..63999] of byte absolute $a5f0:0;
    screen111 : array[0..63999] of byte absolute $a450:0;
    screen112 : array[0..63999] of byte absolute $a150:0;
    screen113 : array[0..63999] of byte absolute $a900:0;
    screen114 : array[0..63999] of byte absolute $a300:0;
    screen115 : array[0..63999] of byte absolute $ab40:0;
    screen116 : array[0..63999] of byte absolute $aae0:0;
    screen117 : array[0..63999] of byte absolute $a240:0;
    screen118 : array[0..63999] of byte absolute $aa50:0;
    screen119 : array[0..63999] of byte absolute $a870:0;
    screen120 : array[0..63999] of byte absolute $a060:0;
    screen121 : array[0..63999] of byte absolute $a280:0;
    screen122 : array[0..63999] of byte absolute $a3d0:0;
    screen123 : array[0..63999] of byte absolute $a500:0;
    screen124 : array[0..63999] of byte absolute $a2e0:0;
    screen125 : array[0..63999] of byte absolute $a550:0;
    screen126 : array[0..63999] of byte absolute $a6a0:0;
    screen127 : array[0..63999] of byte absolute $a1b0:0;
    screen128 : array[0..63999] of byte absolute $a700:0;
    screen129 : array[0..63999] of byte absolute $a600:0;
    screen130 : array[0..63999] of byte absolute $a090:0;
    screen131 : array[0..63999] of byte absolute $a440:0;
    screen132 : array[0..63999] of byte absolute $a210:0;
    screen133 : array[0..63999] of byte absolute $aba0:0;
    screen134 : array[0..63999] of byte absolute $a910:0;
    screen135 : array[0..63999] of byte absolute $ab30:0;
    screen136 : array[0..63999] of byte absolute $aaf0:0;
    screen137 : array[0..63999] of byte absolute $a950:0;
    screen138 : array[0..63999] of byte absolute $a0f0:0;
    screen139 : array[0..63999] of byte absolute $a860:0;
    screen140 : array[0..63999] of byte absolute $aa60:0;
    screen141 : array[0..63999] of byte absolute $a270:0;
    screen142 : array[0..63999] of byte absolute $a3e0:0;
    screen143 : array[0..63999] of byte absolute $a0c0:0;
    screen144 : array[0..63999] of byte absolute $a2d0:0;
    screen145 : array[0..63999] of byte absolute $a510:0;
    screen146 : array[0..63999] of byte absolute $a6b0:0;
    screen147 : array[0..63999] of byte absolute $a1a0:0;
    screen148 : array[0..63999] of byte absolute $a7c0:0;
    screen149 : array[0..63999] of byte absolute $a610:0;
    screen150 : array[0..63999] of byte absolute $a430:0;
    screen151 : array[0..63999] of byte absolute $a6f0:0;
    screen152 : array[0..63999] of byte absolute $a140:0;
    screen153 : array[0..63999] of byte absolute $abb0:0;
    screen154 : array[0..63999] of byte absolute $abd0:0;
    screen155 : array[0..63999] of byte absolute $a790:0;
    screen156 : array[0..63999] of byte absolute $a920:0;
    screen157 : array[0..63999] of byte absolute $a050:0;
    screen158 : array[0..63999] of byte absolute $ab00:0;
    screen159 : array[0..63999] of byte absolute $aa70:0;
    screen160 : array[0..63999] of byte absolute $ab20:0;
    screen161 : array[0..63999] of byte absolute $a260:0;
    screen162 : array[0..63999] of byte absolute $a3f0:0;
    screen163 : array[0..63999] of byte absolute $a850:0;
    screen164 : array[0..63999] of byte absolute $a540:0;
    screen165 : array[0..63999] of byte absolute $a080:0;
    screen166 : array[0..63999] of byte absolute $a520:0;
    screen167 : array[0..63999] of byte absolute $a6c0:0;
    screen168 : array[0..63999] of byte absolute $a7b0:0;
    screen169 : array[0..63999] of byte absolute $a620:0;
    screen170 : array[0..63999] of byte absolute $a420:0;
    screen171 : array[0..63999] of byte absolute $a6e0:0;
    screen172 : array[0..63999] of byte absolute $a230:0;
    screen173 : array[0..63999] of byte absolute $abc0:0;
    screen174 : array[0..63999] of byte absolute $abf0:0;
    screen175 : array[0..63999] of byte absolute $a7a0:0;
    screen176 : array[0..63999] of byte absolute $a0a0:0;
    screen177 : array[0..63999] of byte absolute $a2c0:0;
    screen178 : array[0..63999] of byte absolute $a930:0;
    screen179 : array[0..63999] of byte absolute $abe0:0;
    screen180 : array[0..63999] of byte absolute $aa80:0;
    screen181 : array[0..63999] of byte absolute $ab10:0;
    screen182 : array[0..63999] of byte absolute $a400:0;
    screen183 : array[0..63999] of byte absolute $a0e0:0;
    screen184 : array[0..63999] of byte absolute $aa90:0;
    screen185 : array[0..63999] of byte absolute $a840:0;
    screen186 : array[0..63999] of byte absolute $a530:0;
    screen187 : array[0..63999] of byte absolute $a190:0;
    screen188 : array[0..63999] of byte absolute $a6d0:0;
    screen189 : array[0..63999] of byte absolute $a630:0;
    screen190 : array[0..63999] of byte absolute $a410:0;
    screen191 : array[0..63999] of byte absolute $a075:0;
    screen192 : array[0..63999] of byte absolute $a375:0;
    screen193 : array[0..63999] of byte absolute $a645:0;
    screen194 : array[0..63999] of byte absolute $a125:0;
    screen195 : array[0..63999] of byte absolute $a805:0;
    screen196 : array[0..63999] of byte absolute $a4b5:0;
    screen197 : array[0..63999] of byte absolute $a5b5:0;
    screen198 : array[0..63999] of byte absolute $a765:0;
    screen199 : array[0..63999] of byte absolute $a015:0;
    screen200 : array[0..63999] of byte absolute $a4a5:0;
    screen201 : array[0..63999] of byte absolute $a9a5:0;
    screen202 : array[0..63999] of byte absolute $a8b5:0;
    screen203 : array[0..63999] of byte absolute $aa05:0;
    screen204 : array[0..63999] of byte absolute $a355:0;
    screen205 : array[0..63999] of byte absolute $a8a5:0;
    screen206 : array[0..63999] of byte absolute $a175:0;
    screen207 : array[0..63999] of byte absolute $aaa5:0;
    screen208 : array[0..63999] of byte absolute $a815:0;
    screen209 : array[0..63999] of byte absolute $ab85:0;
    screen210 : array[0..63999] of byte absolute $a655:0;
    screen211 : array[0..63999] of byte absolute $a385:0;
    screen212 : array[0..63999] of byte absolute $a4c5:0;
    screen213 : array[0..63999] of byte absolute $a2e5:0;
    screen214 : array[0..63999] of byte absolute $a5c5:0;
    screen215 : array[0..63999] of byte absolute $a5a5:0;
    screen216 : array[0..63999] of byte absolute $aa15:0;
    screen217 : array[0..63999] of byte absolute $a995:0;
    screen218 : array[0..63999] of byte absolute $a755:0;
    screen219 : array[0..63999] of byte absolute $a0b5:0;
    screen220 : array[0..63999] of byte absolute $a495:0;
    screen221 : array[0..63999] of byte absolute $a8c5:0;
    screen222 : array[0..63999] of byte absolute $a9b5:0;
    screen223 : array[0..63999] of byte absolute $a785:0;
    screen224 : array[0..63999] of byte absolute $a345:0;
    screen225 : array[0..63999] of byte absolute $a115:0;
    screen226 : array[0..63999] of byte absolute $ab75:0;
    screen227 : array[0..63999] of byte absolute $aab5:0;
    screen228 : array[0..63999] of byte absolute $a825:0;
    screen229 : array[0..63999] of byte absolute $a2b5:0;
    screen230 : array[0..63999] of byte absolute $a665:0;
    screen231 : array[0..63999] of byte absolute $a395:0;
    screen232 : array[0..63999] of byte absolute $a4d5:0;
    screen233 : array[0..63999] of byte absolute $a205:0;
    screen234 : array[0..63999] of byte absolute $a9f5:0;
    screen235 : array[0..63999] of byte absolute $a595:0;
    screen236 : array[0..63999] of byte absolute $a553:0;
    screen237 : array[0..63999] of byte absolute $a9c5:0;
    screen238 : array[0..63999] of byte absolute $a745:0;
    screen239 : array[0..63999] of byte absolute $a985:0;
    screen240 : array[0..63999] of byte absolute $a485:0;
    screen241 : array[0..63999] of byte absolute $a2f5:0;
    screen242 : array[0..63999] of byte absolute $a8d5:0;
    screen243 : array[0..63999] of byte absolute $a775:0;
    screen244 : array[0..63999] of byte absolute $a335:0;
    screen245 : array[0..63999] of byte absolute $a105:0;
    screen246 : array[0..63999] of byte absolute $a1f5:0;
    screen247 : array[0..63999] of byte absolute $a835:0;
    screen248 : array[0..63999] of byte absolute $a7f5:0;
    screen249 : array[0..63999] of byte absolute $a2a5:0;
    screen250 : array[0..63999] of byte absolute $a675:0;
    screen251 : array[0..63999] of byte absolute $a3a5:0;
    screen252 : array[0..63999] of byte absolute $a4e5:0;
    screen253 : array[0..63999] of byte absolute $a0d5:0;
    screen254 : array[0..63999] of byte absolute $a025:0;
    screen255 : array[0..63999] of byte absolute $a585:0;
    screen256 : array[0..63999] of byte absolute $a9d5:0;
    screen257 : array[0..63999] of byte absolute $aa25:0;
    screen258 : array[0..63999] of byte absolute $a735:0;
    screen259 : array[0..63999] of byte absolute $a975:0;
    screen260 : array[0..63999] of byte absolute $a5d5:0;
    screen261 : array[0..63999] of byte absolute $a475:0;
    screen262 : array[0..63999] of byte absolute $a225:0;
    screen263 : array[0..63999] of byte absolute $a8e5:0;
    screen264 : array[0..63999] of byte absolute $a325:0;
    screen265 : array[0..63999] of byte absolute $aac5:0;
    screen266 : array[0..63999] of byte absolute $a185:0;
    screen267 : array[0..63999] of byte absolute $aa35:0;
    screen268 : array[0..63999] of byte absolute $a895:0;
    screen269 : array[0..63999] of byte absolute $a7e5:0;
    screen270 : array[0..63999] of byte absolute $ab65:0;
    screen271 : array[0..63999] of byte absolute $a3b5:0;
    screen272 : array[0..63999] of byte absolute $a4f5:0;
    screen273 : array[0..63999] of byte absolute $a135:0;
    screen274 : array[0..63999] of byte absolute $a685:0;
    screen275 : array[0..63999] of byte absolute $a575:0;
    screen276 : array[0..63999] of byte absolute $a9e5:0;
    screen277 : array[0..63999] of byte absolute $a1d5:0;
    screen278 : array[0..63999] of byte absolute $a725:0;
    screen279 : array[0..63999] of byte absolute $a965:0;
    screen280 : array[0..63999] of byte absolute $a5e5:0;
    screen281 : array[0..63999] of byte absolute $a465:0;
    screen282 : array[0..63999] of byte absolute $a165:0;
    screen283 : array[0..63999] of byte absolute $a8f5:0;
    screen284 : array[0..63999] of byte absolute $a315:0;
    screen285 : array[0..63999] of byte absolute $aa45:0;
    screen286 : array[0..63999] of byte absolute $aad5:0;
    screen287 : array[0..63999] of byte absolute $a255:0;
    screen288 : array[0..63999] of byte absolute $a885:0;
    screen289 : array[0..63999] of byte absolute $a7d5:0;
    screen290 : array[0..63999] of byte absolute $ab55:0;
    screen291 : array[0..63999] of byte absolute $a295:0;
    screen292 : array[0..63999] of byte absolute $a3c5:0;
    screen293 : array[0..63999] of byte absolute $a1e5:0;
    screen294 : array[0..63999] of byte absolute $a695:0;
    screen295 : array[0..63999] of byte absolute $a565:0;
    screen296 : array[0..63999] of byte absolute $a945:0;
    screen297 : array[0..63999] of byte absolute $a1c5:0;
    screen298 : array[0..63999] of byte absolute $a715:0;
    screen299 : array[0..63999] of byte absolute $ab95:0;
    screen300 : array[0..63999] of byte absolute $a5f5:0;
    screen301 : array[0..63999] of byte absolute $a455:0;
    screen302 : array[0..63999] of byte absolute $a155:0;
    screen303 : array[0..63999] of byte absolute $a905:0;
    screen304 : array[0..63999] of byte absolute $a305:0;
    screen305 : array[0..63999] of byte absolute $ab45:0;
    screen306 : array[0..63999] of byte absolute $aae5:0;
    screen307 : array[0..63999] of byte absolute $a245:0;
    screen308 : array[0..63999] of byte absolute $aa55:0;
    screen309 : array[0..63999] of byte absolute $a875:0;
    screen310 : array[0..63999] of byte absolute $a065:0;
    screen311 : array[0..63999] of byte absolute $a285:0;
    screen312 : array[0..63999] of byte absolute $a3d5:0;
    screen313 : array[0..63999] of byte absolute $a505:0;
    screen314 : array[0..63999] of byte absolute $a2e5:0;
    screen315 : array[0..63999] of byte absolute $a555:0;
    screen316 : array[0..63999] of byte absolute $a6a5:0;
    screen317 : array[0..63999] of byte absolute $a1b5:0;
    screen318 : array[0..63999] of byte absolute $a705:0;
    screen319 : array[0..63999] of byte absolute $a605:0;
    screen320 : array[0..63999] of byte absolute $a095:0;
    screen321 : array[0..63999] of byte absolute $a445:0;
    screen322 : array[0..63999] of byte absolute $a215:0;
    screen323 : array[0..63999] of byte absolute $aba5:0;
    screen324 : array[0..63999] of byte absolute $a915:0;
    screen325 : array[0..63999] of byte absolute $ab35:0;
    screen326 : array[0..63999] of byte absolute $aaf5:0;
    screen327 : array[0..63999] of byte absolute $a955:0;
    screen328 : array[0..63999] of byte absolute $a0f5:0;
    screen329 : array[0..63999] of byte absolute $a865:0;
    screen330 : array[0..63999] of byte absolute $aa65:0;
    screen331 : array[0..63999] of byte absolute $a275:0;
    screen332 : array[0..63999] of byte absolute $a3e5:0;
    screen333 : array[0..63999] of byte absolute $a0c5:0;
    screen334 : array[0..63999] of byte absolute $a2d5:0;
    screen335 : array[0..63999] of byte absolute $a515:0;
    screen336 : array[0..63999] of byte absolute $a6d5:0;
    screen337 : array[0..63999] of byte absolute $a1a5:0;
    screen338 : array[0..63999] of byte absolute $a7c5:0;
    screen339 : array[0..63999] of byte absolute $a615:0;
    screen340 : array[0..63999] of byte absolute $a435:0;
    screen341 : array[0..63999] of byte absolute $a6f5:0;
    screen342 : array[0..63999] of byte absolute $a145:0;
    screen343 : array[0..63999] of byte absolute $abb5:0;
    screen344 : array[0..63999] of byte absolute $abd5:0;
    screen345 : array[0..63999] of byte absolute $a795:0;
    screen346 : array[0..63999] of byte absolute $a925:0;
    screen347 : array[0..63999] of byte absolute $a055:0;
    screen348 : array[0..63999] of byte absolute $ab05:0;
    screen349 : array[0..63999] of byte absolute $aa75:0;
    screen350 : array[0..63999] of byte absolute $ab25:0;
    screen351 : array[0..63999] of byte absolute $a265:0;
    screen352 : array[0..63999] of byte absolute $a3f5:0;
    screen353 : array[0..63999] of byte absolute $a855:0;
    screen354 : array[0..63999] of byte absolute $a545:0;
    screen355 : array[0..63999] of byte absolute $a085:0;
    screen356 : array[0..63999] of byte absolute $a525:0;
    screen357 : array[0..63999] of byte absolute $a6c5:0;
    screen358 : array[0..63999] of byte absolute $a7b5:0;
    screen359 : array[0..63999] of byte absolute $a625:0;
    screen360 : array[0..63999] of byte absolute $a425:0;
    screen361 : array[0..63999] of byte absolute $a6e5:0;
    screen362 : array[0..63999] of byte absolute $a235:0;
    screen363 : array[0..63999] of byte absolute $abc5:0;
    screen364 : array[0..63999] of byte absolute $abf5:0;
    screen365 : array[0..63999] of byte absolute $a7a5:0;
    screen366 : array[0..63999] of byte absolute $a0a5:0;
    screen367 : array[0..63999] of byte absolute $a2c5:0;
    screen368 : array[0..63999] of byte absolute $a935:0;
    screen369 : array[0..63999] of byte absolute $abe5:0;
    screen370 : array[0..63999] of byte absolute $aa85:0;
    screen371 : array[0..63999] of byte absolute $ab15:0;
    screen372 : array[0..63999] of byte absolute $a405:0;
    screen373 : array[0..63999] of byte absolute $a0e5:0;
    screen374 : array[0..63999] of byte absolute $aa95:0;
    screen375 : array[0..63999] of byte absolute $a845:0;
    screen376 : array[0..63999] of byte absolute $a535:0;
    screen377 : array[0..63999] of byte absolute $a195:0;
    screen378 : array[0..63999] of byte absolute $a6d5:0;
    screen379 : array[0..63999] of byte absolute $a635:0;
    screen380 : array[0..63999] of byte absolute $a415:0;
    screen381 : array[0..63999] of byte absolute $a075:0;
begin
clrscr;
asm
  mov ax,13h;
  int 10h;
 end;
repeat
 randomize;
 x:=random(63999);
 y:=random(255);
 z:=random(255);
 screen[x]:=z+y;
 screen1[x]:=z+y;
 screen2[x]:=z+y;
 screen3[x]:=z+y;
 screen4[x]:=z+y;
 screen5[x]:=z+y;
 screen6[x]:=z+y;
 screen7[x]:=z+y;
 screen8[x]:=z+y;
 screen9[x]:=z+y;
 screen10[x]:=z+y;
 screen11[x]:=z+y;
 screen12[x]:=z+y;
 screen13[x]:=z+y;
 screen14[x]:=z+y;
 screen15[x]:=z+y;
 screen16[x]:=z+y;
 screen17[x]:=z+y;
 screen18[x]:=z+y;
 screen19[x]:=z+y;
 screen20[x]:=z+y;
 screen21[x]:=z+y;
 screen22[x]:=z+y;
 screen23[x]:=z+y;
 screen24[x]:=z+y;
 screen25[x]:=z+y;
 screen26[x]:=z+y;
 screen27[x]:=z+y;
 screen28[x]:=z+y;
 screen29[x]:=z+y;
 screen30[x]:=z+y;
 screen31[x]:=z+y;
 screen32[x]:=z+y;
 screen33[x]:=z+y;
 screen34[x]:=z+y;
 screen35[x]:=z+y;
 screen36[x]:=z+y;
 screen37[x]:=z+y;
 screen38[x]:=z+y;
 screen39[x]:=z+y;
 screen40[x]:=z+y;
 screen41[x]:=z+y;
 screen42[x]:=z+y;
 screen43[x]:=z+y;
 screen44[x]:=z+y;
 screen45[x]:=z+y;
 screen46[x]:=z+y;
 screen47[x]:=z+y;
 screen48[x]:=z+y;
 screen49[x]:=z+y;
 screen50[x]:=z+y;
 screen51[x]:=z+y;
 screen52[x]:=z+y;
 screen53[x]:=z+y;
 screen54[x]:=z+y;
 screen55[x]:=z+y;
 screen56[x]:=z+y;
 screen57[x]:=z+y;
 screen58[x]:=z+y;
 screen59[x]:=z+y;
 screen60[x]:=z+y;
 screen61[x]:=z+y;
 screen62[x]:=z+y;
 screen63[x]:=z+y;
 screen64[x]:=z+y;
 screen65[x]:=z+y;
 screen66[x]:=z+y;
 screen67[x]:=z+y;
 screen68[x]:=z+y;
 screen69[x]:=z+y;
 screen70[x]:=z+y;
 screen71[x]:=z+y;
 screen72[x]:=z+y;
 screen73[x]:=z+y;
 screen74[x]:=z+y;
 screen75[x]:=z+y;
 screen76[x]:=z+y;
 screen77[x]:=z+y;
 screen78[x]:=z+y;
 screen79[x]:=z+y;
 screen80[x]:=z+y;
 screen81[x]:=z+y;
 screen82[x]:=z+y;
 screen83[x]:=z+y;
 screen84[x]:=z+y;
 screen85[x]:=z+y;
 screen86[x]:=z+y;
 screen87[x]:=z+y;
 screen88[x]:=z+y;
 screen89[x]:=z+y;
 screen90[x]:=z+y;
 screen91[x]:=z+y;
 screen92[x]:=z+y;
 screen93[x]:=z+y;
 screen94[x]:=z+y;
 screen95[x]:=z+y;
 screen96[x]:=z+y;
 screen97[x]:=z+y;
 screen98[x]:=z+y;
 screen99[x]:=z+y;
 screen100[x]:=z+y;
 screen101[x]:=z+y;
 screen102[x]:=z+y;
 screen103[x]:=z+y;
 screen104[x]:=z+y;
 screen105[x]:=z+y;
 screen106[x]:=z+y;
 screen107[x]:=z+y;
 screen108[x]:=z+y;
 screen109[x]:=z+y;
 screen110[x]:=z+y;
 screen111[x]:=z+y;
 screen112[x]:=z+y;
 screen113[x]:=z+y;
 screen114[x]:=z+y;
 screen115[x]:=z+y;
 screen116[x]:=z+y;
 screen117[x]:=z+y;
 screen118[x]:=z+y;
 screen119[x]:=z+y;
 screen120[x]:=z+y;
 screen121[x]:=z+y;
 screen122[x]:=z+y;
 screen123[x]:=z+y;
 screen124[x]:=z+y;
 screen125[x]:=z+y;
 screen126[x]:=z+y;
 screen127[x]:=z+y;
 screen128[x]:=z+y;
 screen129[x]:=z+y;
 screen130[x]:=z+y;
 screen131[x]:=z+y;
 screen132[x]:=z+y;
 screen133[x]:=z+y;
 screen134[x]:=z+y;
 screen135[x]:=z+y;
 screen136[x]:=z+y;
 screen137[x]:=z+y;
 screen138[x]:=z+y;
 screen139[x]:=z+y;
 screen140[x]:=z+y;
 screen141[x]:=z+y;
 screen142[x]:=z+y;
 screen143[x]:=z+y;
 screen144[x]:=z+y;
 screen145[x]:=z+y;
 screen146[x]:=z+y;
 screen147[x]:=z+y;
 screen148[x]:=z+y;
 screen149[x]:=z+y;
 screen150[x]:=z+y;
 screen151[x]:=z+y;
 screen152[x]:=z+y;
 screen153[x]:=z+y;
 screen154[x]:=z+y;
 screen155[x]:=z+y;
 screen156[x]:=z+y;
 screen157[x]:=z+y;
 screen158[x]:=z+y;
 screen159[x]:=z+y;
 screen160[x]:=z+y;
 screen161[x]:=z+y;
 screen162[x]:=z+y;
 screen163[x]:=z+y;
 screen164[x]:=z+y;
 screen165[x]:=z+y;
 screen166[x]:=z+y;
 screen167[x]:=z+y;
 screen168[x]:=z+y;
 screen169[x]:=z+y;
 screen170[x]:=z+y;
 screen171[x]:=z+y;
 screen172[x]:=z+y;
 screen173[x]:=z+y;
 screen174[x]:=z+y;
 screen175[x]:=z+y;
 screen176[x]:=z+y;
 screen177[x]:=z+y;
 screen178[x]:=z+y;
 screen179[x]:=z+y;
 screen180[x]:=z+y;
 screen181[x]:=z+y;
 screen182[x]:=z+y;
 screen183[x]:=z+y;
 screen184[x]:=z+y;
 screen185[x]:=z+y;
 screen185[x]:=z+y;
 screen187[x]:=z+y;
 screen188[x]:=z+y;
 screen189[x]:=z+y;
 screen190[x]:=z+y;
 screen191[x]:=z+y;
 screen192[x]:=z+y;
 screen193[x]:=z+y;
 screen194[x]:=z+y;
 screen195[x]:=z+y;
 screen196[x]:=z+y;
 screen197[x]:=z+y;
 screen198[x]:=z+y;
 screen199[x]:=z+y;
 screen200[x]:=z+y;
 screen201[x]:=z+y;
 screen202[x]:=z+y;
 screen203[x]:=z+y;
 screen204[x]:=z+y;
 screen205[x]:=z+y;
 screen206[x]:=z+y;
 screen207[x]:=z+y;
 screen208[x]:=z+y;
 screen209[x]:=z+y;
 screen210[x]:=z+y;
 screen211[x]:=z+y;
 screen212[x]:=z+y;
 screen213[x]:=z+y;
 screen214[x]:=z+y;
 screen215[x]:=z+y;
 screen216[x]:=z+y;
 screen217[x]:=z+y;
 screen218[x]:=z+y;
 screen219[x]:=z+y;
 screen220[x]:=z+y;
 screen221[x]:=z+y;
 screen222[x]:=z+y;
 screen223[x]:=z+y;
 screen224[x]:=z+y;
 screen225[x]:=z+y;
 screen226[x]:=z+y;
 screen227[x]:=z+y;
 screen228[x]:=z+y;
 screen229[x]:=z+y;
 screen230[x]:=z+y;
 screen231[x]:=z+y;
 screen232[x]:=z+y;
 screen233[x]:=z+y;
 screen234[x]:=z+y;
 screen235[x]:=z+y;
 screen236[x]:=z+y;
 screen237[x]:=z+y;
 screen238[x]:=z+y;
 screen239[x]:=z+y;
 screen240[x]:=z+y;
 screen241[x]:=z+y;
 screen242[x]:=z+y;
 screen243[x]:=z+y;
 screen244[x]:=z+y;
 screen245[x]:=z+y;
 screen246[x]:=z+y;
 screen247[x]:=z+y;
 screen248[x]:=z+y;
 screen249[x]:=z+y;
 screen250[x]:=z+y;
 screen251[x]:=z+y;
 screen252[x]:=z+y;
 screen253[x]:=z+y;
 screen254[x]:=z+y;
 screen255[x]:=z+y;
 screen256[x]:=z+y;
 screen257[x]:=z+y;
 screen258[x]:=z+y;
 screen259[x]:=z+y;
 screen260[x]:=z+y;
 screen261[x]:=z+y;
 screen262[x]:=z+y;
 screen263[x]:=z+y;
 screen264[x]:=z+y;
 screen265[x]:=z+y;
 screen266[x]:=z+y;
 screen267[x]:=z+y;
 screen268[x]:=z+y;
 screen269[x]:=z+y;
 screen270[x]:=z+y;
 screen271[x]:=z+y;
 screen272[x]:=z+y;
 screen273[x]:=z+y;
 screen274[x]:=z+y;
 screen275[x]:=z+y;
 screen276[x]:=z+y;
 screen277[x]:=z+y;
 screen278[x]:=z+y;
 screen279[x]:=z+y;
 screen280[x]:=z+y;
 screen281[x]:=z+y;
 screen282[x]:=z+y;
 screen283[x]:=z+y;
 screen284[x]:=z+y;
 screen285[x]:=z+y;
 screen286[x]:=z+y;
 screen287[x]:=z+y;
 screen288[x]:=z+y;
 screen289[x]:=z+y;
 screen290[x]:=z+y;
 screen291[x]:=z+y;
 screen292[x]:=z+y;
 screen293[x]:=z+y;
 screen294[x]:=z+y;
 screen295[x]:=z+y;
 screen296[x]:=z+y;
 screen297[x]:=z+y;
 screen298[x]:=z+y;
 screen299[x]:=z+y;
 screen300[x]:=z+y;
 screen301[x]:=z+y;
 screen302[x]:=z+y;
 screen303[x]:=z+y;
 screen304[x]:=z+y;
 screen305[x]:=z+y;
 screen306[x]:=z+y;
 screen307[x]:=z+y;
 screen308[x]:=z+y;
 screen309[x]:=z+y;
 screen310[x]:=z+y;
 screen311[x]:=z+y;
 screen312[x]:=z+y;
 screen313[x]:=z+y;
 screen314[x]:=z+y;
 screen315[x]:=z+y;
 screen316[x]:=z+y;
 screen317[x]:=z+y;
 screen318[x]:=z+y;
 screen319[x]:=z+y;
 screen320[x]:=z+y;
 screen321[x]:=z+y;
 screen322[x]:=z+y;
 screen323[x]:=z+y;
 screen324[x]:=z+y;
 screen325[x]:=z+y;
 screen326[x]:=z+y;
 screen327[x]:=z+y;
 screen328[x]:=z+y;
 screen329[x]:=z+y;
 screen330[x]:=z+y;
 screen331[x]:=z+y;
 screen332[x]:=z+y;
 screen333[x]:=z+y;
 screen334[x]:=z+y;
 screen335[x]:=z+y;
 screen336[x]:=z+y;
 screen337[x]:=z+y;
 screen338[x]:=z+y;
 screen339[x]:=z+y;
 screen340[x]:=z+y;
 screen341[x]:=z+y;
 screen342[x]:=z+y;
 screen343[x]:=z+y;
 screen344[x]:=z+y;
 screen345[x]:=z+y;
 screen346[x]:=z+y;
 screen347[x]:=z+y;
 screen348[x]:=z+y;
 screen349[x]:=z+y;
 screen350[x]:=z+y;
 screen351[x]:=z+y;
 screen352[x]:=z+y;
 screen353[x]:=z+y;
 screen354[x]:=z+y;
 screen355[x]:=z+y;
 screen356[x]:=z+y;
 screen357[x]:=z+y;
 screen358[x]:=z+y;
 screen359[x]:=z+y;
 screen360[x]:=z+y;
 screen361[x]:=z+y;
 screen362[x]:=z+y;
 screen363[x]:=z+y;
 screen364[x]:=z+y;
 screen365[x]:=z+y;
 screen366[x]:=z+y;
 screen367[x]:=z+y;
 screen368[x]:=z+y;
 screen369[x]:=z+y;
 screen370[x]:=z+y;
 screen371[x]:=z+y;
 screen372[x]:=z+y;
 screen373[x]:=z+y;
 screen374[x]:=z+y;
 screen375[x]:=z+y;
 screen375[x]:=z+y;
 screen377[x]:=z+y;
 screen378[x]:=z+y;
 screen379[x]:=z+y;
 screen380[x]:=z+y;
 screen381[x]:=z+y;
 until keypressed;
end.
Registered Linux User #383763
[url=http://dug.net.pl/][img]http://voti.dug.net.pl/dug_mini.png[/img][/url]
[url=http://www.upr.org.pl/][img]http://www.upr.org.pl/main/grafika/mala_flaga.png[/img][/url]

Offline

 

#8  2005-10-17 15:49:38

  korbol - Członek DUG

korbol
Członek DUG
Zarejestrowany: 2005-04-29

Re: Pascal

Eno moje było krótsze:)Chyba sie pozegnalm z odpowiedzią:/

Uwaga zaszły zmiany z tym programi troche mi sie wczesniej kolejnosci pomyliły sprwdzcie jeszcze raz o co biega.

Pozdrawiam

Offline

 

 

Strony: 1

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
Możesz wyłączyć AdBlock — tu nie ma reklam ;-)

[ Generated in 0.028 seconds, 11 queries executed ]

Informacje debugowania

Time (s) Query
0.00018 SET CHARSET latin2
0.00009 SET NAMES latin2
0.00137 SELECT u.*, g.*, o.logged FROM punbb_users AS u INNER JOIN punbb_groups AS g ON u.group_id=g.g_id LEFT JOIN punbb_online AS o ON o.ident='18.217.203.172' WHERE u.id=1
0.00096 REPLACE INTO punbb_online (user_id, ident, logged) VALUES(1, '18.217.203.172', 1714974176)
0.00090 SELECT * FROM punbb_online WHERE logged<1714973876
0.00120 SELECT topic_id FROM punbb_posts WHERE id=15835
0.00143 SELECT id FROM punbb_posts WHERE topic_id=1905 ORDER BY posted
0.00104 SELECT t.subject, t.closed, t.num_replies, t.sticky, f.id AS forum_id, f.forum_name, f.moderators, fp.post_replies, 0 FROM punbb_topics AS t INNER JOIN punbb_forums AS f ON f.id=t.forum_id LEFT JOIN punbb_forum_perms AS fp ON (fp.forum_id=f.id AND fp.group_id=3) WHERE (fp.read_forum IS NULL OR fp.read_forum=1) AND t.id=1905 AND t.moved_to IS NULL
0.00016 SELECT search_for, replace_with FROM punbb_censoring
0.01576 SELECT u.email, u.title, u.url, u.location, u.use_avatar, u.signature, u.email_setting, u.num_posts, u.registered, u.admin_note, p.id, p.poster AS username, p.poster_id, p.poster_ip, p.poster_email, p.message, p.hide_smilies, p.posted, p.edited, p.edited_by, g.g_id, g.g_user_title, o.user_id AS is_online FROM punbb_posts AS p INNER JOIN punbb_users AS u ON u.id=p.poster_id INNER JOIN punbb_groups AS g ON g.g_id=u.group_id LEFT JOIN punbb_online AS o ON (o.user_id=u.id AND o.user_id!=1 AND o.idle=0) WHERE p.topic_id=1905 ORDER BY p.id LIMIT 0,25
0.00149 UPDATE punbb_topics SET num_views=num_views+1 WHERE id=1905
Total query time: 0.02458 s