Diposting oleh
Unknown
komentar (0)
Program Menghitung_Luas_dan_Keliling_Bangun_Datar;
uses crt;
Var
Pilih : Integer;
Procedure Persegi; {Mencari Luas dan Keliling Persegi}
Var
s, L, K : Real;
Begin
Writeln(' ');
Textcolor(LightRed);
Writeln(' --==::Menghitung Luas dan Keliling Persegi::==--');
Textcolor(LightGreen);
Writeln(' ...
15
Oktober
Menggunakan If Then Else Pada Turbo Pascal 7
Diposting oleh
Unknown
komentar (0)
Komputer dapat mengambil keputusan untuk berdasarkan aliran logika yang
telah ditentukan sebelumnya yang dikenal sebagai algoritma.Bagaimana penulisan perintah pengambilan keputusan pada Turbo Pascal 7? Dalam Tutorial turbo Pascal 7 Kali ini saya akan memberikan Salah satu perintah struktur pengambilan keputusan adalah: If condition Then statement;
Di mana condition adalah sesuatu yang bernilai True atau False, ...
Diposting oleh
Unknown
komentar (0)
Langsung saja, berikut ini adalah contoh program C++ dari kangasepsule
untuk siswa maupun mahasiswa yang sedang latihan menggunakan IF dan ELSE
IF dalam C++. Seperti sudah dijelaskan sebelumnya, bahwa untuk
menguasai bahasa pemrograman apapun ...
Diposting oleh
Unknown
komentar (0)
Contoh program penjualan
Contoh program perhitungan harga fotocopy
Download Sour ...
09
Oktober
MEMBUAT PROGRAM FILE MAHASISWA DENGAN PASCAL
Diposting oleh
Unknown
komentar (1)
Berikut merupakan program FILE MAHASISWA dengan PASCAL :
uses crt;
const
garis ='======================================================';
type Mahasiswa = record
nama: string[25];
npm: string[8];
kelas: string[5];
end;
type
tipelarik= string[25];
larikurut=array[1..100] of tipelarik;
var
file_mhs : file of Mahasiswa;
filemhs : Mahasiswa;
i,j, ...
09
Oktober
Membuat Program Kasir dengan bahasa Pascal
Diposting oleh
Unknown
komentar (0)
Berikut ini merupakan contoh dari program kasir.Dalam program kasir ini diberikan diskon
sebesar 5% bagi orang yang berbelanja antara 10.000 sampai dengan
100.000 dan diskon 10% bagi orang yang berbelanja lebih dari 100.000.
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 ...
09
Oktober
Turbo Pascal(Contoh program ramalan)
Diposting oleh
Unknown
komentar (0)
program RAMALAN;
uses wincrt;
var
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:string;
lagi:char;
karakter:char;
letak1:string;
letak2:string;
letak3:string;
letak4:string;
begin
a:=’Kamu boleh bangga atas smuanya,tp jgn kya kacang yg lupa sama kulitnya’;
b:=’Tersenyumlah,kmu akan selalu beruntung dihari kelahiran anda’;
c:=’Eeehm,kmu paling bisa membuat hati orang jd senang’;
d:=’Terlalu banyak fikiran kotor diotakmu’;
e:=’Hebat,hari gene masih ada orang yang bertanggungjawab kyak kmu’;
f:=’Jangan terlalu royal kepada teman atau saudara sob’;
g:=’Hati hati,kmu orang yg mudah percaya dengan perkataan orang lain’;
h:=’Oalah,maaf sob.kmu termasuk tipe orang yang kurang setia’;
i:=’Masa ...
