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