Yuk belajar Pascal

1. Memunculkan tulisan

Latihan pertama saya belajar pascal itu memunculkan tulisan . Caranya  :

Program Uji_coba ;

uses wincrt ;

begin

writeln('Saya Senang Belajar Algoritma') ;

end .

 2. Menambahkan Konstanta

hm,,, terus menambahkan konstanta ... caranya :

Program Konstanta ;

uses wincrt ;

const

Nama     = 'Arief' ;

Berat     = 65 ;

Tinggi    = 165 ;

begin

writeln('Nama  : ', Nama) ;

writeln('Berat   : ', Berat,  'kg') ;

writeln('Tinggi  : ', Tinggi,  'cm') ;

end .
3.Menambahkan Variable

praktek algoritma yang ke tiga saya belajar menambahkan variable. caranya :

Program Variable ;

uses wincrt ;

var

nama    : string [20] ;

nim       : integer ;

jurusan  : string [3] ;

begin

write('Nama   : ' ) ; readln(nama) ;

write('Nim    : ' ) ; readln(nim) ;

write('Jurusan : ') ; readln(jurusan) ;

end.

pada nama dan jurusan ada tanda kurung kurawa yang menjelaskan bahwa pengisian pada kolom tersebut dibatasi jumblah karakternya . Sesuai dengan angka di dalam tanda kurung.

4. Mencari Luas

pertemuan ke empat saya belajar mencari Luas dalam hal ono luas lingkaran. dengan alasan ada penambahan konstanta juga. jadi penggabungan pertemuan ke 2 dan ke 3. caranya :

program Mencari_luas ;

uses wincrt ;

var

r     : integer ;

luas : real ;

const

phi = 3.14 ;

begin

write(Jari-jari   : ') ; readln(r) ;

luas : = phi * r * r

writeln('Luas  : ' , luas : 0 : 2 ) ;

end .

5. Menggunakan if then else & repeat until

penggunaan if then else & repeat caranya :

Program pemilihan_menu;

uses wincrt;

var

nama menu : char;

begin 

writeln('1.sate ayam') ;

writeln('2.sate kambing') ;

writeln('3.tongseng' ;

writeln('pilihlah menu yang anda inginkan') ;

repeat

write(nama menu : ',) ; readln(nama menu) ;

if nama menu = '1' then

writeln('sate ayam Rp.15.000') ;

else if nama menu = '2' then

writeln('sate kambing Rp.18.000') ;

else if nama menu = '3' then

writeln(tongseng Rp.20.000') ;

else

writeln(' maaf menu yang anda pesan tidak tersedia') ;

until nama menu > '4'

end .

nah semua itu pelajaran 5 kali pertemuan algoritma praktek saya  ... hihihihi klo ada kesalahan tolong koreksinyaa iiaa

maklum masiiiih new bIe sekali. :D