Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
pascalll??
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
-
-
uses crt;
var
i,k:integer;
begin
clrscr;
for i:=1 to 3 do
begin
for k:=1 to i do
begin
write('* ');
end;
writeln;
end;
for i:=3 downto 1 do
begin
for k:=1 to i do
begin
write('* ');
end;
writeln;
end;
readln;
end.
< Bu mesaj bu kişi tarafından değiştirildi ayhan_sr -- 2 Ocak 2013; 20:57:24 > -
Yıllar sonra tekrar pascal'a baktım :) -
sonuc nedir yokmu bilen :) -
Yazdığım kod işini görmedi mi? Çalışıyor işte.. -
quote:
Orijinalden alıntı: canbaba.fth
quote:
Orijinalden alıntı: AYHANSARI
uses crt;
var
i,k:integer;
begin
clrscr;
for i:=1 to 3 do
begin
for k:=1 to i do
begin
write('* ');
end;
writeln;
end;
for i:=3 downto 1 do
begin
for k:=1 to i do
begin
write('* ');
end;
writeln;
end;
readln;
end.
ALLAH razı olsun üstad
goto xy komutunu kullanmamız gerekmıyormu burada peki -
Allah c.c hepimizden razı olsun...
Sayfa:
1
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
