Flowchat Latihan Di Lab

Membuat Flowchat Dan Program Dari Latihan

USES CRT;
 Var
 Nbarang:string;
 jml jual,discount:integer;
hrg,Tharga,tpembayaran:longint;
 Begin
clrscr;
 write('Nama barang',);readln(N);
 write('harga barang',);readln(Hrg);
 write('jml jual',);readln(jml);
Tharga=hrg*jml jual
 tpembayaran=Tharga-discount
 if Thrg>2500000 then
 discount:=0.1 *Tharga
else discount:=0;
 writeln('harga:',harga);
writeln(tpembayaran:',Tharga);
 readln;
 end.

Tugas Membuat Flowchat

Flowchat

Flowchart adalah sebuah metode penggambaran alur dari logika yang kita terapkan pada sebuah algoritma. Biasanya, Flowchart adalah langkah analisa paling awal sebelum membuat sebuah algoritma atau program. Tujuan Pembuatan Flowchart sebenarnya adalah menjelaskan cara kerja program yang kita buat bagi user agar lebih mudah dimengerti.

TUGAS MATA KULIAH ALGORITMA no 4

TUGAS MATA KULIAH ALGORITMA no 4

Tugas no 4

uses crt;

var

Npelanggan: string[30];

     kd: string[3];

     Jpelanggan: string[15];

    Bbeban,Harga per m3,Jpemakaian:longint;

    Tharga,pajak,Ttagihan:real;

    lagi:char;

Begin

    lagi :='Y'

    While upcase (lagi)='y' do

     Begin

     Write('Npelanggan:');readln(nama);

      write('kode produk:');readln(kd);

     If kd='LO1' then

    Begin

         Jpelanggan:='pabrik';Bbeban:=50000;harga per m3:=2500;

    end

    else if kd='LO2' then

    Begin

         Jpelanggan:='Swalayan';Bbeban:=35000;harga per m3:=2000;

    end

    else if kd='LO3' then

    Begin

         Jpelanggan:='Toko';Bbeban:=25000;harga per m3:=1500;

    end

    else if kd='LO4' then

    Begin

         Jpelanggan:='Rumah';Bbeban:=15000;harga per m3:=750

    end;

    writeln('Jpelanggan:',Jpelanggan);

    writeln('Bbeban:',Bbeban);

    writeln('Harga per m3;',Harga per m3);

    write('Jpemakaian:');readln(jumlah);

    Tharga:=Harga per m3*Jpemakaian+Bbeban;

    Pajak:=0.1*Tharga;

    else

        Pajak:=0;

    Ttagihan:=Tharga+Pajak;

    writeln('Tharga:',total:8:0);

   writeln('pajak:',pajak:8:0);

   writeln('Ttagihan:',Ttagihan:8:0);

    write('ada produk lagi[Y/T]');readln(lagi)

   end;

end.
Endang Tuti Rahayu Panjaitan ,NPM:1302044

Tugas Mata Kuliah Algoritma no 6 hal 20

TUGAS MATA KULIAH ALGORITMA NO 6

Tugas no 6

uses crt;

var

                Nmahasiswa,Npm,kode,Pembayaran ke:string;

                Jurusan,Pawal,Jcicilan,Bcicilan:longint;

                Ukuliah,UKterbayar,SUkuliah:real;

                Lagi:char;

Begin

                Lagi:='Y'

                while upcase(lagi)='Y'do

                begin

                write(Nmahasiswa:');readln(nama);

                write('Npm:');readln(Npm);

                write('pembayaran ke:');readln(Pembayaran ke);

                write('kode:');readln(kode);

                if kode='SI'then

                Begin

                                jurusan:='sistem informasi';Pawal:=2100000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='TI'then

                begin

                                Jurusan:='Teknik informatika';Pawal:=2500000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='KA'then

                Begin

                                Jurusan:='Komputer akuntansi';Pawal:=1750000;

                                Jcicilan:=6;Bcicilan:=200000;

                end

                else if kode='MI'then

                Begin

                                Jurusan:='Manajemen informatika';Pawal:=1500000;

                                Jcicilan:=6;Bcicilan:=250000;

                end;

                writeln('Jurusan:=,Jurusan);

                writeln('Pawal:',Pawal);

                Writeln('Jcicilan:',Jcicilan);

                writeln(',Bcicilan:',Bcicilan);

                Ukuliah:=Pawal+(Jcicilan*Bcicilan);

                UKterbayar:=Pawal+(Pembayaran ke*Bcicilan);

                SUkuliah:=Ukuliah-UKterbayar;

                writeln('Ukuliah:',Ukuliah:8:0);

                writeln('UKterbayar:',UKterbayar:8:0);

                writeln(SUkuliah:',SUkuliah:8:0);

    

    write('ada produk lagi[Y/T]');readln(lagi);

                end;

end.
Endang Tuti Rahayu Panjaitan Npm:1302044

tugas mata kuliah algoritma No 4

mobil listrik

Menteri Badan Usaha Milik Negara (BUMN), Dahlan Iskan mengaku mobil listrik besutan putra bangsa yang diboyong ke acara KTT APEC Indonesia 2013 mendapat sambutan positif dari para pemimpin perusahaan kelas dunia.Kunjungannya sangat luar biasa banyak, dan dari luar negeri juga bertanya-tanya soal mobil listrik . Dahlan Iskan pernah menyatakan akan memamerkan mobil-mobil listrik jenis bus, mini bus, dan sport pada penyelenggaran APEC tahun ini di Bali. Soal pengembangan mobil listrik ke depan, dia menyebut Kementerian BUMN akan mendukung produksi mobil listrik di Indonesia, meskipun Dahlan memprioritaskan akan menggandeng investor untuk memproduksi mobil tersebut. Dahlan mengaku, pihaknya akan memprioritaskan penjualan mobil listrik di dalam negeri sebagai prioritas utama. Dia berharap, Indonesia tidak mengulangi kesuksesan mobil-mobil konvensional berbahan bakar minyak dari luar negeri karena terlambat memproduksi mobil sejenis.