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!
Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.
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.
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
Offline
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.
Offline
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
Dzieki.
Czy ktoś potrafi rozkminić (wyjasnić) dlaczego tak sie dzieje z tymi progsami?
Offline
korbol:
repeat until keypressed;
Offline
dobra mam taki progz i co tu zrobić żeby ten kod skrócić a efekt był taki sam??
{$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.
Offline
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.
Offline
Time (s) | Query |
---|---|
0.00010 | SET CHARSET latin2 |
0.00004 | SET NAMES latin2 |
0.00106 | 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.118.150.80' WHERE u.id=1 |
0.00098 | REPLACE INTO punbb_online (user_id, ident, logged) VALUES(1, '18.118.150.80', 1714971010) |
0.00051 | SELECT * FROM punbb_online WHERE logged<1714970710 |
0.00052 | 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.00007 | SELECT search_for, replace_with FROM punbb_censoring |
0.00285 | 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.00099 | UPDATE punbb_topics SET num_views=num_views+1 WHERE id=1905 |
Total query time: 0.00712 s |