kisi2 soal PTI

STIMIK HIMSYA SEMARANG DI JEPARA

JADWAL UJIAN SEMESTER GASAL

TP 2011 / 2012

NO	HARI/TANGGAL	MATA KULIAH	DOSEN	WAKTU
1	Jum’at,17 Februari 2012	1.       Statistika 2.       PTI	1.       Nuryakin,MM 2.       Septia Lutfi,M.Kom	14.00 - 15.30 15.30 - 17.00
2	Sabtu, 18 Februari 2012	1.       Kalkulus I 2.       Aljabar Linier dan Matrik	1.       Harmoko, S.Pd 2.       Harmoko, S.Pd	14.00 - 15.30 15.30 - 17.00
3	Minggu, 19  Februari 2012	1.       Algoritma dan Pemrograman 2.       Perancangan Sistem Berorientasi Obyek 3.       Matematika Distrik	1.       Edy Yulianto, S.Kom 2.       Tri Daryatni,S.Kom 3.       Eko	08.00 - 09.30 09.30 - 11.00 11.00 - 12.30

Kisi2 Soal UAS

Septia lutfi

1. Apakah pengertian TI dan sebutkan peranan TI dalam kehidupan kita sehari-hari?
2. Apakah yang dimaksud computer networks dan tujuan dibuat computer networks?
3. Sebut dan jelaskan  tugas utama SIA (Sistem Informasi Akuntansi) di dalam sebuah perusahaan?
4. Menurut anda apa yang harus dilakukan oleh suatu perusahaan atau strategi untuk dapat memenangkan kompetisi di era globalisasi saat ini?
5. Jelaskan tugas OS di dalam sebuah komputer dan OS secara umum terbagi menjadi berapa bagian,sebutkan?
6. Karakteristik sistem informasi fungsional dan pengertian sistem informasi berbasis komputer
7. Sistem Informasi Berbasis Komputer atau Computer Based Information System (CBIS) jelaskan
8.  Apa yang anda ketahui tentang Komponen Hardware
9.  Perangkat Keras dan perangkat lunak  jelaskan
10.  Apa itu data.
11.  Apa itu informasi

 jawab;

1.teknologi yang menggabungkan komputasi (computer) dengan jalur komunikasi
berkecepatan tinggi yang membawa data,suara dan video.

Jadi menurut kesimpulan teknologi informasi adalah gabungan antara teknologi computer dengan teknologi komunikasi.

peranan TI bagi saya adalah adanya email yang bisa saya gunakan untuk surat menyurat online, adanya web/blog yang saya gunakan untuk memperkenalkan usaha dan mengisi kegiatan saya sehari-hari ,adanya facebook yang bisa saya gunakan untuk berinteraksi dengan teman dan sahabat, adanya komputer dan internet yang saya gunakan untuk mendirikan usaha warnet saya dan masih banyak peranan lain dari TI untuk saya.

2.“Computer Network” adalah sekumpulan autonomus computer yang saling terhubung dalam satu teknologi. Dua komputer dikatakan terhubung apabila keduanya dapat saling bertukar informasi. Koneksi yang ada tidak harus melalui kabel tembaga, bisa juga mengguanakan medium lain seperti fiber optic, gelombang mikro, inframerah, dan atau satelit komunikasi. Salah satu contoh dari “computer network” adalah internet,dimana internet ini bukan merupakan sebuah network tunggal melainkan network dari network lainnya.

3.

06.05 | 0 komentar | Read More

TUGAS PASCALL

{*************************************}
{Program Ujian Akhir Semester gasal   }
{Tahun Akademik 2011 / 2012           }
{Matakuliah Algoritma & Pemrograman
By EDI PURWANTO EMAIL edipurwanto10@gmail.com}
{*************************************}
{LISTING PROGRAM PASCAL               }

Program penjualan;
uses
crt;

type
data=record
no,jumlah:integer;
nama_barang:string;
harga,harga_barang:real;
end;

var
rdata:array[1..100]of data;
filedata:file of data;
f:data;
nomor:integer;
datacari:string;

procedure judul;
begin
writeln;
writeln('**********************************************');
writeln('       KOPERASI MAHASISWA "HIMSYA JEPARA"     ');
writeln('            Jl. Ratu Kalinyamat KM.1          ');
writeln('                     Jepara                   ');
writeln('               dibuat Edi Purwanto            ');
writeln;

end;

procedure tambah;
var
i:integer;
lagi:char;
begin
clrscr;
judul;
writeln('Masukan data tambahan');
assign(filedata,'jual.dat');
reset(filedata);
seek(filedata,filesize(filedata));
write('Nama barang:');
readln(f.nama_barang);
write('harga  :');
readln(f.harga);
write('jumlah :');
readln(f.jumlah);
f.harga_barang:=f.harga*f.jumlah;
write(filedata,f);
close(filedata);
end;

procedure hapus;
var
i,j:integer;
nm:string;
begin

assign(filedata,'jual.dat');
reset(filedata);
j:=0;
while not Eof(filedata)do
begin
inc(j);
read(filedata,rdata[j]);
end;

writeln('Masukan nama barangyang di hapus:');
readln(nm);
i:=1;
while(i<=j)and(rdata[i].nama_barang<>nm)do
inc(i);
if nm=rdata[i].nama_barang then
begin
dec(j);
for i:=i to j do
rdata[i]:=rdata[i+1];
rewrite(filedata);
for i:=1 to j do
write(filedata,rdata[i]);
writeln('Tekan enter untuk memulai menghapus');
readln;
writeln(' S U K S E S ');
end
else
writeln('MAAF data tidak di temukan');
readln;
close(filedata);
end;

procedure edit_data;
var
i,p:integer;
lagi:char;
dataedit:string;

