Khazhar Blog

Tugas Prokom ( Mesin Mencari IPK )

Maaf bu terlambat ngirimnya

program Ipk;
uses crt;

type
mahasiswa = record
nama : string[15]; {nama mahasiswa}
nim : string[9]; {nim mahasiswa}
alamat : string[20]; {alamat mahasiswa}
ipk : real; {ipk mahasiswa}
end;
tabel=array[1..60] of mahasiswa; {tabel record}

var
n : integer;
tabmhs: tabel;
pil : char;



{-------------------------Procedure Menu----------------------}

procedure menu;
begin
repeat
clrscr;
gotoxy(5,5); writeln('Program Indeks_Prestasi_Kumulatif');
gotoxy(5,6); writeln('---------------------------------');
gotoxy(8,7); writeln('1.Input Data Mahasiswa');
gotoxy(8,8); writeln('2.Sorting Data Mahasiswa');
gotoxy(8,9); writeln('3.Search Data Mahasiswa');
gotoxy(8,10); writeln('4.Keluar/Exit');
delay(3000);
until keypressed;
end;

{-------------------------Procedure Sorting--------------------}

procedure sorting(var a:tabel);
var
i,j : integer;
temp : real;
temp1,temp2,temp3 : string;


begin
begin
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if ( a[i].ipk ) < (a[j].ipk) then begin temp:=a[i].ipk; temp1:=a[i].nim; temp2:=a[i].nama; temp3:=a[i].alamat; a[i].ipk:=a[j].ipk; a[i].nim:=a[j].nim; a[i].nama:=a[j].nama; a[i].alamat:=a[j].alamat; a[j].ipk:=temp; a[j].nim:=temp1; a[j].nama:=temp2; a[j].alamat:=temp3; end; writeln; end; end; end; gotoxy(5,5); writeln('NIM Nama Alamat IPK '); gotoxy(5,6); writeln('----------------------------------------------------------'); for i:=i to n do begin gotoxy(5,6+i); write(a[i].nim); gotoxy(18,6+i); write(a[i].nama); gotoxy(37,6+i); write(a[i].alamat); gotoxy(60,6+i); write(a[i].ipk:0:2); end; readln; end; {-------------------------Procedure Searching---------------------------------------} procedure search(var a:tabel); var x : string; i : integer; begin begin gotoxy(5,5); write('Ketikkan NIM anda = '); readln(x); i:=1; while (i x ) do
begin
i:=i+1;
end;
if a[i].nim=x then
begin
clrscr;
gotoxy(5,5); writeln('NIM : ',a[i].nim);
gotoxy(5,6); writeln('Nama : ',a[i].nama);
gotoxy(5,7); writeln('alamat : ',a[i].alamat);
gotoxy(5,8); writeln('IPK : ',a[i].ipk:0:2);
readln;
end
else
begin
clrscr;
gotoxy(5,5); write('Data Tidak Ada');
end;
end;
readln;
end;

{-------------------------Procedure Input---------------------------------------}
procedure input(var a:tabel);
var
i : integer;
begin
clrscr;
repeat
clrscr;
gotoxy(5,5);write('Masukkan Banyak data ( min:2 ; max:60 ) : ');
readln(n);
until n<61;
for i:=1 to n do
begin
clrscr;
repeat
clrscr;
gotoxy(5,5); writeln('Data ke : ',i);
gotoxy(5,6); write('NIM : '); readln(a[i].nim);
gotoxy(5,7); write('Nama : '); readln(a[i].nama);
gotoxy(5,8); write('Alamat : '); readln(a[i].alamat);
gotoxy(5,9); write('IPK : '); readln(a[i].ipk);
until (a[i].ipk<=4);
end;
end;

{-------------------------Program Utama-----------------------------------------}
begin
repeat
clrscr;
menu;
pil:=readkey;
case pil of
'1':begin
clrscr;
input(tabmhs);
clrscr;
end;
'2': begin
clrscr;
sorting(tabmhs);
clrscr;
end;
'3': begin
clrscr;
search(tabmhs);
clrscr;
end;
end;
until pil='4';
end.

