marlinda.blogspot.com

Simbol-Simbol Flowchart Flowchart Proses ( Process Flowchart ).             Untuk keperluan pembuatan program maka digunakan Flowchart Program. Dalam flowchart program merupakan gambaran hasil pemikiran dalam menganalisis masalah yang akan diubah menjadi program komputer. Flowchart merupakan bagan-bagan yang mempunyai arus yang menggambarkan langkah-langkah penyelesaian suatu masalah. Simbol-Simbol Flowchart terdiri dari 3 bagian, yaitu: Simbol Penghubung Alur Simbol Proses Simbol Input-Output

Algoritma Cek_Keterangan Deklarasi    N  : Byte    Lg, Ket : String Deskripsi    Lg- 'Y'    While Lg = 'Y'        Write ('Nilai Anda :')        Read (N)        If N>=60 Then              Ket- 'LULUS'        else              Ket- 'GAGAL'        End If        Write ('Anda : ', Ket)        Write ('Menghitung Lagi [Y/T] : ')        Read (Lg) End While

Algoritma Menghitung_Nilai_Rata2 Deklarasi    Jdata, J, N  : Byte    TotN           : Integer    Rata            : Real Deklarasi    TotN- 0    Rata- 0    J- 1    Read (Jdata)    While J<= Jdata                   Write ('Nilai :'J)                    Read (N)                    TotN- TotN+N;                    J-J+1    End While    Rata- TotN / Jdata    Write ('Nilai Rata-Rata', Rata)

PSEUDO-CODE Algoritma: Penjualan_Barang Deklarasi    Kd, Nm: String    JJ, Hrg, TH : Numeric Deskripsi    Read (Kd);    IF Kd='SBN01' Then                Nm-'Sabum LUX'                Hrg- 1500    ELSE IF Kd='RNS02' Then                Nm-'Rinso'                Hrg-11500    ELSE IF Kd='SMP03' Then                Nm-'Sunsilk'                Hrg-150           ELSE             Nm-" "           END IF Read (JJ) TH- Hrg*JJ Write(TH)

KALIMAT DESKRIPTIF mulai masukan nilai nHadir masukan nilai nTugas masukan nilai nUTS masukan nilai nUAS hitung nilai nAkhir = 0.1* nHadir+0.2*nTugas+0.3*nUTS+0.4*nUAS tampilkan nilai nAkhir selesai PSEUDO-CODE algoritma: menghitung_nilai_akhir; deklarasi:    nHadir,nTugas,nUTS,nUAS, : numeric;    nAkhir : float; deskripsi   read (nHadir)   read (nTugas)   read (nUTS)   read (nUAS)   nAkhir-0.1*nHadir+0.2*nTugas+0.3*nUTS+0.4*nUAS   write (nAkhir)

KALIMAT DESKRIPTIF mulai input n celcius input n fahrenhit input n reamur hitung n fahrenhit =n celcius*1.8+32 n reamur = n celcius*0.8 tampilkan n fahrenhit tampilkan n reamur selesai algoritma= konversi suhu deklarasi :    n celcius, n fahrenhit, n reamur : float deskripsi:   read (n celcius)   n fahrenhit-celcius*1.8+32   n reamur-n celcius*0.8   write (n fahrenhit)   write (n reamur)

KALIMAT DESKRIPTIF mulai masukan nilai d1 masukan nilai d1 hitung nilai luas= 1/2*d1*d2 tampilkan nilai luas selesai PSEUDO-CODE start variabel    d1 : integer    d2 : integer    luas : real input    read (d1)    read (d2) proses    luas= 1/2*d1*d2 output    write (luas) end.

KALIMAT DESKRIPTIF mulai masukan nilai radius masukan nilai tinggi hitung nilai volume=3.14*radius*tinggi tampilkan nilai volume selesai PSEUDO-CODE start variabel    radius :integer    tinggi :integer    volume : real  input    read (radius)    read (tinggi) proses    volume= 3.14*radius*tinggi output    write (volume) end.

Program MenampilkanBeratIdeal; uses crt; var  TB,BI : real; begin  clrscr;  writeln('Program Menampilkan Berat Ideal');  write('Input Tinggi Badan:');readln(TB);  BI :=(TB-100)*0.9;  writeln('Berat Ideal(KG) :',BI:0:0);  readln; end.

KALIMAT DESKRIPTIF mulai input tanggal, bulan, tahun (HPHT) bulan HPHT dikurang 3 tahun HPHT ditambah 1 tampilkan perkiraan lahir bayi selesai PSEUDO-CODE algoritma : perkiraan (lahir bayi) deklarasi ;   tanggal HPHT   bulan HPHT   tahun HPHT   perkiraan kelahiran deskripsi;   read tanggal HPHT   read bulan HPHT   read tahun HPHT   perkiraan lahir<-(tgl+7), (bulan-3), (tahun+1)   write (perkiraan lahir) end

Perogram MenghitungLuasLingkaran; uses crt; const phi=3.14; var L,r.real; begin   clrscr;   writeln('Program Menghitung Luas Lingkaran');   write('input jari jari lingkaran:');readln(r);   L:=phi*r*r;   writeln('Luas Lingkaran:',L:2:2);   readln; end.

Program RataRataPenjualan; uses crt; var   ph1,ph2,ph3,ph4,ph5,rr:real; begin   clrscr;   writeln('Program Mencari Rata Rata Penjualan');   write('Input Penjualan Hari 1 =');readln (ph1);   write('Input Penjualan Hari 2 =');readln (ph2);   write('Input Penjualan Hari 3 =');readln (ph3);   write('Input Penjualan Hari 4 =');readln (ph4);   write('Input Penjualan Hari 5 =');readln (ph5);   rrp :=(ph1+ph2+ph3+ph4+ph5)/5;   writeln('Rata Rata Penjualan =',rrp:0:0);   readln; end.

Program fornext; uses crt; var   i : integer; begin   clrscr;   for i := 1 to 10 do   begin   writeln(i,'STMIK BUDI DARMA');   end;   readln;   end.

Program fornext; uses crt; var   i,y :integer; begin   clrscr;   write('input nilai y :'); readln(y);   for i:= 1 to 10 do   begin      writeln(i,'x','y',=', i*y);      end;      readln; end.

Program GanjilGenap; uses crt; var   N,i: integer; begin   clrscr;   writeln('Program Ganjil agenap');   for N := 1 to 10 do   begin      write(N;.Input Bil ='); readln(i);      if i mod 2 = 0 then          writeln(' Keterangan = Genap');      else          writeln(' Keterangan = Ganjil');     end;     readln; end.

program ganjil; uses crt; var   i,n :integer; begin   clrscr;   write('batas =');readln(n);   for i := 1 to n*2 do   begin      if i mod 2 =1 then      write(i;;);      end;     readln; end.

Pseodo-code start variabel     Jam, Menit, : Integer, total Menit : Integer Input    read(Jam)    read(Menit) proses    Total Menit= ((Jam*60)+Menit) output    write(Total Menit) end

Program MenghitungGajiHarianPegawai; uses crt; var   JJK,GajiHarian,Gaji:real; begin   clrscr;       writeln('Program Menghitung Gaji Pegawai');       write('Input Jumlah Jam Kerja:');readln;       Gaji:=500;       if JJK>7 then       GajiHarian:=Gaji*7+(Gaji*(JJK-7))       else        GajiHarian:=Gaji*JJK;         writeln('Gaji Harian Rp:',GajiHarian:0:0);readln; end.

Program PembayaranTagihanListrikPTPLN; uses crt; var NamaPelanggan,Kode,JenisPelanggan:string; JumlahPemakaian:integer; BiayaBeban,HargaPerM3,TotalHarga:longit; Pajak,TotTagihan:real; begin clrscr;    writeln('Program Pembayaran Tagihan Listrik PT PLN');    write('Input Nama Pelanggan:');readln(NamaPelanggan);    write('Input Kode:');readln(Kode);    write('Input JumlahPemakaian:');readln(JumlahPemakaian); if Kode:='L01' then begin    JenisPelanggan:='Pabrik';    BiayaBeban:=50000;    HargaPerM3:=2500; end else if Kode:='L02' then begin    JenisPelanggan:='Swalayan';    BiayaBeban:=35000;    HargaPerM3:=2000; end else if Kode:='L03' then begin    JenisPelanggan:='Toko';    BiayaBeban:=2500;    HargaPerM3:=1500; end else if Kode:='L04' then begin    JenisPelanggan:='Rumah';   ...

Program MencariLuasLingkaran uses crt; const phi=3.14; var L,r.real; begin    clrscr;    writeln('Program MencariLuasLingkaran');    write('input jari jari Lingkaran:');readln(r);     L:=phi*r*r;     writeln('Luas Lingkaran:',L:2:2);     readln;    end. "HASILNYA" PROGRAM MENCARI LUAS LINGKARAN INPUT JARI JARI LINGKARAN:12 LUAS LINGKARAN:452.16