Program Bahasa Pascal “case-of” didalamnya ada “while-do”

Sebuah toko swalayan membutuhkan program untuk hitung harga,diskon dan pajak barang. Program tersebut mengunakan “case-of” dan didalamnya terdapat perulangan untuk melakukan peghitungan kembali “while-do”. Program yang akan digunakan, pemrogramaan bahasa pascal.

berikut sourcecode programnya.

uses wincrt;

var

nama:string;

nomor,jumlah,harga:integer;

diskon,pajak,total:real;

lagi:char;

begin

clrscr;

writeln(‘<<< program swalayan >>>’);

writeln(‘========================’);

lagi:=’Y';

while lagi=’Y’ do begin

write(‘masukan nomor program=’); readln(nomor);

case nomor of

Program Bahasa Pascal “Repeat – Until”

program statemenrepeat1;

uses wincrt;

var

i:integer;

begin

clrscr;

i:=1;

repeat

writeln(‘Bahasa Pemograman Pascal’);

i:=i+1;

until (i>5);

readln;

end.

Program Bahasa Pascal “While – Do”

program berikut ini akan menghitung nilai rata-rata dari sejumlah data yang akan dimasukkan. Jumlah dari data dimasukkan dan akan dilakukan perulangan sebanyak jumlah data tersebut untuk menanyakan nilai masing-masing data dan menghitung totalnya.

berikut sourcecode programnya.

Program Bahasa Pascal “Diskon”

Buat program untuk di sebuah toko. dengan ketentuan dibawah dengan menggunakan bahasa pascal.

1. jika pemebili > =100000 maka mendapatkan diskon 15%

2. jika pembeli < 100000 maka mendapatkan diskon 5%

berikut sourcecode programnya.

Program Bahasa Pascal “Case – of”

Buat program untuk menghitung

1. Luas dan keliling persegi panjang
2. Luas dan keliling bujur sangkar
3. Luas dan keliling lingkaran
4. Luas segitiga

Dengan menggunakan case of. Di sini ada 2 alternatif dalam pembutan pemrogramaan di atas. Berikut spourcecodenya.

Sekilas Perkembangan MS Office

Sejarah panjang perjalanan Microsoft Office hingga saat ini, banyak perubahan dan penambahan fasilitas sejak pertama kali diluncurkan tanggal 30 Agustus 1992. Waktu itu aplikasi perkantoran ini diberi nama Microsoft Office versi 3.0. Pada versi tersebut Microsoft Office menyertakan Microsoft Word sebagai pengolah kata, Microsoft Excel sebagai pengolah angka, Microsoft PowerPoint digunakan sebagai aplikasi presentasi yang handal dan Microsoft Mail digunakan untuk menerima dan mengirim email.

Program Bahasa Pascal_Konversi Suhu

Buat program untuk membuat tabel konversi dari nilai derajat celcius ke derajat fahrenheit dan dari celcius ke derajat kelvin dengan kelipatan 0.25. Dengan menggunakan bahasa pascal.

Berikut sourcecode programnya.

Rumus konversi suhu Celsius

Rumus konversi suhu Celsius
Konversi dari	ke	Rumus
Celsius	Fahrenheit	°F = °C × 1,8 + 32
Fahrenheit	Celsius	°C = (°F − 32) / 1,8
Celsius	kelvin	K = °C + 273,15
kelvin	Celsius	°C = K − 273,15
Rumus konversi lainnya Kalkulator konversi untuk satuan ukur suhu