Pengertian sistem dan analisis sistem

BAB I

PENDAHULUAN

1. 1  Konsep Dasar Sistem

Kalau Anda membeli sebuah sepeda tetapi tidak dengan rodanya, maka sepeda itu tidak akan berfungsi, dengan kata lain sepeda tersebut tidak dapat dikatakan suatu sistem, karena masih ada komponennya yang kurang. Kalau Anda mempunyai sebuah jam tangan digital elektronik yang harganya sampai ratusan ribu rupiah dan mengalami kerusakan total sehingga tidak dapat diperbaiki, maka jam tersebut sudah tidak ada nilainya lagi, walaupun komponen-komponennya Anda jual sendiri-sendiri. Inilah mahalnya suatu sistem. Apakah sistem itu? Suatu sistem dapat didefenisikan sebagai suatu kesatuan yang terdiri dari dua atau lebih komponen atau subsistem yang berinteraksi untuk mencapai suatu tujuan.

Suatu sistem dapat terdiri dari sistem-sistem bagian (subsystem). Misalnya, system komputer terdiri dari subsistem perangkat keras dan subsistem perangkat lunak.    Masing-masing subsistem dapat terdiri dari subsistem-subsistem yang lebih kecil lagi atau terdiri dari komponen-komponen. Subsistem perangkat keras (hardware) dapat terdiri dari alat masukan, alat pemroses, alat keluaran dan simpanan luar. Subsistem-subsistem saling berinteraksi dan saling berhubungan membentuk satu kesatuan sehingga tujuan atau sasaran sistem tersebut dapat tercapai. Interaksi dari subsistem-subsistem sedemikian rupa, sehingga dicapai suatu kesatuan yang terpadu atau terintegrasi (integrated). Anda dapat membayangkan, bagaimana seandainya sistem komputer yang Anda miliki, masing-masing komponennya saling bekerja sendiri-sendiri tidak terintegrasi, maka tujuan dari system komputer tersebut tidak akan tercapai.

Read More

program menghitung pengambilan barang

program array_dalam_record;
uses wincrt;
Type
    barang          = record
    namabrg         :array[1..3] of string[20];
    jumlah          :array[1..3] of byte;
    harga,total     :array[1..3] of real;
        subtot,tbrng    :array[1..3] of real;
        total_semua     :array[1..3] of real;
end;
var
    brg        :barang  ;
    i,j,k      :integer ;
begin
 with brg do
 begin
        for i:=1 to 3 do
        begin
                write('Nama Barang ke-',i,' : ');readln(namabrg[i]);
            write('Harga barang ke-',i,' : ');readln(harga[i]);
            for j:=1 to 3 do
            begin
                     write('Jumlah brng di ambil ',j,' : ');readln(jumlah[j]);
                 subtot[i] := subtot[i] + jumlah[j];                     
                     total[i]:= subtot [i]* harga[i];

           end;              
                      
  
                writeln('Jumlah Barang = ',subtot[i]:0:0);
                writeln('Harga Bayar = ',total[i]:0:0);
                for k := 1 to 3 do
                    total_semua[k]:=total_semua[k]+total[i];
                    tbrng[k]:=tbrng[k]+subtot[i];

                end;

Read More

PASCAL Menghitung Jumlah Tiket

  uses wincrt;
    var
    jurusan,jenisbus: string;
    total,diskon,bayar: integer;
    harga:real;
    begin
    clrscr;
    writeln('             Pemesanan Tiket Bus Online              ');
    writeln('                Selamet Jaya Perkasa                 ');
    writeln('      Jurusan Jakarta, Cianjur dan Majalengka        ');
    writeln('+-----+--------+----+');
    writeln('| Kode  Jurusan |           AC          |  Ekonomi  |');
    writeln('+-----+--------+----+');
    writeln('|[1] Jakarta    | Rp.40.000 (Disc. 10%) | Rp.30.000 |');
    writeln('|[2] Cianjur    | Rp.25.000             | Rp.20.000 |');
    writeln('|[3] Majalengka | Rp.30.000 (Disc. 5%)  | Rp.25.000 |');
    writeln('+-----+--------+----+');
    writeln;
    writeln;
    writeln('Silahkan isi data dibawah ini : ');
    begin
    write('- Kode Jurusan : ');readln(jurusan);
    write('- Jenis Bus    : ');readln(jenisbus);
    write('- Jumlah Tiket : ');readln(total);
    write('- Harga bayar  : ');
    if (jurusan='1')and (jenisbus='ac') then harga:=40000-(40000*0.1);
    if (jurusan='1')and (jenisbus='ekonomi') then harga:=30000;
    if (jurusan='2')and (jenisbus='ac') then harga:=25000;
    if (jurusan='2')and (jenisbus='ekonomi') then harga:=20000;
    if (jurusan='3')and (jenisbus='ac') then harga:=30000-(30000*0.05);
    if (jurusan='3')and (jenisbus='ekonomi') then harga:=25000;

Read More