Turbo Pascal Konusunda Yardıma İhtiyaçım var

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

34
Cevap 904
Tıklama 0
Öne Çıkarma

Son Sonraki

Turbo Pascal Konusunda Yardıma İhtiyaçım var

Cevap Yaz

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

Selam arkadaşlar turbo pascal programından anlayan varsa yardıma ihtiyacım var yardımcı olursanız çok sevinirim

Lythari

18 yıl

Yüzbaşı

arkadasim sorunu yazsaydin _? yardimci olabilirdik....

aydinunlu

18 yıl

Yüzbaşı

Yazsana buraya derdin ne insanlar okusun yardımcı olsun...
Böle yazarsan git kitap al derim ama

Bu mesaja 1 cevap geldi.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

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.

poweruser0

18 yıl

Binbaşı

yılı mod 4=0 ise şubat 29 çeker bu şekilde yapacaksın

Bu mesaja 1 cevap geldi.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

peki sende yapılmış var mı ?

Bu mesaja 1 cevap geldi.

poweruser0

18 yıl

Binbaşı

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.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

ben goto xy yöntemi ile yapmayı biliyorum yanlız döngü ile yapılması gerekiyormuş

Bu mesaja 2 cevap geldi.

aydinunlu

18 yıl

Yüzbaşı

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ı

Bu mesaja 1 cevap geldi.

poweruser0

18 yıl

Binbaşı

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

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

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.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

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.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

Yok sadece 28 veya 29 yazcak

Bu mesaja 1 cevap geldi.

medeor

18 yıl

Teğmen

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.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

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.

medeor

18 yıl

Teğmen

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.

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

çok sağol bi sorun olursa mail atsam sakıncalı olurmu sana

Bu mesaja 2 cevap geldi.

medeor

18 yıl

Teğmen

sorun olmaz. burayada yazabilirsin.

< Bu mesaj bu kişi tarafından değiştirildi medeor -- 5 Ocak 2007; 21:34:13 >

mustafayunus

18 yıl

Onbaşı

Konu Sahibi

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.

medeor

18 yıl

Teğmen

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.

Bu mesaja 1 cevap geldi.

Son Sonraki