Kamis, 13 September 2012

Membuat Program Bintang di Pascal



Program Belah_Ketupat;
uses wincrt;

var
N,i,j,k : integer;

begin
writeln('=========== PROGRAM BINTANG =============');
writeln;
write ('Masukkan Batas : ');readln(N);
writeln;
for i := 1 to N do
begin
     for k := (N-1) downto i do
     begin
          write (' ');
     end;
     for j:= 1 to i do
     begin
          write('* ');
     end;
     writeln;

end;
end.





Diposting oleh di Tidak ada komentar:

As Roma Skuad 2012




First Team 2012/2013
Manager: Zdeněk Zeman   Cecoslovacchia
Serie A
GoalkeepersAgePlayedGoals
01Bogdan Iounut Lobont34Romania00Details
13Mauro Daniel Goicoechea Furia24Uruguay00Details
24Maarten Stekelenburg29Holland20Details
55Tomas Svedkauskas18Lituania00Details
DefendersAgePlayedGoals
03Marcos Aoas Corrêa Marquinhos18Brazil00Details
05Leandro Castán Da Silva25Brazil20Details
23Rodrigo Iván Piris Leguizamón23Paraguay20Details
27José Rodolfo Pires Ribeiro20Brazil00Details
29Nicolas Andres Burdisso31Argentine20Details
42Federico Balzaretti30Italy20Details
46Alessio Romagnoli17Italy00Details
MidfieldersAgePlayedGoals
04Michael Sheehan Bradley25Stati Uniti D'america10Details
07Marco Antônio De Mattos26Brazil21Details
11Rodrigo Ferrante Taddei32Brazil10Details
15Miralem Pjanić22Bosnia Erzegovina10Details
16Daniele De Rossi29Italy20Details
20Simone Pasquale Perrotta34England00Details
47Jonatan Lucca18Brazil00Details
48Alessandro Florenzi21Italy21Details
77Panagiotis Tachtsidis21Greece10Details
ForwardsAgePlayedGoals
08Erik Manuel Lamela Cordero20Argentine20Details
09Pablo Daniel Osvaldo26Argentine22Details
10Francesco Totti35Italy20Details
17Nicolás Federico López Alonso18Uruguay11Details
22Mattia Destro21Italy10Details
26Gadji Celi Carmel Junior19Costa D'avorio00Details
Diposting oleh di Tidak ada komentar:
Label:
Langganan: Postingan (Atom)