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 
2 Misafir - 2 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 şuquote:
Orijinalden alıntı: aydinunlu
Yazsana buraya derdin ne insanlar okusun yardımcı olsun...
Böle yazarsan git kitap al derim ama
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ınquote:
Orijinalden alıntı: mustafayunus
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
Alıntıları Göster -
peki sende yapılmış var mı ?quote:
Orijinalden alıntı: poweruser0
yılı mod 4=0 ise şubat 29 çeker bu şekilde yapacaksın
Alıntıları Göster -
yahu ne yapılmışı yaww ben pascal göreli 1 sene oldu readln writeln demi yapamıcaksın biraz araştırmacı olun lütfenquote:
Orijinalden alıntı: mustafayunus
peki sende yapılmış var mı ?
Alıntıları Göster -
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuşquote:
Orijinalden alıntı: poweruser0
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
Alıntıları Göster -
quote:
Orijinalden alıntı: mustafayunus
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş
Alıntıları Gösterquote:
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:
Orijinalden alıntı: mustafayunus
ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş
Alıntıları Gösterquote:
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 şuquote:
Orijinalden alıntı: aydinunluquote:
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ı
Alıntıları Göster
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 sordumquote:
Orijinalden alıntı: mustafayunus
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
Alıntıları Göster -
Yok sadece 28 veya 29 yazcakquote:
Orijinalden alıntı: mustafayunus
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
Alıntıları Göster -
bu döngü programı: (iğrenç bi algoritma olduğunun farkındayım)quote:
Orijinalden alıntı: mustafayunus
Yok sadece 28 veya 29 yazcak
Alıntıları Göster
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 varquote:
Orijinalden alıntı: medeor
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.
Alıntıları Göster
a lar varya onlar ortalı olacak
nasıl anlatsam bilmiyorum yani
A
AAA
AAAAA
AAA
A
BÖLE OLCAK YANİ
-
o zaman şöyle olacak:quote:
Orijinalden alıntı: mustafayunus
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İ
Alıntıları Göster
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 sanaquote:
Orijinalden alıntı: medeor
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.
Alıntıları Göster
-
sorun olmaz. burayada yazabilirsin.quote:
Orijinalden alıntı: mustafayunus
çok sağol bi sorun olursa mail atsam sakıncalı olurmu sana
Alıntıları Göster
< 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ınquote:
Orijinalden alıntı: mustafayunus
çok sağol bi sorun olursa mail atsam sakıncalı olurmu sana
Alıntıları Göster
-
kodları code bloğuna almadığımdan dolayı 2 tane boşluk tek boşluğa düşmüş. o zaman şöle olacak:quote:
Orijinalden alıntı: mustafayunus
Bİr sorun daha var 1 kare ileride olması lazım tek a ların
Alıntıları Göster
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ı
- en çok kullanılan yazılım dilleri
- google güvenli arama kapatma
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
