Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Turbo Pascal Konusunda Yardıma İhtiyaçım var
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
34
Cevap 1086
Tıklama 0
Öne Çıkarma
Cevap 1086
Tıklama 0
Öne Çıkarma
-
Turbo Pascal Konusunda Yardıma İhtiyaçım var
|
Yazsana buraya derdin ne insanlar okusun yardımcı olsun... Böle yazarsan git kitap al derim ama  |
Bu mesaja 1 cevap geldi.
|
sorum şu bana Dışardan girilen bir tarihin örneğin 2015 tarihde şubat ayı 28 mi 29 mu çekiyor bunu ekranda gösteren program yazım |
Bu mesaja 1 cevap geldi.
| yahu ne yapılmışı yaww ben pascal göreli 1 sene oldu readln writeln demi yapamıcaksın biraz araştırmacı olun lütfen |
Bu mesaja 1 cevap geldi.
| ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş |
Bu mesaja 2 cevap geldi.
 Dostum sen takvim programı falan mı istiyorsun ? ne gotoxy 'si ? poweruser demiş işte bir yılın 4 e bölümü 0 ise o ay 29 cekiyor demektir. şu goto xy yöntemi neymiş bi görelim yazsana kodları  |
Bu mesaja 1 cevap geldi.
sen tam olarak ne istediğini yaz ben ona göre yazarım bişeler goto xy yi ne için kullanacaksın döngüyü ne için kullanacaksın |
|
ya benim sana sormak istediğim konu şu bize verilen bazı ödevler var da gotoxyyi falan diğerleriyle karıştırdım bunun için sağol döndüyle olcak dediğim şuylu kusura bakma A AAA AAAAA AAA A EKRANA BU ŞEKİLDE YAZDIRMAM LAZIM |
Bu mesaja 1 cevap geldi.
| açıksa konuşmak gerekirse ben turbo pascal bir şey anlamıyom program yazmam lazım ama bilmediğim için yazamıyorum onun için yani hazır varmı diye sordum |
Bu mesaja 1 cevap geldi.
bu döngü programı: (iğrenç bi algoritma olduğunun farkındayım)  uses crt; var a,b,c:integer; begin clrscr; for a:=1 to 3 do begin if a=1 then c:=1; if a=2 then c:=3; if a=3 then c:=5; for b:=1 to c do write('A'); writeln; end; for a:=1 to 2 do begin if a=1 then c:=3; if a=2 then c:=1; for b:=1 to c do write('A'); writeln; end; readln; end. sene/şubat programı: uses crt; var a:integer; begin clrscr; write('Yılı girin: '); readln(a); if a mod 4 = 0 then writeln(a,' senesinde Şubat ayı 29 çekmektedir.') else writeln(a,' senesinde Şubat ayı 28 çekmektedir.'); readln; end. |
Bu mesaja 1 cevap geldi.
|
arkadaşım çok sağolda bir sorun var a lar varya onlar ortalı olacak nasıl anlatsam bilmiyorum yani A AAA AAAAA AAA A BÖLE OLCAK YANİ < Resime gitmek için tıklayın > |
Bu mesaja 1 cevap geldi.
|
o zaman şöyle olacak: uses crt; var a,b,c:integer; begin clrscr; for a:=1 to 3 do begin if a=1 then begin c:=1; write(' '); end; if a=2 then begin c:=3; write(' '); end; if a=3 then c:=5; for b:=1 to c do begin write('A'); end; writeln; end; for a:=1 to 2 do begin if a=1 then begin c:=3; write(' '); end; if a=2 then begin c:=1; write(' '); end; for b:=1 to c do write('A'); writeln; end; readln; end. |
Bu mesaja 2 cevap geldi.
sorun olmaz. burayada yazabilirsin.  |
< Bu mesaj bu kişi tarafından değiştirildi medeor -- 5 Ocak 2007; 21:34:13 >
|
Bİr sorun daha var 1 kare ileride olması lazım tek a ların < Resime gitmek için tıklayın > |
Bu mesaja 1 cevap geldi.
kodları code bloğuna almadığımdan dolayı 2 tane boşluk tek boşluğa düşmüş. o zaman şöle olacak: uses crt; |
Bu mesaja 1 cevap geldi.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.