24/04/07, 00:52
#1
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
menu
uses crt;
var
tus:char;
soyad,tck,isim:string;
procedure anamenu;
begin
clrscr;
textcolor(red);
gotoxy(30,20); write('[ 1 ] ISIM GIRISI');
gotoxy(30,22); write('[ 2 ] SOYAD GIRISI');
gotoxy(30,24); write('[ 3 ] TC KIMLIK NO');
gotoxy(30,26); write('[ ESC ] CIKIS');
gotoxy(16,34); write('pascal hakkinda sorulariniz varsa msn de yim.');
gotoxy(23,36); write('gencturk55@messengeruser.com');
tus:=readkey;
end;
procedure sisim;
begin
CLRSCR;
gotoxy(30,25); write('ismi giriniz..:');
gotoxy(45,25); readln(isim);
end;
procedure soyads;
begin
CLRSCR;
gotoxy(30,25); write('soyad giriniz..:');
gotoxy(46,25); readln(soyad);
end;
procedure tcno;
begin
CLRSCR;
gotoxy(30,25); write('tc kimlik no giriniz..:');
gotoxy(53,25); readln(tck);
end;
begin {ANA MENU}
repeat
anamenu;
if tus='1' then begin sisim; end;
if tus='2' then begin soyads; end;
if tus='3' then begin tcno; end;
until tus=#27;
end.
Konu Sayısı: 187
20/06/08, 15:26
#2
Mareşal
Üyelik tarihi: Sep 2007
Mesajlar: 5.839
Paylaşım için tşkler…
__________________
Konu Sayısı: 613
Takımınız:
30/06/08, 01:45
#3
Cumhurbaşkanı
Üyelik tarihi: May 2008
Bulunduğu yer: van
Mesajlar: 7.116
teŞekkÜrler PaylaŞim İİÇİn
__________________
Düşmeden Bulutlarda Koşmam GereK !
Konu Sayısı: 866
31/07/08, 15:53
#4
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.890
emeğe saygı
Konu Sayısı: 317
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
Konu Araçları
Stil
Normal
Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 19:01 .
Sitemap
6 ,
5 ,
3 ,
7 ,
8 ,
9 ,
10 ,
11 ,
12 ,
13 ,
14 ,
15 ,
113 ,
16 ,
17 ,
18 ,
19 ,
81 ,
20 ,
27 ,
22 ,
23 ,
24 ,
25 ,
26 ,
48 ,
28 ,
29 ,
30 ,
31 ,
32 ,
33 ,
34 ,
35 ,
36 ,
37 ,
38 ,
39 ,
43 ,
136 ,
40 ,
58 ,
45 ,
42 ,
44 ,
46 ,
47 ,
53 ,
54 ,
55 ,
56 ,
57 ,
59 ,
60 ,
70 ,
61 ,
62 ,
63 ,
64 ,
65 ,
66 ,
68 ,
69 ,
71 ,
72 ,
74 ,
75 ,
76 ,
77 ,
78 ,
79 ,
80 ,
82 ,
83 ,
96 ,
84 ,
85 ,
86 ,
87 ,
88 ,
89 ,
90 ,
91 ,
92 ,
93 ,
94 ,
95 ,
98 ,
97 ,
100 ,
101 ,
102 ,
103 ,
106 ,
104 ,
105 ,
112 ,
109 ,
108 ,
107 ,
110 ,
111 ,
114 ,
115 ,
118 ,
116 ,
117 ,
119 ,
148 ,
154 ,
124 ,
165 ,
122 ,
120 ,
123 ,
121 ,
150 ,
153 ,
125 ,
128 ,
129 ,
131 ,
132 ,
133 ,
134 ,
135 ,
137 ,
138 ,
139 ,
140 ,
141 ,
142 ,
143 ,
144 ,
145 ,
146 ,
147 ,
151 ,
149 ,
202 ,
175 ,
164 ,
152 ,
167 ,
155 ,
156 ,
157 ,
158 ,
159 ,
160 ,
161 ,
162 ,
163 ,
195 ,
169 ,
166 ,
168 ,
170 ,
171 ,
172 ,
199 ,
174 ,
173 ,
196 ,
200 ,
176 ,
177 ,
180 ,
178 ,
179 ,
182 ,
189 ,
187 ,
184 ,
186 ,
191 ,
192 ,
193 ,
194 ,
197 ,
198 ,
201 ,
203 ,
229 ,
204 ,
205 ,
206 ,
207 ,
208 ,
209 ,
210 ,
211 ,
212 ,
213 ,
214 ,
215 ,
216 ,
217 ,
218 ,
219 ,
220 ,
221 ,
222 ,
223 ,
224 ,
236 ,
231 ,
232 ,
233 ,
234 ,
235 ,
237 ,
240 ,
239 ,
241 ,
243 ,
242 ,
244 ,