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}

iyi iyi ..ama yazması çok daha eğlenceli..

tşkler gökhan hakkatende yazması daha eğlenceli:11::11:

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..:72:

hadi eyw.

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..

sadece adam asmaca değil tüm programlar adına konuştum :)

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.

gökhanın da müsadesiyle bi açıklama yapmak istiyorum :) programlamanın bir mantığı wardır we önemli olan bu mantığı kapabilmektir. mantığı öğrendikten sonra herhangi bi dilde program yazılabilir. bu tıpkı bizim gerçekte kullandığımız dile benzer. dilimize dökmeden önce beynimizde biraz mantık kullanarak bazı düşünceler üretiriz. daha sonra bu ürettiğimiz düşünceleri ifade etmek için bir dil kullanırız. türkçe olur, ingilizce, almanca olur. ama asıl önemli olan anlatmak istediğimiz şeydir. programlama yaparken de bundan farklı bişey yapmıyoruz aslında. bilgisayara anlatmak istediğimiz şeyleri kafamızda oluşturduktan sonra bilgisayarın anlayabileceği bi dilde bunları yazıya döküyoruz. bu dil pascal olur, c olur, basic olur, farketmez. önemli olan anlatılmak istenendir. anlatılmak isteneni anlatabilmek için öncelikle kendimiz tam olarak anlamalıyız. tam olarak anladıktan sonra programın temellerini oluşturan bölümler belirlenir we program temel parçalara ayrılır. gerekirse her bir parça üzerinde ayrı ayrı durulur, hatta ben her bir ayrı parça için bazen ayrı ayrı programlar yazıyodum. he rbir parça ayrı ayrı tamamlanır, hataları elimine edilir. daha sonra bunlar ana programa monte edilir we ortaya güzel bi program çıkar. ama bu dediğim çok büyük projelerle ilgiliydi. ben bi ara bi program yapmıştım mesela 250bin satırlıktı. bunun gibi programlar yazarken dikkatli olup her parçayı çok iyi analiz etmeliyiz. günümüzdeki yazılım şirketleri de bu prensiple çalışıyo zaten. bisürü yazılım mühendisi yada bilgisayar programcısı bi oyunu paylaşıyolar. her biri bir parça üzerinde yoğunlaşıyo we o parçayı en güzel hale getiriyo. bu sayede hem zamandan kazanç, hem de hataların daha güwenli bi şekilde azaltılması sağlanmış oluyo. neyse çok uzattım sanırım. hekese kolay gelsin.

Müsade senin üstadım ..
Anlatmışsın zaten salih
bana laf düşmes senin olduğun yerde...
Ama bi kaç şey demek gelir yine içimden ..
Hep programcılık deriz mantığı deriz .ama iş yazmaya gelince takılı kalırız bazen
bunun sadece bi sebebi vardır .İşi somutlaştırmamak.Evet nasıl oluyo derseniz..
Diyelim ki bi program yazıcaksınız bunu canlandırın önce kafada tabi bu canlandır uzun sürer başta zamanla pratikleşirsiniz.Ve aklınızı gelenleri bence bi kağıda yazın .yanı i kağıt alın oraya başlık olarak programın ismini yazın .ne geliyo aklına yaz .ne varsa yaz .sonra .programın amacını yaz. ne yapıcak bu program .ve az önce yazdığın şeyler arasında doğru olanları seçmeye çalış .
Bunları ilk seferde yapamassın belki ama dene .sürekli dene elbet olucaktır..

ŞUNUDA UNUTMA BİLGİSAYAR BEYNİ SENİNKİNİN YANINDA HİÇTİR...
YETERKİ NASIL KONTROL EDİCEĞİNİ BİL...

saygılar nacizhane düşüncelerimle.
ayrıca salih 'ın notlarıda bu konuda kesinlikle önemli önce onu okuyun .
Kolay gelsin

paylaşım için tşkler