Membuat Kalkulator

assalamualaikum wr.wb
pagi ini saya akan memberikan latihan pw maaf maksudnya PD  ( Pemprograman Dasar) :D
kali ini saya akan memberikan code untuk membuat kalkulator. jadi bisa untuk mengitung.. :)
silahkan simak dengan baik
1. pertama buka aplikasi Turbo Pascal versi windows kalo yang belum punya silahkan download dijongol maksudnya disini.
2. silahkan buka aplikasinya
3. kemuadian buka baru dengan cara klik file lalu New

4. silahkan copy paste dibawah ini ( cara paste di turbo pascal menggunakan edit lalu paste. tidak bisa menggunakan kompinasi ctrl+v)

uses wincrt;

var

a,c,d : integer;

operator, z:char;

begin

repeat

clrscr;

Writeln('PETUNJUK:');

Writeln('1. Masukkan angka pertama');

Writeln('2. Masukkan operator (+, -, /, *)');

Writeln('3. Masukkan Angka kedua');

Writeln ('-------------------------------');

Writeln('PERHITUNGAN: ');

Writeln ('------------------------------');

Write('Masukkan angka: '); readln(a);

write('Operator: '); readln(Operator);

write('Angka ke dua: '); readln(c);

case operator of

'+': d:=a + c;

'-': d:=a - c;

'/': d:=a div c;

'*': d:=a * c;

end;

writeln('Hasil: ',d);

writeln;

Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

  end.

5. silahkan coba buka programnya dengan cara pilih run lalu run atau bisa menggunakan kompinasi keyboard ctrl+F9

6. jika berhasil anda bisa menyimpannya.

selesai..

selamat mencoba

Program Hitung Total

assalamualaikum wr.wb
sore ini saya akan memberikan latihan pw maaf maksudnya PD  ( Pemprograman Dasar) :D
kali ini saya akan memberikan code untuk menghitung jumlah harga barang ( kaya di toko toko gitu ).
silahkan simak dengan baik
1. pertama buka aplikasi Turbo Pascal versi windows kalo yang belum punya silahkan download dijongol maksudnya disini.
2. silahkan buka aplikasinya
3. kemuadian buka baru dengan cara klik file lalu New

4. silahkan copy paste dibawah ini ( cara paste di turbo pascal menggunakan edit lalu paste. tidak bisa menggunakan kompinasi ctrl+v)

program hitung_total;

uses wincrt;

var

 nama:string;

 jml:integer;

 harga,total:real;

begin

clrscr;

writeln ('<<< LATIHAN PASCAL >>');

write ('masukan nama barang='); readln (nama);

write ('masukan jumlah barang=');readln(jml);

write ('masukan harga barang=');readln(harga);

total:=jml*harga;

writeln('--------');

write ('jadi total harga adalan=',total=4:0);

end.

5. silahkan coba buka programnya dengan cara pilih run lalu run atau bisa menggunakan kompinasi keyboard ctrl+F9

6. selesai

tapi sebelumnya mohon maaf karena ada yang salah di programnya. nanti saya tanyakan kepada guru saya Pak.Edi 

bagi anda yang tau cara memperbaiknya silahkan memberi saran pada comen paka saya akan sangat berterimakasih karena sudah memperbaiki kesalahannya.

selamat mencoba

Program Sisi Miring

assalamualaikum wr.wb
sore ini saya akan memberikan latihan pw maaf maksudnya PD  ( Pemprograman Dasar) :D
kali ini saya akan memberikan code untuk menghitung sisi miring.
silahkan simak dengan baik
1. pertama buka aplikasi Turbo Pascal versi windows kalo yang belum punya silahkan download dijongol maksudnya disini.
2. silahkan buka aplikasinya
3. kemuadian buka baru dengan cara klik file lalu New

4. silahkan copy paste dibawah ini ( cara paste di turbo pascal menggunakan edit lalu paste. tidak bisa menggunakan kompinasi ctrl+v)

program sisi_miring;

uses wincrt;

var

 a,b,c:real;

begin

 clrscr;

 write('masukan sisi A=');readln(a);

 write('masukan sisiB=');readln(b);

 c:=sqrt (sqr(a))+(sqr(b));

 writeln('panjang sisi miring=',c:2:2);

end.

5. silahkan coba buka programnya dengan cara pilih run lalu run atau bisa menggunakan kompinasi keyboard ctrl+F9

6. jika berhasil anda bisa menyimpannya.

nb: sebelum menggunakan program ini sebaiknya anda mencoba untuk mengetes apakan hasilnya benar atau tidak. karena bisa jadi code yang dimasukan berbeda dengan rumus.. :D

selamat mencoba

Membuat aplikasi perkalian

assalamualaikum wr.wb
pagi ini saya akan memberikan latihan pw maaf maksudnya PD  ( Pemprograman Dasar) :D
kali ini saya akan memberikan code untuk membuat kalkulator sebenarnya sih hanya dapat menghitung perkalian saja. :v
silahkan simak dengan baik
1. pertama buka aplikasi Turbo Pascal versi windows kalo yang belum punya silahkan download dijongol maksudnya disini.
2. silahkan buka aplikasinya
3. kemuadian buka baru dengan cara klik file lalu New

4. silahkan copy paste dibawah ini ( cara paste di turbo pascal menggunakan edit lalu paste. tidak bisa menggunakan kompinasi ctrl+v)

Program Kalkulator_by_absen15;

uses wincrt;

var a,b,c:integer;

begin

     writeln('Aplikasi untuk menghitung perkalian');

     writeln('Masukkan angka pertama : ');read(a);

     writeln('Masukkan angka kedua   : ');read(b);

     c:=a*b;

     writeln('Hasilnya adalah : ',c);

end.

5. silahkan coba buka programnya dengan cara pilih run lalu run atau bisa menggunakan kompinasi keyboard ctrl+F9

6. jika berhasil anda bisa menyimpannya.

selesai..

untuk tambahan sebenarnya ada bug dalam script ini yaitu tidak bisa mengalikan lebih dari 5 digit. nanti saya tanyakan ke guru saya Pak.Edi  guru X TKJ 1kenapa bisa begini :D

selamat mencoba