PROGRAM MENGHITUNG IPK

Program menentukan_IP;
uses wincrt;
var
f         : text;
Nim       : string[10];
Prodi     : string[25];
Name      : string[35];
MTK       : array[1..35] of string;
SKS       : array[1..35] of integer;
JumSKS    : integer;
Nilai     : array[1..35] of char;
Bobot     : array[1..35] of integer;
BotNil    : array[1..35] of integer;
IP        : real;
No        : integer;
Pil,i,n   : integer;
JmlBobot  : integer;
JmlMTK    : integer;

{menulis file}
Procedure isi;
Begin
clrscr;
assign(f,’Menghitung’);
rewrite(f);
write(‘Nama                     :’);readln(Name);
write(‘No.Mahasiswa             :’);readln(Nim);
write(‘Jumlah matakuliah        :’);readln(JmlMTK);
writeln;
for i := 1 to JmlMTK do
Begin
writeln;
writeln(‘     Matakuliah(MTK) ke’,i   );
writeln(‘============================’);
write(‘No                :’);readln(No);
write(‘Nama matakuliah   :’);readln(MTK[i]);
write(‘Jumlah SKS        :’);readln(SKS[i]);
write(‘Nilai (A/B/C/D/E) :’);readln(Nilai[i]);
If Nilai[i] = ‘E’ Then Bobot[i] := 0 else;
If Nilai[i] = ‘D’ Then Bobot[i] := 1 else;
If Nilai[i] = ‘C’ Then Bobot[i] := 2 else;
If Nilai[i] = ‘B’ Then Bobot[i] := 3 else;
If Nilai[i] = ‘A’ Then Bobot[i] := 4;
writeln(‘Bobot           :’,Bobot[i]);
BotNil[i]                := Bobot[i]*SKS[i];
writeln(‘Bobot Nilai     :’,BotNil[i]);
writeln;
{BotNil           : Bobot*SKS;}
JumSKS            := JumSKS+SKS[i];
JmlBobot          := JmlBobot+BotNil[i];
IP                := JmlBobot/JumSKS;
End;
writeln(f, Nim:10, Name:10, MTK[i]:10, SKS[i]);
close(f);
End;

{membaca file}
Procedure cetak;
Begin
clrscr;
assign(f,’Menghitung’);
reset(f);
writeln;
writeln(‘Nama Mahasiswa :’,Name);
writeln(‘NIM            :’,Nim);
writeln;
writeln(‘     DATA NILAI IP MAHASISWA UNRIYO “TEKNIK INFORMATIKA”     ‘);
writeln(‘=============================================================’);
writeln(‘| No |     Matakuliah    |  SKS  |  Nilai  | Bobot | BotNil |’);
writeln(‘=============================================================’);
for n := 1 to i do
Begin
gotoxy(3,n+9);write(n);
gotoxy(7,n+9);write(MTK[n]);
gotoxy(29,n+9);write(SKS[n]);
gotoxy(36,n+9);write(Nilai[n]);
gotoxy(46,n+9);write(Bobot[n]);
gotoxy(55,n+9);write(BotNil[n]);
writeln;
End;
writeln(‘=============================================================’);
writeln(‘IP Mahasiswa                                         :’,IP:2:2);
writeln(‘=============================================================’);
readln;
End;

{program utama}
Begin
repeat;
writeln(‘  MENU UTAMA      ‘);
writeln(‘[1] Baca Data     ‘);
writeln(‘[2] Cetak Data    ‘);
writeln(‘[3] S E L E S A I ‘);
writeln;
write(‘ Masukkan Pilihan: ‘);readln(Pil);
case pil of
1: Isi;
2: Cetak;
End;
until Pil = 3;
End.

YANG LALU BIARLAH BERLALU

    Mengingat dan mengenang masa lalu, kemudian bersedih atas nestapa dan kegagalan didalamnya merupakan tindakan yang BODOH dan GILA. Itu, sama artinya dengan MEMBUNUH semangat, memutuskan tekad dan mengubur masa depan yang belum terjadi.

            Bagi orang yang berpikir, berkas2 masa lalu akan dilipat dan tak pernah dilihat kembali. Cukup ditutup rapat2, lalu disimpan dalam “ruang” penglupaan, diletakkan dalam ruang gelap yang tak tembus cahaya agar tak terlihat lagi. Karena masa lalu telah berlalu dan habis. Kesedihan tak akan mampu mengembalikannya lagi, keRESAHan tak akan sanggup memperbaikinya, keGELAPan tidak akan mampu merubahnya menjadi terang, dan keGALAUan tidak akan dapat menghidupkannya kembali, karena memang sudah terjadi.

