Van.GEN.TR Forum | Yerel Van Forumu

Van.GEN.TR Forum | Yerel Van Forumu (http://forum.van.gen.tr/index.php)
-   Pascal (http://forum.van.gen.tr/forumdisplay.php?f=81)
-   -   Pascal Show... (http://forum.van.gen.tr/showthread.php?t=5423)

gokhanaygun 01/06/07 19:43

Pascal Show...
 
Arkadaşlar CanI SIkIlan Buraya Pascaldan Sayilarin Dansini Izleyin ..
...verdiğim Kodlar Tamamen Bana Ait Olup ..

Hiç Bi Hakki Gizli Değildir.:72:
Kizmam Yane:95:

Her Kes Istediği Gibi Değişebilir..hatta Alta Ismini Yazip Arkadaşina Bak Ben Yazdim Deme Hakkinada Sahiptir:85:

şş Ne Oluyo Orda Laa:143: Lan Olum Adam Zaten Aptal Bi Sen Yapma

Ahha öle Yaparsan Oda Arkandan öle Yapar.:152:

:33:

gokhanaygun 01/06/07 19:59

Basit Olarak Bİ DÖngÜ Bu GeliŞtirin Mesela...
Burda Renkli Sayi Veyazilar Var Herhangi Bi Tusa Basinca Hizlaniyo ..sanki Araba YariŞi Ama DeĞİl Tabİ :11:

Uses Crt;
Var
A:array[1..100,1..100] Of Integer;
I,s1:integer;
J:integer;
Begin
Repeat
Clrscr;
For I:=1 To 100 Do
Begin
Repeat
Delay(200);
Textcolor(i);
Gotoxy(i+1,i);
Writeln(i);
For J:=1 To 1000 Do Begin
Gotoxy(j-1,j);
Textcolor(j);
Writeln(j,'merhabaaaaaaaaaaaaaaaaaaa');
For S1:=1 To 1000 Do Begin
Textcolor(s1);
Gotoxy(s1+12,1);
Writeln(s1,'by Gokhan Aygun<<<<< Www.van.gen.tr<<<<<<');
End;
Delay(10);
End;
Until Keypressed;
End;
Readln;
Until Keypressed;
End.



Bu 1.si Alin GelİŞtİrİn Bunu:33:

salelltd 01/06/07 23:02

ehuehuehue güzel fikir :D grafik modunda da olursa ben de eklerim belki buraya ilerde :D

gokhanaygun 02/06/07 01:16

Evet Salİh Graph De İyİ Olur ..ekleersen Mumnun Olurukk

selin_0613 03/06/07 15:59

Ya Pascal Nedİr ArkadaŞim ..ne İŞe Yariyo ..İÇİlİyomu Nedİr. Yani :11:

gokhanaygun 03/06/07 16:23

Sanırım yenisiniz bu formda ....
pascal hakkında ..ilk konularda anlatmaya çalıştım .isterseniz orayı inceleyin ..anlamadığınız yerlerde yardımcı olmaya çalışalım.

iyi paylaşımlar.

selin_0613 03/06/07 21:45

evet yenıyım ben almıyım program filan işim değil sana kolay gelsin

Ama baya emek harcamışsın
emeğine sağlık cnm

gokhanaygun 04/06/07 15:06

Bİraz Sevİye LÜtfen

zuzu 04/06/07 15:08

Alıntı:

selin_0613´isimli üyeden Alıntı (Mesaj 37273)
Ya Pascal Nedİr ArkadaŞim ..ne İŞe Yariyo ..İÇİlİyomu Nedİr. Yani :11:

selin bu konulae eğlencelik konular değil o yüzden biraz daha dikkat edersek yazdıklarımıza sevinirim :1:

selin_0613 04/06/07 15:29

tamam özürdilerim .çok pardon...

ayrıca affedersin gökhan


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:45 .

Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.