Program_Deret_pangkat_2

kamus
i, n, jumlah, Pangkat : integer

Algoritma
Input (n)
i <-- 1 repeat

pangkat <-- 2^i i <-- i + 1 Jumlah <-- Jumlah + Pangkat output(pangkat) { deret akan menjadi 2 4 8 ....2^n }

untul ( i>n)
output (jumlah) { jumlah dari keseluruhan bilangan akan ditulis disini }

Kota Tebing Tinggi

Tebing Tinggi merupakan sebuah kota di Sumatera Utara, Indonesia. Berjarak sekitar 80 kilometer dari Medan, ia terletak di Jalan Nasional menuju Pematang Siantar (Sumatera Utara) dan Tanjung Balai (Sumatera Utara).

Tebing Tinggi dengan luas wilayah 3,843.8 hektar (38.4 km persegi) dibahagikan bagi pentadbiran menjadi tiga kecamatan dengan 27 kelurahan. Kota ini mengandungi 125,000 orang penduduk yang terdiri daripada pelbagai kaum pendatang.

Tebing Tinggi telah memiliki pelbagai sarana dan prasarana kota yang selama ini difungsikan untuk melayani masyarakat. Pelbagai kegiatan pelayanan umum dibidang pendidikan, kesihatan, perniagaan, pemukiman dan penyediaan jasa-jasa lainnya masih memberikan peluang kepada dunia usaha dan masyarakat untuk melakukan pelaburan sesuai dengan pertumbuhan kota.

Geografi

Tebing Tinggi terletak di antara 3º19` - 3º21` lintang utara dan 98º9` - 98º11` bujur timur. Kota ini dikelilingi oleh beberapa perkebunan besar, baik milik pemerintah mahupun swasta yang kesemuanya secara pentadbiran masih berada dalam kawasan Kecamatan Tebing Tinggi, Kabupaten Deli Serdang.

Selain itu, Tebing Tinggi terletak di jalan penghubung antara Pantai Barat dan Pantai Timur Sumatera Utara. Daerah ini dilintasi oleh empat aliran sungai besar dan kecil, iaitu: Sungai Padang, Sungai Bahilang, Sungai Kalembah dan Sungai Sibarau.

Tanah Tebing Tinggi pada umumnya mendatar dan bergelombang, dengan ketinggian sekitar 26-34 meter di atas permukaan laut.

Iklim

Berdasarkan letak geografi, Tebing Tinggi beriklim tropika dengan suhu udara antara 24-28ºC. Daerah Tebing Tinggi dipengaruhi oleh dua musim, iaitu musim kemarau dan musim hujan, dengan jumlah curah hujan sepanjang tahun rata-rata 1.217 mm setahun dengan kelembaban udara 80-90%.

SMA N 1 Tebingtinggi merupakan sekolah unggulan yang ada kota tebingtinggi. tahun 2008 ini sekolah telah launching menjadi sekolah internasional dan baru saj mengesahkan tower ngnet.
SMA N 1 Tebingtinggi blum dikategorikan seabagi sekolah yang memilki kategori fasilitas lengkap. seperti belum memilki gedung plahraga. tapi walau begitu SMA N 1 Tebingtinggi akan memenuhi hal tersebut sebagai perwujudan visi dan misinya

SMA N 1 tebingtinggi selalu berprestai dalam ajang kompetisi yang dilaksanakan oleh walikota dan segudang prestasi lainnya di nasional. guru - guru yang berpengalaman semakin mendukung proses mengajar yang tercantum dalam misi yaitu meningkat mutu belajar. karena nebjadi sekolah terpavorit di setiap kali penerimaan murid baru murid ini selalu mrngadakan seleksi ujian masuk dan cek kesehatan. Apalagi jika ditanya standar UN SMP,,,,