© empolicalcio.net |
|
January 12, 2013
RICCARDO SAPONARA PROFILE
EL SHAARAWY inginkan duet bersama BALOTELLI
Selain Antonio Candreva dan Balotelli, El Shaarawy pun dipasang sebagai starter saat Italia bermain dalam laga uji coba dengan Prancis di Stadion Ennio Tardini, Kamis (15/11/2012) dini hari WIB. Ia juga menjadi salah satu penyerang dengan formasi 4-3-3.
Pelatih Cesare Prandelli pun tidak dibuat kecewa oleh El Shaarawy, Karena ia berhasil membayar kepercayaan yang diberikan oleh pelatih dengan memberikan 1 gol. Gol cantik itu ia ciptakan setelah berhasil menuntaskan umpan terobosan dari Riccardo Montolivo.
Tapi sayang sekali Prancis berhasil membalikkan situasi dan skor berubah menjadi 2-1. Jadi gol pertama El Shaarawy untuk timnas senior tersebut tidak bisa mengantarkan Italia meraih kemenangan.
El Shaarawy berkomentar seputar laga tersebut, dirinya mengungkapkan gol tersebut sangatlah penting baginya walaupun hasil yang di dapat sangatlah menyedihkan karena tidak cukup untuk meraih kemenangan. Di level pribadi, ia sangat puas karena lawan yang dihadapi merupakan tim yang tangguh.
Si ‘Firaun Kecil’ pun sangat menikmati kombinasinya dengan Balotelli di lapangan. Ia juga berharap ingin terus bermain bersama penyerang Manchester City. Itupun jika Prandelli menyetujui. El Shaarawy menikmati permainan tersebut, Mario Balotelli adalah pemain hebat yang memberikan kesempatan saya untuk mencetak gol. Riccardo Montolivo memberikan umpan yang bagus dan saya berhasil melewatkan bola di antara dua kaki kipper. Jadi itu adalah gol yang cantik ‘tegas Shaarawy’.
Pemain berusia 20 tahun ini juga berharap akan bisa menjadi pasangan masa depan bersama Balotelli. Saat ini ia sedang melalui periode yang bagus dan semoga ini akan terus berlanjut.
January 11, 2013
program deret berbahasa pascal
Program deret
uses wincrt;
var
i,t :integer;
a :real;
begin
i:=1; t:=-2; a:=0;
while i<= 10 do
begin
if i mod 2 = 1 then
begin
t:=t+3;
write('+1/',t);
a:=a+(1/t);
end
else
if i mod 2 = 0 then
begin
t:=t+2;
write('-1/',t);
a:=a-(1/t);
end;
i:=i+1;
end;
write(a);
end.
program krs_mahasiswa;
uses wincrt;
type
siswa=record
nim:string[5];
nama:string[15];
krs:array[1..4,1..5] of integer;
end;
type kuliah=array[1..20] of siswa;
var kul:kuliah;
{--------------------------------------------------------------------}
function huruf(bobot:integer):char;
begin
case bobot of
0:huruf:='E';
1:huruf:='D';
2:huruf:='C';
3:huruf:='B';
4:huruf:='A';
end;
end;
{--------------------------------------------------------------------}
procedure khs(n:integer;kul:kuliah);
var jumsks,usaha,i,j:integer;
ipnya:real;
begin
for i:=1 to n do
begin
Writeln('Nim : ',kul[i].nim);
Writeln('Nama : ',kul[i].nama);
writeln;
writeln('Kode sks nilai');
jumsks:=0;usaha:=0;
for j:=1 to 2 do
begin
writeln(kul[i].krs[1,j]:3,' ',kul[i].krs[2,j]:3,'
',huruf(kul[i].krs[4,j]):5);
jumsks:=jumsks+kul[i].krs[2,j];
usaha:=usaha + kul[i].krs[2,j]*kul[i].krs[4,j];
end;
if jumsks<>0 then
ipnya:=usaha/jumsks;
writeln;
writeln('IP = ',ipnya:0:2);
readkey;
end;
end;
{--------------------------------------------------------------------}
function bobot(nilai:integer):integer;
begin
if nilai<40 bobot:="0</p" then="then">else
if (nilai>=40) and (nilai<55 bobot:="1</p" then="then">else
if (nilai>=55) and (nilai<65 bobot:="2</p" then="then">else
if (nilai>=65) and (nilai<76 bobot:="3</p" then="then">else
bobot:=4;
end;
{--------------------------------------------------------------------}
procedure masukdata(var kul:kuliah;var n:integer);
var i,j:integer;
begin
clrscr;
write('Banyak mahasiswa = ');readln(n);
for i:=1 to n do
begin
write('Nim : ');readln(kul[i].nim);
write('Nama : ');readln(kul[i].nama);
writeln;
for j:=1 to 2 do
begin
write('Kode : ');readln(kul[i].krs[1,j]);
write('Sks : ');readln(kul[i].krs[2,j]);
write('Nilai : ');readln(kul[i].krs[3,j]);
writeln('Bobot : ',bobot(kul[i].krs[3,j]));
kul[i].krs[4,j]:=bobot(kul[i].krs[3,j]);
writeln('huruf : ',huruf(bobot(kul[i].krs[3,j])));
writeln;
end;
end;
end;
var n:integer;
begin
masukdata(kul,n);
readkey;
khs(n,kul);
end.
76>65>55>40>
Subscribe to:
Posts (Atom)
January 12, 2013
RICCARDO SAPONARA PROFILE
© empolicalcio.net |
|
EL SHAARAWY inginkan duet bersama BALOTELLI
Selain Antonio Candreva dan Balotelli, El Shaarawy pun dipasang sebagai starter saat Italia bermain dalam laga uji coba dengan Prancis di Stadion Ennio Tardini, Kamis (15/11/2012) dini hari WIB. Ia juga menjadi salah satu penyerang dengan formasi 4-3-3.
Pelatih Cesare Prandelli pun tidak dibuat kecewa oleh El Shaarawy, Karena ia berhasil membayar kepercayaan yang diberikan oleh pelatih dengan memberikan 1 gol. Gol cantik itu ia ciptakan setelah berhasil menuntaskan umpan terobosan dari Riccardo Montolivo.
Tapi sayang sekali Prancis berhasil membalikkan situasi dan skor berubah menjadi 2-1. Jadi gol pertama El Shaarawy untuk timnas senior tersebut tidak bisa mengantarkan Italia meraih kemenangan.
El Shaarawy berkomentar seputar laga tersebut, dirinya mengungkapkan gol tersebut sangatlah penting baginya walaupun hasil yang di dapat sangatlah menyedihkan karena tidak cukup untuk meraih kemenangan. Di level pribadi, ia sangat puas karena lawan yang dihadapi merupakan tim yang tangguh.
Si ‘Firaun Kecil’ pun sangat menikmati kombinasinya dengan Balotelli di lapangan. Ia juga berharap ingin terus bermain bersama penyerang Manchester City. Itupun jika Prandelli menyetujui. El Shaarawy menikmati permainan tersebut, Mario Balotelli adalah pemain hebat yang memberikan kesempatan saya untuk mencetak gol. Riccardo Montolivo memberikan umpan yang bagus dan saya berhasil melewatkan bola di antara dua kaki kipper. Jadi itu adalah gol yang cantik ‘tegas Shaarawy’.
Pemain berusia 20 tahun ini juga berharap akan bisa menjadi pasangan masa depan bersama Balotelli. Saat ini ia sedang melalui periode yang bagus dan semoga ini akan terus berlanjut.
January 11, 2013
program deret berbahasa pascal
Program deret
uses wincrt;
var
i,t :integer;
a :real;
begin
i:=1; t:=-2; a:=0;
while i<= 10 do
begin
if i mod 2 = 1 then
begin
t:=t+3;
write('+1/',t);
a:=a+(1/t);
end
else
if i mod 2 = 0 then
begin
t:=t+2;
write('-1/',t);
a:=a-(1/t);
end;
i:=i+1;
end;
write(a);
end.
program krs_mahasiswa;
uses wincrt;
type
siswa=record
nim:string[5];
nama:string[15];
krs:array[1..4,1..5] of integer;
end;
type kuliah=array[1..20] of siswa;
var kul:kuliah;
{--------------------------------------------------------------------}
function huruf(bobot:integer):char;
begin
case bobot of
0:huruf:='E';
1:huruf:='D';
2:huruf:='C';
3:huruf:='B';
4:huruf:='A';
end;
end;
{--------------------------------------------------------------------}
procedure khs(n:integer;kul:kuliah);
var jumsks,usaha,i,j:integer;
ipnya:real;
begin
for i:=1 to n do
begin
Writeln('Nim : ',kul[i].nim);
Writeln('Nama : ',kul[i].nama);
writeln;
writeln('Kode sks nilai');
jumsks:=0;usaha:=0;
for j:=1 to 2 do
begin
writeln(kul[i].krs[1,j]:3,' ',kul[i].krs[2,j]:3,'
',huruf(kul[i].krs[4,j]):5);
jumsks:=jumsks+kul[i].krs[2,j];
usaha:=usaha + kul[i].krs[2,j]*kul[i].krs[4,j];
end;
if jumsks<>0 then
ipnya:=usaha/jumsks;
writeln;
writeln('IP = ',ipnya:0:2);
readkey;
end;
end;
{--------------------------------------------------------------------}
function bobot(nilai:integer):integer;
begin
if nilai<40 bobot:="0</p" then="then">else
if (nilai>=40) and (nilai<55 bobot:="1</p" then="then">else
if (nilai>=55) and (nilai<65 bobot:="2</p" then="then">else
if (nilai>=65) and (nilai<76 bobot:="3</p" then="then">else
bobot:=4;
end;
{--------------------------------------------------------------------}
procedure masukdata(var kul:kuliah;var n:integer);
var i,j:integer;
begin
clrscr;
write('Banyak mahasiswa = ');readln(n);
for i:=1 to n do
begin
write('Nim : ');readln(kul[i].nim);
write('Nama : ');readln(kul[i].nama);
writeln;
for j:=1 to 2 do
begin
write('Kode : ');readln(kul[i].krs[1,j]);
write('Sks : ');readln(kul[i].krs[2,j]);
write('Nilai : ');readln(kul[i].krs[3,j]);
writeln('Bobot : ',bobot(kul[i].krs[3,j]));
kul[i].krs[4,j]:=bobot(kul[i].krs[3,j]);
writeln('huruf : ',huruf(bobot(kul[i].krs[3,j])));
writeln;
end;
end;
end;
var n:integer;
begin
masukdata(kul,n);
readkey;
khs(n,kul);
end.
76>65>55>40>
Subscribe to:
Posts (Atom)