begin

assign(filedata,'jual.data');
reset(filedata);
writeln('masukan nama data yang akan di edit [tulis dengan huruf kecil]:');
readln(dataedit);
i:=1;
while not Eof(filedata)do
begin
read(filedata,rdata[i]);
begin
if dataedit=rdata[i].nama_barang then

begin
p:=filepos(filedata);writeln(p);
p:=p-1;
seek(filedata,p);
writeln('input data pengganti:');
writeln('no',i:2);
write('nama barang:');read(rdata[p].nama_barang);
write('harga      :');read(rdata[p].harga);
write('jumlah     :');read(rdata[p].jumlah);
rdata[p].harga_barang:=rdata[p].harga*rdata[p].jumlah;
write(filedata,rdata[p]);
end;
end;
i:=i+1;
end;
close(filedata);
end;





procedure in_data_barang;
var i:integer;
lagi:char;
begin
i:=1;
assign(filedata,'jual.dat');
rewrite(filedata);
reset(filedata);
begin
repeat
begin
clrscr;
judul;
writeln('input dengan huruf kecil');
writeln('no',i);
write('nama barang:');readln(rdata[i].nama_barang);
write('harga      :');readln(rdata[i].harga);
write('jumlah     :');readln(rdata[i].jumlah);
rdata[i].harga_barang:=rdata[i].harga*rdata[i].jumlah;
write(filedata,rdata[i]);
writeln;
writeln('ingin masuk data lagi [y/t]:');
readln(lagi);
i:=i+1;
end;
until ((lagi='t')or(lagi='T'));
close(filedata);
end;
end;

procedure tampil_daftar_barang;
var i:integer;
begin
assign(filedata,'jual.dat');
reset(filedata);
writeln('DAFTAR BARANG DI ATAS Rp 1.000.000');
writeln('=========================================================');
writeln('NO    NAMA BARANG               HARGA/S JUMLAH');
writeln('=========================================================');

i:=1;
while not Eof(filedata) do
begin
read(filedata,rdata[i]);

if (rdata[i].harga)>=1000000 then
begin
write(i);
write('  ',rdata[i].nama_barang:10);
write('             ',rdata[i].harga:10:0);
write('  ',rdata[i].jumlah:2);
writeln;
i:=i+1;
end;
end;writeln;
end;


procedure cetak_daftar_barang;
var i,pilih:integer;
total:real;
begin
repeat
clrscr;
assign(filedata,'jual.data');
reset(filedata);
total:=0;
begin
judul;
writeln('DAFTAR PENJUALAN');
writeln('=========================================================');
writeln('NO    NAMA BARANG               HARGA/S JUMLAH');
writeln('=========================================================');
i:=1;

While not Eof(filedata)do

begin
read(filedata,rdata[i]);

write(i);
write('   ',rdata[i].nama_barang:10);
write('              ',rdata[i].harga:10:0);
write('   ',rdata[i].jumlah:2);
write('   ',rdata [i].harga_barang:8:0);
writeln;
total:=total+rdata[i].harga_barang;
i:=i+1;
end;
writeln('--------------------------------------------------------');
writeln('                            TOTAL PENJUALAN  ;',total:3:0);
writeln;
writeln;
Tampil_Daftar_Barang;
end;
writeln('      --Pilihan--');
writeln('**********************************************');
writeln('        1. Tambah data penjualan              ');
writeln('        2. Hapus data penjualan               ');
writeln('        3. Edit data penjualan                ');
writeln('        4. Ke Menu Utama                      ');
writeln('**********************************************');
readln(pilih);
case pilih of
1:tambah;
2:hapus;
3:edit_data;
end;
until(pilih=4);
end;

procedure cair;
var
i,jumlah:integer;
cocok,nama:string;
harga,harga_barang:real;
begin
assign(filedata,'jual.data');
reset(filedata);
cocok:=datacari;

begin
i:=1;
while not Eof(filedata)do
begin
read(filedata,rdata[i]);
if cocok=rdata[i].nama_barang then
begin
nama:=rdata[i].nama_barang;
harga:=rdata[i].harga;
jumlah:=rdata[i].jumlah;
harga_barang:=rdata[i].harga_barang;
end;
end;
i:=i+1;
end;
if(nama='')then
begin
writeln('MAAF DATA TIDAK TERSEDIA')
end
else
begin
judul;
writeln('DAFTAR PENCARIAN');
writeln('=========================================================');
writeln('NO    NAMA BARANG               HARGA/S JUMLAH');
writeln('=========================================================');
writeln;
write(nama:10);
write(         harga:35:0);
write(jumlah:8);
write(harga_barang:12:0);
writeln;
writeln('--------------------------------------------------------');
writeln;
end;
nama:='';
harga:=0;
jumlah:=0;
harga_barang:=0;
end;

procedure cek_data_barang;
var
lagi:char;
begin
repeat
clrscr;
judul;
writeln('Masukan Nama Data Yang di cari[tulis dengan huruf kecil]:');
readln(datacari);
clrscr;


writeln('apakah ingin mencari data lagi ? [y/t]');
readln(lagi);
writeln;
until(lagi='T')or(lagi='t');
end;

begin

repeat
clrscr;
judul;
writeln('      --MENU--   ');
writeln;
writeln('  1. IN DATA BARANG');
writeln('  2. CEK DATA BARANG');
writeln('  3. CETAK DAFTAR BARANG');
writeln('  4. EXIT');
writeln('**************************************************');
writeln;
write('Pilih Jenis Transaksi=');
readln(nomor);
clrscr;
case nomor of
1:in_data_barang;
2:cek_data_barang;
3:Cetak_daftar_barang;
end;
until nomor=4;
end.

19.33 | 0 komentar | Read More