Sebelum
melakukan program looping pertama harus membuka aplikasi yang namanya turbo
pascal setelah di buka saya mulai dengan berbagai tahap – tahap:
Tahap :
1.
Ketik judul dengan cara ketik “ program looping
“ setelah itu ketik,
2.
Uses wincrt; , kenapa saya memakai uses wincrt;
karena saya memakai aplikasi dari turbo pascal for windows,,setelah ketik yang
tadi lalu selanjutnya,
3.
Lalu ketik variabelnya “ a:integer; “ lalu
setelah itu,,
4.
Ketik begin untuk memulai program nah setelah
itu tekan enter,setelah tekan enter lalu ketik “ write(‘ masukkan angka:
‘);readln(a); ,lalu selanjutnya ketik,,
5.
“ if a mod 2=0 then “ yang dimaksud ini ialah jika “a” di bagi
dua hasilnya 0 maka tulis if a mod 2=0 then,selanjutnya ketik write(‘angka
tersebut genap’) selanjutnya,
6.
Ketik else fungsi else “pilihan” yang dimaksud
pilihan yaitu jika “a” di bagi dua hasilnya 0 maka bilangan tersebut genap,jika
bukan 0 bilangan tersebut ganjil,,nah selanjutnya
7. Ketik write( ‘ angka tersebut
ganjil ‘); stelah ketik itu lalu selanjutnya ketik readln; untuk membaca
program,setelah itu ketik End. Untuk mengakhiri program kodingnya..lalu klik
Run untuk menjalankan program. Kali ini percabaan membuat program
looping,sebelum mengerjakan dahulukan membuka free pascal IDE,setelah itu masuk
ke tahap – tahap berikutnya:
Tahap :
1.
Dahulukan mengetik judul caranya “program
looping;” setelah itu tekan enter,lalu ketik
USES CRT; fungsi ini ialah membuat refrensi objek ke CRT,setelah itu
tekan enter,lalu
2.
Ketik Var atau disebut juga variabel,masukan
variabelnya dengan cara ketik “var a,b,c,d:integer; lalu ketik begin untuk
memulai program lalu ketik “CLRSCR” fungsi ini untuk membersihkan jendela,lalu
stelah itu ketik rumus,
3.
Ketik for a:=1 to 5 do lalu enter dan ketik
begin,setelah itu ketik for b := 1 to a do write (b, ‘ ‘ );writeln;end; lalu
keti, begin lagi untuk mrnjalankan
program setelah itu,
4.
Ketik for c := 4 downto 1 do,,yang dimaksud ini
yaitu dari baris pertama sampe ke 4 dalam 1 kolom,setelah itu ketik begin untuk
memulai lagi,selanjutnya ketik for d := 1 to c do write (d,’ “);writeln;end;
setelah itu ketik readln; untuk membaca program,lalu
5.
Ketik End. Untuk mengakhiri kodingan dan untuk
menjalankannya ketik run, Untuk membuat program hitung_harga
yaitu yang di dahulukan membuka aplikasi turbo pascal for windows setelah di
buka baru lah memulai tahap – tahapnya:
Tahap :
1. Mengetik
judul terlebih dahulu ketik judul “ program hitung_harga “ setelah mengetik
judul berikutnya ketik uses wincrt; setelah mengetik yang tadi lalu tekan enter
lalu,
2. Ketik
var nya nama:string; ,lalu ketik Harga1,harga2,diskon,potongan:real; ,setelah
mengetik variabelnya lalu selanjutnya,
3. Ketik
begin untuk memulai program lalu ketik write(‘masukkan nama anda: ‘
);readln(nama);
Lalu ketik writeln; 2x karena untuk
memberi jarak pada saat output nanti lalu ketik writeln(‘selamat’,nama,’ anda
aka mendapat diskon 20% apabila belanja di atas 100000’); lalu berikutnya ketik
lagi write (‘berapa total belanja anda?’);readln(harga1); lalu selanjutnya
4. Ketik
if harga>100000 then lalu ketik diskon := 20/100 yang dimaksud ini ialah
jika harga harga1 diatas 100.000 maka mendaptkan diskon 20% nah setelah itu,
5. Ketik
else lalu enter ketik diskon:=0; yang dimaksud ini ialah jika belanja di bawah
100.000 maka tidak mendapatkan diskon
selanjutnya ,
6. Ketik
rumusnya yaitu dengan cara ketik potongan:=harga1*diskon; maksud tersebut ialah
variabel potongan di dapat dari harga 1 di kali diskon,,,setelah itu di ketik
harga2:=harga1 – potongan; maksud tersebut ialah variabel harga2 di dapat dari
harga 1 di kurang potongan,selanjutnya,
7. Ketik
writeln(‘anda telah berbelanja sebanyak Rp;,harga1:10:2); lalu ketik lagi
writeln(‘anda mendapat potongan:10:2); ,lalu ketik lagi writeln(‘maka harga
yang harus anda bayar adalah Rp’,harga2:10:2); . yang dimaksud 10:2 ialah 10
angka di belakang koma,2 angka di depan koma,,selanjutnya ketik End.untuk mengakhiri
kodingan tersebut setelah itu klik Run untuk menjalankan program yang dibuat.
Tidak ada komentar:
Posting Komentar