Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Turbo Pascal Konusunda Yardıma İhtiyaçım var
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
arkadasim sorunu yazsaydin _? yardimci olabilirdik.... -
Yazsana buraya derdin ne insanlar okusun yardımcı olsun...
Böle yazarsan git kitap al derim ama
-
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 -
yılı mod 4=0 ise şubat 29 çeker bu şekilde yapacaksın -
peki sende yapılmış var mı ? -
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 -
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş -
quote:
Orjinalden alıntı: mustafayunus
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş
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ı
-
quote:
Orjinalden alıntı: mustafayunus
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş
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 -
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 -
Yok sadece 28 veya 29 yazcak -
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. -
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İ
-
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. -
çok sağol bi sorun olursa mail atsam sakıncalı olurmu sana -
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
-
kodları code bloğuna almadığımdan dolayı 2 tane boşluk tek boşluğa düşmüş. o zaman şöle 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.
Benzer içerikler
- nesne başvurusu bir nesnenin örneğine ayarlanmadı
- güvenli arama kapatma
- en çok kullanılan yazılım dilleri
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
