SISTEM INFORMASI MENEJEMEN

Sistem berasal dari bahasa Latin (systēma) dan bahasa Yunani (sustēma) adalah suatu kesatuan yang terdiri komponen atau elemen yang dihubungkan bersama untuk memudahkan aliran informasi, materi atau energi. Istilah ini sering dipergunakan untuk menggambarkan suatu set entitas yang berinteraksi, di mana suatu model matematika seringkali bisa dibuat.

Informasi adalah pengetahuan yang didapatkan dari pembelajaran, pengalaman, atau instruksi [1]. Namun demikian, istilah ini memiliki banyak arti bergantung pada konteksnya, dan secara umum berhubungan erat dengan konsep seperti arti, pengetahuan, negentropy, komunikasi, kebenaran, representasi, dan rangsangan mental.

Kata Manajemen berasal dari bahasa Perancis kuno ménagement, yang memiliki arti seni melaksanakan dan mengatur.

dapat di simpulkan
sistem informasi menejemen yaitu suatu komponen dan elemen yang saling berhubungan satu sama lain untuk mendapatkan pengetahuan yang didapat dari pembelajaran dan pengalaman.dengan cara mengatur dan melaksanakan .






http://id.wikipedia.org/wiki/Manajemen
http://id.wikipedia.org/wiki/Informasi
http://id.wikipedia.org/wiki/Sistem

Program Sortir Data Mahasiswa

program sort_DATA_MAHASISWA;
uses crt;
type
dataMHS=string;
var
nama,NPM,kelas: array[1..15] of dataMHS;
z,a,n: byte;
temp: string;
const garis='================================';
begin
clrscr;
write('masukkan data:');readln(n);
writeln('data awal:');
for z:= 1 to n do
begin
write('nama:');readln(nama[z]);
write('NPM:');readln(NPM[z]);
write('kelas:');readln(kelas[z]);
writeln;
end;
for z:=1 to n-1 do
begin
for a:=z to n do
begin
if (kelas[a] < kelas[z]) then
begin
temp := nama[a];
nama[a] := nama[z];
nama[z] := temp;
temp := NPM[a];
NPM[a] := NPM[z];
NPM[z] := temp;
temp := kelas[a];
kelas[a] := kelas[z];
kelas[z] := temp;
end;
end;
end;
writeln;
writeln('setelah diurutkan:');
for z:= 1 to n do
begin
writeln;
writeln('DATA MAHASISWA');
writeln;
writeln(garis);
writeln('nama NPM kelas');
writeln(garis);
for z:= 1 to n do
begin
writeln(nama[z]:0,NPM[z]:16,kelas[z]:9);
end;
end;
readln
end.