Guten tag: Program sederhana pada pascal

program :

1. uses crt; (deklarasi unit create)

var (deklarasi variabel)

a,b,c: string [20]; (variabel a,b,c dengan tipe data string)

begin (bagian awal dimulainya program)

clrscr (clear screen atau membersihkan layar)

writeln ('masukan nama='); ( menampilkan data per baris, dengan hasil cetak masukan nama)

readln (a); (keterangan data per baris, dengan keterangan pada variabel a)

writeln ('masukan kelas='); ( menampilkan data per baris, dengan hasil cetak masukan kelas)

readln (b); (keterangan data per baris, dengan keterangan pada variabel b)

writeln ('masukan kelas='); ( menampilkan data per baris, dengan hasil cetak masukan npm)

readln (c); (keterangan data per baris, dengan keterangan pada variabel c)

writeln ('nama anda adalah=', a); ( menampilkan data per baris, dengan hasil nama anda adalah)

writeln ('kelas anda adalah=', b); ( menampilkan data per baris, dengan hasil kelas anda adalah)

writeln ('npm anda adalah=', c ); ( menampilkan data per baris, dengan hasil npm anda adalah)

readln; (menampilkan data)

end. (program selesai)

2. uses crt; (deklarasi unit create)

var (deklarasi variabel)

panjang : integer ; (variabel panjang dengan tipe data integer)

lebar : integer ; (variabel lebar dengan tipe data integer)

luas : real ; (variabel luas dengan tipe data real)

begin (bagian awal dimulainya program)

clrscr ; (clear screen atau membersihkan layar)

writeln ('nilai panjang='); (menampilkan data per baris, dengan hasil cetak nilai panjang)

readln (panjang); (keterangan data per baris, dengan keterangan pada variabel panjang)

writeln ('nilai lebar='); ( menampilkan data per baris, dengan hasil cetak nilai lebar)

readln (lebar);(keterangan data per baris, dengan keterangan pada variabel lebar)

luas := panjang * lebar; (mengitung variabel luas)

write ('luas :', luas :0:0); (menampilkan hasil pada baris yang sama)

readln ; (menampilkan data)

end. (program selesai)

Guten tag