Sekilas Saya
- amertha sheing
- batam, riau, Indonesia
- Sinar matamu tajam namun ragu Kokoh sayapmu semua tahu Tegap tubuhmu takkan tergoyahkan Kuat jarimu kalau mencengkeram Bermacam suku yang berbeda Bersatu dalam cengkeramanmu Angin genit mengelus merah putihku Yang berkibar sedikit malu-malu Merah membara tertanam wibawa Putihmu suci penuh kharisma Pulau pulau yang berpencar Bersatu dalam kibarmu Terbanglah garudaku Singkirkan kutu-kutu di sayapmu Berkibarlah benderaku Singkirkan benalu di tiangmu Jangan ragu dan jangan malu Tunjukkan pada dunia Bahwa sebenarnya kita mampu
Kamis, 08 Maret 2012
data nilai - pascal
uses wincrt;
var nim,ntugas,nmid,nuas,nangka:real;
nama :string ;
begin
write('nim :');readln(nim);
write('nama :');readln(nama);
write('nilai tugas :');readln(ntugas);
write('nilai mid :');readln(nmid);
write('nilai uas :');readln(nuas);
nangka:=(0.2 * ntugas)+(0.3 * nmid)+(0.5 * nuas);
writeln('nangka :',nangka:2:0);
if (nangka>=76)and(nangka<=100)then
write('nilai huruf A')
else if(nangka>=56)and(nangka<=75)then
write('nilai huruf B')
else if(nangka>=0)and(nangka<=55)then
write('nilai huruf GAGAL')
else
write('nilai yang anda input salah');
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar