Forum
Aktif konular
Üyeler
Kurallar
Arama
İlk Pascal Denemem İlk Pascal Denemem
-
pascal öğrenmeye başlayalı 1 hafta felan oldu kafaya koydum öğrenecem
yazdığım program kimilerine göre kolay gelebilir ama benim için gerçekten çok önemli bişey buçünkü ilk programım
belki daha kolay bir yolu vardır bilmiyorum ama ben baya bi uğraştım dahada bişiyler eklicektim ama sıkıldım
sonra biraz daha güzelleştircem bikaç bişey daha eklerim .
kod:
uses crt;
var
isim:string;
begin
clrscr;
isim:='METEHANMETEHAN';
textbackground(white);
textcolor(black);
gotoxy(9,4);
write(isim[1]); gotoxy(15,4); write(isim[8]);
textbackground(white);
textcolor(black);
gotoxy(10,5);
writeln(isim[2]); gotoxy(16,5); write(isim[9]);
textbackground(white);
textcolor(black);
gotoxy(11,6);
writeln(isim[3]); gotoxy(17,6); write(isim[10]);
textbackground(white);
textcolor(black);
gotoxy(12,7);
writeln(isim[4]); gotoxy(18,7); write(isim[11]);
textbackground(white);
textcolor(black);
gotoxy(13,8);
writeln(isim[5]); gotoxy(19,8); write(isim[12]);
textbackground(white);
textcolor(black);
gotoxy(14,9);
writeln(isim[6]); gotoxy(20,9); write(isim[13]);
textbackground(white);
textcolor(black);
gotoxy(15,10);
writeln(isim[7]); gotoxy(21,10); write(isim[14]);
textbackground(white);
textcolor(black);
gotoxy(16,11);
writeln(isim[1]); gotoxy(22,11); write(isim[8]); gotoxy(24,11); write(isim[8]);
textbackground(white);
textcolor(black);
gotoxy(15,12);
writeln(isim[2]); gotoxy(21,12); write(isim[9]); gotoxy(25,10); write(isim[9]);
textbackground(white);
textcolor(black);
gotoxy(14,13);
writeln(isim[3]); gotoxy(20,13); write(isim[10]); gotoxy(26,9); write(isim[10]);
textbackground(white);
textcolor(black);
gotoxy(13,14);
writeln(isim[4]); gotoxy(19,14); write(isim[11]); gotoxy(27,8); write(isim[11]);
textbackground(white);
textcolor(black);
gotoxy(12,15);
writeln(isim[5]); gotoxy(18,15); write(isim[12]); gotoxy(28,7); write(isim[12]);
textbackground(white);
textcolor(black);
gotoxy(11,16);
writeln(isim[6]); gotoxy(17,16); write(isim[13]); gotoxy(29,6); write(isim[13]);
textbackground(white);
textcolor(black);
gotoxy(10,17);
writeln(isim[7]); gotoxy(16,17); write(isim[14]); gotoxy(30,5); write(isim[14]); gotoxy(31,4); write(isim[8]);
gotoxy(32,4); write(isim[9]); gotoxy(33,4); write(isim[10]); gotoxy(34,4); write(isim[11]);gotoxy(35,4); write(isim[12]);
gotoxy(36,4); write(isim[13]); gotoxy(37,4); write(isim[14]);
gotoxy(38,4); write(isim[8]); gotoxy(39,4); write(isim[9]); gotoxy(40,4); write(isim[10]);
gotoxy(41,4); write(isim[11]); gotoxy(42,4); write(isim[12]); gotoxy(43,4); write(isim[13]);
gotoxy(44,4); write(isim[14]); gotoxy(45,5); write(isim[8]); gotoxy(46,6); write(isim[9]);
gotoxy(40,6); write(isim[9]); gotoxy(41,6); write(isim[9]);
gotoxy(40,7); write(isim[9]); gotoxy(41,7); write(isim[9]);
gotoxy(47,7); write(isim[10]); gotoxy(48,8); write(isim[11]); gotoxy(49,9); write(isim[12]);
gotoxy(50,10); write(isim[13]); gotoxy(51,11); write(isim[14]);gotoxy(44,11); write(isim[13]); gotoxy(50,12); write(isim[8]);
gotoxy(45,11); write(isim[13]); gotoxy(46,11); write(isim[13]);
gotoxy(47,11); write(isim[13]); gotoxy(48,11); write(isim[13]);
gotoxy(49,11); write(isim[13]); gotoxy(50,11); write(isim[13]);
gotoxy(49,13); write(isim[9]); gotoxy(48,14); write(isim[10]); gotoxy(47,15); write(isim[11]);
gotoxy(46,16); write(isim[12]); gotoxy(45,17); write(isim[13]); gotoxy(44,18); write(isim[14]);
gotoxy(43,18); write(isim[13]); gotoxy(42,18); write(isim[12]); gotoxy(41,18); write(isim[11]);
gotoxy(40,18); write(isim[10]); gotoxy(39,18); write(isim[9]); gotoxy(38,18); write(isim[8]);
gotoxy(37,18); write(isim[14]); gotoxy(36,18); write(isim[13]); gotoxy(35,18); write(isim[12]);
gotoxy(34,18); write(isim[11]); gotoxy(33,18); write(isim[10]);
gotoxy(32,18); write(isim[9]); gotoxy(31,18); write(isim[8]);
gotoxy(30,17); write(isim[14]); gotoxy(29,16); write(isim[13]);
gotoxy(28,15); write(isim[12]); gotoxy(27,14); write(isim[11]);
gotoxy(26,13); write(isim[10]); gotoxy(25,12); write(isim[9]);
readln;
end.programın çıktısı gülmeyelim lütfen.
http://www.upload.gen.tr/d.php/s11/4004y8xj/ss.bmp.html
-
kusura bakmayın resimi ekleyemedim dandik bi upload sitesiymiş
buyrun burdan baka bilirsiniz
http://www.resimuploading.net/?v=ss.bmp
-
ilk denemene göre güzel birşey ortaya çıkarmışsın fakat öneri olarak söleyebileceklerim ; programlamaya yeni başladığın önce matematiksel işlemlere ağırlık vererek programlamadaki algoritma yapısını öğrenmeye çalış mesela bu yaptıgın programada yorum yapıcak olursam ekran komutlarını ağırlık vermişsin ilk denemen için bence gerek yoktu ekran komutlarına ama mesela bunu geliştirmek istiyorsan gotoxylerin içindeki koordinatları tek tek yazmak yerine bir döngü içine alıp her birini tek gotoxy halinde yazmak sana kolaylık sağlar ve ilk başlayış için güzel bir örnek daha olur
ahh ahh eski günler :D bende pascal la başlamıştım
not : pascala çok takılma algoritma ve programlama mantıgını kavra daha sonra görsel veya nesne tabanlı bir dile geç bknz: C#.NET veya VB.NET
-
bir balık bu kadar zor olamazdı emindim ama kolay yolunu daha işin başında olduğum için bilmiyordum onuda öğrendim sayende
pascalı kolay bir dil olduğu için seçtim döngülerin felan nasıl kullanıldığını öğrenmek için
2-3 ay kadar bu dille çalışıp daha sonra c# yada c++ dillerinden birisine geçmeyi düşünüyordum
söylediğiniz c#.net de 3. bi seçenek olarak ekliyorum
c++, c#yada c#.net bunlardan birini seçecem inşallah 2-3 ay sizce çok mu pascal için
-
KozMoz bunu yazdı:
-----------------------------
bir balık bu kadar zor olamazdı emindim ama kolay yolunu daha işin başında olduğum için bilmiyordum onuda öğrendim sayende
pascalı kolay bir dil olduğu için seçtim döngülerin felan nasıl kullanıldığını öğrenmek için
2-3 ay kadar bu dille çalışıp daha sonra c# yada c++ dillerinden birisine geçmeyi düşünüyordum
söylediğiniz c#.net de 3. bi seçenek olarak ekliyorum
c++, c#yada c#.net bunlardan birini seçecem inşallah 2-3 ay sizce çok mu pascal için
-----------------------------evet iyi düşünmüşsün tahribattada hatta baya bi tartışılmıştı geçmiş konularda pascalla başlanılmalımı yoksa direk saglam bi dillemi programlamaya giriş yapılmalı diye (benim görüşüm ben herzaman temelden yanayım )
not : C# ' la C#.net aynı C# ı istersen konsolda yazarsın istersen form yani görsel öğelerle neyse girmim oraya
sorun olursa hatırlayabildigim kadar yardımcı olmaya çalışırım
-
demek istdiğinizi anladım c# da ister pascal gibi doss ordamında istersenizde görsel olarak program yazabiilrsiniz demek istediniz sanırım
yani c++ ile c# arasındaki fark bumu sadece?
ben aslında c++ seçmeyi düşünüyordum aslında kendime bi arkadaşımın programcı dayısını örnek alıyorum
oda ilk başlarda visual ve pascal öğrenmiş ve sonra c++ ya geçmiş ve şu an gerçekten şahane bi coder
aslında visual basicle başlayacaktım biraz göz gezdirmim ama bilmiyorum neden ısınamadım pascal gerçekten çok güzel hoşuma gitti açıkcası.
aslında birazda terettüddeyiim çünkü matematiği hiç seven birisi deilimdir o yüzden öğrenemeyeceğim gibisinden bir korku var
birde aceba şu an deilde belki öğrenmeye devam ettikçe kafama takılan çözemediğim sorunlar olursa aceba sizeden özel mesajla yardım isteye bilirmiyim.
gerçekten teşekkür ederim yardım ettiğiniz için
-
uğraşma böle seylerle ki bilgiyarcılar para kazansın =)
-
bu işi sadece bilgisayarcılar yapmıyo bilişim sektörü açık büfe gibi herkes herşeyin tadına bakabilmeliki tecrübe kazansın kös kös oturmakla olmuyo malesef bu işler
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla