Arsip Kategori: Pascal

Coding Program Kasir

Dipublikasi pada 27 November 2010 oleh hasanmualim

PROGRAM MENGHITUNG GAJI DENGAN ARRAY UTS UNINDRA 2010 Program Alim_UTS; uses crt; var gaji_pkk:array[1..10] of integer; tunjangan:array[1..10] of integer; u_makan:array[1..10] of integer; asuransi:array [1..10] of real; gaji_bersih:array [1..10] of real; i:integer; begin clrscr; textcolor(yellow); i:=1; repeat begin writeln (‘Perhitungan Gaji’); … Baca lebih lanjut →

Dipublikasi di Pascal | Meninggalkan komentar

MATEMATIKA DISKRIT (MATERI ALJABAR BOOLEAN)

Dipublikasi pada 19 Oktober 2010 oleh hasanmualim

MATERI ALJABAR BOOLEAN Bagi teman-teman (khususnya IIIc) yang ingin mendapatkan materi ALJABAR BOOLEAN Silahkan download : http://www.4shared.com/document/nAKbv5Bp/Aljabar_Boolean.html Aljabar Boolean   Misalkan terdapat –         Dua operator biner: + dan × –         Sebuah operator uner: ’. –         B : himpunan yang didefinisikan … Baca lebih lanjut →

Dipublikasi di Pascal | Meninggalkan komentar

Coba Java

Dipublikasi pada 11 Mei 2010 oleh hasanmualim

import java.util.Scanner; pubic class Nilai { public static void main(String [] args) { Scanner input = new Scanner(System.in); System.out.println(“Masukkan Nilai Mahasiswa = “); int NilaiMahasiswa = input.nextInt(); if (NilaiMahasiswa >= 85) { System.out.println (“A”) } else if (NilaiMahasiswa >= 75) … Baca lebih lanjut →

Dipublikasi di Pascal | Meninggalkan komentar

Program Gaji Pegawai

Dipublikasi pada 13 April 2010 oleh hasanmualim

Program Gaji_Pegawai; uses crt; var nam_peg:string[25]; nip:string[12]; gol_gaj,status, jml_anak:integer; t_anak,t_sutri,gj_pokok,t_gaji:real; begin clrscr; writeln(‘PERHITUNGAN GAJI PEGAWAI’); writeln(‘========================’); write(‘N A M A             :’);readln(nam_peg); write(‘Nomor Induk Pegawai :’);readln(nip); write(‘Golongan Pegawai    :’);readln(gol_gaj); write(‘Status Menikah      :’);readln(status); … Baca lebih lanjut →

Dipublikasi di Pascal | Tag | 2 Komentar

Program Kalkulator with Case

Dipublikasi pada 12 April 2010 oleh hasanmualim

program kalkulator; uses crt; var bil1, bil2:longint; calc:char; begin clrscr; write(‘bilangan pertama: ‘); readln(bil1); write(‘operasi(+,/,*,-): ‘); readln(calc); write(‘bilangan kedua: ‘); readln(bil2); case calc of ‘+’:write(‘hasilnya= ‘, bil1+bil2); ‘-‘:write(‘hasilnya= ‘, bil1-bil2); ‘*’:write(‘hasilnya= ‘, bil1*bil2); ‘/’:if bil2=0 then write(‘Error’) else write(‘hasilnya= ‘, … Baca lebih lanjut →

Dipublikasi di Pascal | Tag | Meninggalkan komentar

Program Kasir dengan Pascal

Dipublikasi pada 10 April 2010 oleh hasanmualim

Program kasir; uses wincrt; var barang : array[1..20] of string; banyak : array[1..20] of real; harga  : array[1..20] of integer; kata,grs :string; x,y,i,j : byte; jum_harga,total_harga,diskon,total_bayar,uang : real; begin clrscr; grs:=’==================================================================’; kata:=’Prgram Kasir’; x:=round ((78-length(kata))/2); gotoxy(x,2) ;writeln(kata); x:=round ((78-length(grs))/2); gotoxy(x,3) … Baca lebih lanjut →

Dipublikasi di Pascal | Tag | Meninggalkan komentar

Belajar Statistik 1

Dipublikasi pada 7 April 2010 oleh hasanmualim

BELAJAR STATISTIK 1 Baca lebih lanjut →

Dipublikasi di Pascal | Tag | Meninggalkan komentar