Jangan pernah hidup dalam mimpi buruk masa lalu yang suram. SELAMATKAN DIRI dari bayangan masa lalu !!!!!!!!!!!! Apakah kita ingin mengembalikan air ke hulu, matahari ketempat semula terbit, bayi masuk ke dalam perut ibunya, atau air mata ke dalam kelopak mata ?????? Ingatlah, keterikatan KITA dengan masa lalu, keresahan kita atas apa yang telah terjadi padanya, maka kedekatan jiwa KITA pada pintunya, adalah kondisi yang sangat naif, ironis, memprihatinkan, dan bahkan menakutkan.

            Membaca kembali lembaran masa lalu hanya akan memupuskan MASA DEPAN kita, mengundurkan SEMANGAT kita, dan menyia2kan waktu yang sangat berharga. Dalam AL-QURAN, setiap kali usai menerangkan kondisi suatu kaum dan apa saja yang telah mereka lakukan, ALLAH selalu mengatakan, “ITU ADALAH UMAT YANG LALU”……. Begitulah, suatu perkara habis, maka selesai pula urusannya.

            Orang yang berusaha kembali ke masa lalu, adalah tak ubahnya orang yang menumpuk tepung, atau orang yang menggergaji serbuk kayu. #tak ada gunanya…. L

            Cerita, nenek moyang kita dahulu selalu mengingatkan orang yang meratapi masa lalu, “JANGANLAH ENGKAU MENGELUARKAN MAYAT2 ITU DARI KUBURNYA”…. Dan konon, kata orang yang mengerti bahasa binatang sering bertanya kepada seekor keledai, “Mengapa engkau tidak menarik gerobak?”. “Aku benci khayalan,” keledai jawab.

            Yang demikian adalah bencana besar, manakala kita rela mengabaikan masa depan dan hanya disibukkan oleh masa lalu. Itu sama halnya dengan kita mengabaikan istana2 indah dengan sibuk meratapi puing2 yang telah lapuk. Padahal, betapapun seluruh manusia dan jin bersatu untuk mengembalikan semua hal yang telah berlalu, niscaya kita tidak akan mampu. Karena semuanya akan mustahil dan sia2.

            Orang yang berpikiran jernih tidak akan pernah melihat dan sedikitpun menoleh ke belakang. Pasalnya, angin akan selalu berhembus ke depan, air mengalir dari hulu ke hilir, dan segala sesuatu bergerak maju ke depan.                       

MAKA ITU, JANGANLAH PERNAH MELAWAN SUNNAH KEHIDUPAN!!!!!!!

           

BANGGANYA JADI ANAK TEKNIK INFORMATIKA

Setiap makhluk Tuhan yang bernyawa, khususnya manusia pasti mempunyai cita-cita setinggi langit. Mereka berusaha semaksimal mungkin, dan sebisa mungkin untuk dapat meraihnya. Tentu saja usaha tesebut dibantu dengan doa. Termasuk ada niat yang tulus untuk menggapainya.

Nah, apakah anda pernah mendapat pertanyaan yang berkisar tentang apakah TEKNIK INFORMATIKA itu???? Coba anda renungkan dan mencoba untuk menjawabnya. Jangan kaget bila pertanyaan tersebut tidak mudah untuk dijawab. Istilah TEKNIK INFORMATIKA mempunyai arti yang sangat luas dan berbeda jika kita menanyakan ke orang yang berbeda……

TEKNIK INFORMATIKA adalah dunia yang memperdalam tentang komputer dan seluk beluknya. Dikarenakan saya tertantang dengan kata-kata tersebut, maka saya masuk kampus UNIVERSITAS RESPATI YOGYAKARTA (UNRIYO), fakultas sains dan teknologi, khususnya prodi TEKNIK INFORMATIKA…

Sedikit berbagi cerita kenapa saya masuk di UNRIYO?????
Hehehehe ,,,,,, awal mulanya karena saya menyerah tidak masuk Universitas yang negeri. Terus bingung juga, banyak pilihan dan saran dari orang terdekat. So, akhirnya pilihan saya jatuh pada TEKNIK INFORMATIKA. Saya penasaran dan pengen tertantang ingin mengetahui seperti apa si dunia TEKNIK INFORMATIKA itu????? Akhirnya saya terdampar di UNRIYO.. 

Hmmm,,,,,
Di era sekarang ini, banyak perusahaan atau instansi pemerintahan yang membutuhkan lulusan atau orang yang ahli dalam bidang komputer. Makannya tidak salah lagi, saya kuliah di bidang ini. Selain banyak peluang kerja, juga dapat menambah pengetahuan tentang dunia komputer yang luas.
Bagi siapa saja yang tertantang akan dunia teknologi, tidak salah lagi melanjutkan kuliah di TEKNIK INFORMATIKA UNRIYO,,, 

Hello world!

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

1. You can find new ideas for what to blog about by reading the Daily Post.
2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.