1 / 28

PASCAL 2

PASCAL 2. Cara mempelajari bahasa pemrograman sebaiknya adalah menulis program dan menjalankannya. Kata kunci dan pengenal kunci. Deklarasi program Pengenal. Program. pengenal. ;. huruf. huruf. digit. Garis bawah. string. karakter. ‘. ‘. I/O Write Writeln Read readln.

kieu
Télécharger la présentation

PASCAL 2

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PASCAL 2

  2. Cara mempelajaribahasapemrogramansebaiknyaadalahmenulis program danmenjalankannya Kata kuncidanpengenalkunci

  3. Deklarasi program • Pengenal Program pengenal ; huruf huruf digit Garisbawah

  4. string karakter ‘ ‘

  5. I/O Write Writeln Read readln Program Lat1; Uses Wincrt; Begin Writeln (' Halo, Saya Belajar Pascal Lho.....'); Write (' Halo.... Saya Pascal'); Write (' Pascaaaaaaaaaal'); Writeln; Write (' H'); Write (‘a'); Write ('l'); Write ('l'); Write ('o'); Write (' '); Write ('Apa'); Write (' '); Writeln (' Kabar'); Readln; Writeln (' SebelumBelajar Baca Do''aDulu Yah.....'); Readln; End.

  6. I/O Write Writeln Read readln Program lat_1; Uses wincrt; var UmurKu : Byte; Keterangan : String; begin Write('Berapa umur anda ? '); Readln(UmurKu); Write('Komentaranda: '); Readln(Keterangan); Writeln; Writeln('Sayaberumur ',UmurKu,' tahun'); Writeln(Keterangan); end.

  7. TIPE,OPERATOR,EKSPRESI

  8. Type data 1.Ordinal types - Integer

  9. Type data - Char Type variabel yang bergunauntukpengolahan character ASCII, type character inipenulisannyaditandaidenganduabuahpetiktunggalseperti : 'A', '3','*',#7 untukmenyatakan' harusditulis'''‘ - Boolean Type varibale yang bergunauntukpengolahanhal yang hanyamempunyaiduaketentuanyaitubenar(TRUE) dan salah(FALSE) saja.

  10. Type data • 2.Real types Type variable yang begunauntukpengolahan data yang tidakbulat, untuk type real ini juga terbagi atas beberapa :

  11. Konstanta & Variabel A. Deklarasikonstanta Const <pengenal> = <konstanta>; a.Konstantanumerik b.Konstanta string dankarakter c.Konstantaboolean

  12. Uses wincrt; Const c1 = 197; {byte} c2 = -2; {shortint} c3 = 1050; {integer} c4 = 50678; {word} c5 = 3000000; {longint} Begin Clrscr; Writeln(‘bilangan byte = ‘ ,c1:4) End.

  13. Program konstanta_real; Uses wincrt; Const r1 = 3.62; r2 = -234567.0 r3 = 0.123; r4 = 1505.542; Begin Clrscr; Writeln(‘bilanganreal 1 = ‘ ,r1) End.

  14. Program konstanta_string_karakter; Uses wincrt; Const nim = ‘97.1.0657’; nama = ‘jihan’; alamat = ‘jl.Mawar 90’; blok = ‘c’; Begin writeln (nim = ‘ ,nim); End.

  15. Program konstanta_boolean; Uses Wincrt; const benar = true; salah = false; begin writeln('t and t = ' ,benar and benar ); writeln('t and f = ' ,benar and salah ); end.

  16. Operator

  17. Operator

  18. B. DeklarasiVariabel Var <rangkaianpengenal> : <tipe>; Program operator_pembanding_boolean; Uses wincrt; Var a,b : integer; Begin Clrscr; a:=5; b:=6; Writeln(‘nilai a = ‘ ,a:2); Writeln(‘nilai b =‘ ,b:2); Writeln(‘ a = b :’ ,a=b); Writeln(‘ a < b :’ ,a<b); Writeln(‘ a > b :’ ,a<b); Writeln(‘ a <= b :’ ,a<=b); Writeln(‘ a >= b :’ ,a>=b); Writeln(‘ a <> b :’ ,a<>b); End.

  19. C. ASSIGMENT Nama-variabel:=ekspresi; contoh p := 2; q:= 4; r:=p*4+q

  20. D. INPUT/OUTPUT OPERASI INPUT Read (var) Readln(var) OPERASI OUTPUT Write(bilangan) Write(pi) Write(100) Write(‘teknikinformatika’) Write(100*2-4) Write(sqr(bilangan)) Write(var) Write(‘harga = ‘ ,var)

  21. CONTOHOPERASIARITMATIKA Program kalkulator; Uses wincrt; Var n1,n2,jumlah,kurang : integer; Begin Write(‘masukkanbilangan 1 = ’); readln (n1); Write(‘masukkanbilangan2 = ’); readln (n2); Jumlah:=n1+n2; Kurang:=n1-n2; Writeln; Writeln(‘hasilpenjumlahanadalah ’ ,jumlah); Writeln(‘hasilpenguranganadalah ’,kurang); Readln; End. input proses output

  22. Jalannya program Masukkanbilangan 1 = 45 Masukkanbilangan 2 = 40 Hasilpenjumlahanadalah = 85 Hasilpenguranganadalah = 5

  23. TUGAS 1. Pahami proses input/output denganperintah write/writelndan read/readln 2. Pahamifungsivariabeldankonstanta 3. Pahamioperasiaritmatikadengan operator aritmatika 4. Pahamijalannyapogramdalamalirinputprosesoutput 5. Buatlah program sebagaiberikut

  24. Jalankancontohdibawahini Program konversi_rupiah; Uses wincrt; Var Dolar, kurs, rupiah : real; begin Write(‘masukkanjumlahdolaranda! = ’); readln(dolar); Write(‘masukkankurs rupiah hariini! = ’); readln(kurs); Rupiah:=dolar*kurs; Writeln; Writeln(‘jumlahuang rupiah anda = ‘ ,rupiah:3:3); End.

  25. 5. Pahamiperintaharitmatikadiv dan mod 7 div 2 = 3 7 mod 2 = 1 Jalankan program sebagaiberikut :

  26. Program konversi_menit_ke_jam; Uses wincrt; Var a,b,c,d:integer; Begin a:= 130; {permisalanjumlahmenit yang akandikonversi} b:= 60; {satuankonversi 1 jam = 60 menit} c:= 130 div 60; {menghasilkan ….jam} d:= 130 mod 60; {menghasilkansisamenitsetelahpengubahan jam} Writeln(‘130 menitadalah ’ ,c, ‘ jam ’ ,d, ‘ menit’); End.

  27. TUGAS BUATLAH PROGRAM KONVERSI • JARAK • Km ke m • Km ke mil • Km yard 2. SUHU • Celciuskefahrenheit • Celciuske kelvin 3. Konversiharimenjaditahun-bulan-hari (misal output = 1000 hari= 2tahun 9 bulan 0 hari)

  28. Masukkan Input =hari • Hari div 365  tahun • hari mod 365 sisahari • Sisahari div 30  bulan • Sisahari mod 30 hari • Tampilkan output Write(hari, ‘hariadlah ‘ ,tahun,‘ tahun’ …..)

More Related