24/04/07, 01:07
#1
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
adam asmaca
program adamas;
uses crt;
const
kelime:array[1..44]of string=('mehmet','ahmet','yusuf','yasin','suleyman ','riza','suat','serhat','cemil','muharrem',
'televizyon','radyo','otobus','feribot','muhendis' ,'fabrika','kamyon','sinek','telefon','sigara','iz marit','bilgisayar','saat',
'defter','kalemtiras','un','seker','makarna','pata tes','domates',
'patlican','meyve','lahana','kiraz','seftali','bal ik','kasaba','intihar','mahkum','hakim','avukat',' tekstil','sekerpare',
'dut');
var
k,i,j,hak:integer;
bul:string;
m,s:string;
t,tus:char;
begin
repeat
clrscr;
textbackground(1);
textcolor(14);
gotoxy(1,3);
writeln(':::::ADAM ASMACA:::::: hadi bakalim.....KOLAY GELSIN.');
gotoxy(25,5);
writeln('MEHMET ACA');
hak:=6;
randomize;
i:=random(44)+1;
bul:=kelime[i];
k:=length(bul);
fillchar(s,k+1,'*');
s[0]:=chr(k);
gotoxy(5,6);writeln('bulunacak kelime'); GOTOXY(5,7);writeln('__________');
gotoxy(40,6); writeln('hakkiniz'); gotoxy(40,7); writeln('______');
gotoxy(5,8); write(s);
repeat
gotoxy( 40,8); writeln(hak);
m:=s;
t:=readkey;
for j:=1to length (bul) do
begin
if bul[j]=t then
begin
delete(m,j,1);
insert(t,m,j);
end;
end;
if m=s then hak:=hak-1;
s:=m;
gotoxy(5,8); write(s);
until(hak=0) or (s=bul);
gotoxy(20,15);
if (hak=0) then writeln('kaybettiniz kelime',' ',bul,' ','olacakti')
else writeln('tebrikler. bildiniz.');
gotoxy(30,20);writeln('bir daha oynamak istermisiniz? (E/H)');
tus:=upcase(readkey);
until tus='H';
end.
{mehmet aca ytu bilg. muh. 1.sinif}
Konu Sayısı: 187
22/05/07, 11:36
#2
Çavuş
Üyelik tarihi: May 2007
Yaş: 34
Mesajlar: 76
çok eğlenceli yaa
Konu Sayısı: 7
22/05/07, 12:06
#3
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
iyi iyi ..ama yazması çok daha eğlenceli..
Konu Sayısı: 187
22/05/07, 17:36
#4
Çavuş
Üyelik tarihi: May 2007
Bulunduğu yer: Ankara
Yaş: 35
Mesajlar: 98
Tecrübe Puanı:
0
evet abi katılıyorum, gerçi daha yeni başladım yazmaya ve fazla zaman ayıramıyorum ama gerçekten eğlenceli
Konu Sayısı: 2
22/05/07, 18:05
#5
Albay
Üyelik tarihi: Apr 2007
Bulunduğu yer: istanbul
Yaş: 40
Mesajlar: 648
tşkler gökhan hakkatende yazması daha eğlenceli
Konu Sayısı: 77
Takımınız:
22/05/07, 21:37
#6
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
Alıntı:
agsi_____sey_____ ´isimli üyeden Alıntı
tşkler gökhan hakkatende yazması daha eğlenceli
tşk yok burada ..bu bölüme girince tşk olayı yok ...yanı cebınıze bırakın tşk..
başka bölümlere kalsın yaaw..
hadi eyw.
Konu Sayısı: 187
22/05/07, 23:22
#7
Çavuş
Üyelik tarihi: May 2007
Yaş: 34
Mesajlar: 76
sayın Gökhan Aygün ya nasıl yazıyorsun bu programları hayret ediyorum
Konu gokhanaygun tarafından (29/05/07 Saat 23:56 ) değiştirilmiştir..
Konu Sayısı: 7
25/05/07, 11:17
#8
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
Eğer bahsettiğiln adam asmaca ise onu ben yazmadım ..yanı yazaman değil ama uğraşmadım ...artık uğraşınca yazıp yazamamadığı o zaman görürüz ..
ama şu bi gerçekki çalışan herkes yapar ..
kolay gelsinn..
Konu Sayısı: 187
29/05/07, 14:27
#9
Çavuş
Üyelik tarihi: May 2007
Yaş: 34
Mesajlar: 76
sadece adam asmaca değil tüm programlar adına konuştum
Konu Sayısı: 7
29/05/07, 15:15
#10
Site Yöneticisi
Üyelik tarihi: Dec 2006
Bulunduğu yer: Van
Yaş: 42
Mesajlar: 4.724
Tecrübe Puanı:
200
Pascal bi programlama dili. Kodları öğrenince ve mantığı kapınca yapabilirsin sanırım. Gerçi benim fazla bi bilgim yok ama Gökhan daha açıklayıcı anlatabilir sana.
__________________
Üyeye Bela gelmez Admin Kızmadıkça,Admin Sinirlenmez Üye Azmadıkça
Ne kadar kibirli dursa da
Bardağın önünde eğilir çaydanlık
Öyleyse bu büyüklenme niye?
Bu kibir bu gurur niçin?
Mütevazi ol, hatta bir adım bile geçme gurur kapısından;
Bardağı insan bunun için öper daima alnından…
Bir mum diğer bir mumu tutuşturmakla, ışığından bir şey kaybetmez...
Konu Sayısı: 1053
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
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: 00:37 .
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 ,