190 likes | 352 Views
Dasar Komputer & Pemrog 2 A minggu 4. Minggu 4. STATMEN INPUT OUTPUT. • Dalam bahasa Pascal untuk keperluan input ( membaca input) digunakan identifier standar READ atau READLN . • Identifier standart ReadLn sedikit berbeda dengan Read.
E N D
DasarKomputer & Pemrog 2 A minggu 4 Minggu 4
STATMEN INPUT OUTPUT • Dalambahasa Pascal untukkeperluan input (membaca input) digunakanidentifier standar READ atau READLN. • Identifier standartReadLnsedikitberbedadenganRead. ReadLn : digunakanuntukmemasukkandata perbaris, artinyasetelahtombol Enter ditekan, makaakanganti baris, sedangkan Read : tidak ganti baris, masihdalambaris yang sama.
Var Sisi, panjang, luas : integer ; Begin Write (‘Masukkan sisi persegi panjang =’); Readln(sisi) ; Write (‘Masukkanpanjangpersegipanjang =’); Readln(panjang) ; Luas: = sisi x panjang ; Writeln(‘Luaspersegipanjangadalah’, Luas) ; End.
Output program : Masukkansisipersegipanjang = 10 data ygdiinputmelalui keyboard Masukkanpanjangpersegipanjang = 10 Luaspersegipanjangadalah 100
Sedangkanuntukkeperluanoutput (mencetakoutput) digunakan identifier StandartWRITEatauWRITELN PerbedaanWrite denganWriteLnadalah Write : menampilkanhasiltanpagantibarisdantampilanberikutnyaakandisambungdalambaris yang sama. WriteLn : digunakanuntukmenampilkantampilanperbaris, akangantibarisuntuktampilanberikutnya.
Bentukumumpenulisannya : READ (variabel input) ; Atau READLN (variabel output); WRITE (variabel output); WRITELN (variabel output); Contoh : Varnama : string{15}; Begin nama:= ‘Dewi’; write(‘nama : ‘); write(nama); End. Hasilnya : Nama : Dewi
Statement – Statement dalam Pascal : Statemen sederhana adalah statemen yang tidak mengandung statemen yang lainnya. Statemen terstruktur adalah statemen yang dibentuk dari komposisi beberapa statemen. Statemen adalah perintah pengerjaan program •Statemen pengerjaan adalah statemen yang digunakan untuk memasukan suatu nilai tertentu kedalam suatu variabel. Statement – Statement dalam Pascal : Statemensederhanaadalahstatemen yang tidakmengandungstatemen yang lainnya. Statementerstrukturadalahstatemen yang dibentukdarikomposisibeberapastatemen. Statemenadalahperintahpengerjaan program •Statemenpengerjaanadalahstatemen yang digunakanuntukmemasukansuatunilaitertentukedalamsuatuvariabel.
Contoh : nilai := 5; nilai := nilai + 1 D := B * B – 4*A*C; lulus := (nilai>65.5); benar := true; lolos := (kode = sandi); Statemenprosedur •Digunakanuntukmengaktifkansuatuprosedur yang telahdidefinisikanolehpemakai. Contoh : cari (nama, alamat); tambah (2, 3, z); urutkan (nilai); writeln (celcius);
Statemen GOTO •Statemen GOTO diawalidengankata GOTO yang diikutiolehpengenal label. Statemenjamak •Statemenjamakdigunakanuntuklebihdarisebuahstatemen yang harusdikerjakan. •Contoh : begin keterangan := ‘lulus’; komentar := ‘memuaskan’; end;
Statemenpenyeleksiankondisi Statemeninimenunjukanbahwasuatustatemenakandikerjakanbilasuatukondisiadalah BENAR. Jikakondisisalahmakastatemen yang lainnya / statemensetelahkatacadangan ELSE yang akandikerjakan. •Contoh : if kondisi1 then if kondisi2 then statemen1 tidakbolehdiakhiridgn ( ; ) krntitikkomamenunjukanakhirdrstatemen else statemen2;
Statemenperulangan •Statemeninidigunakanuntukmemprosesstatemen-statementertentuberulang kali. •Bilajumlahperulangandiketahui, makastatemen FOR yang tepatdigunakan. Sebaliknyabilajumlahperulanganbelumdiketahuimakastatemen WHILE atau REPEAT lah yang digunakan.
Statement For 1. Perulangan For. Perulangandenganstatemen For digunakanuntukmengulangstatemenatausuatublokstatemenberulang kali. Perulangandenganstatemen For dapatberupaperunlanganpositifdanperulangannega-tif. 2. Perulangan For positif Contoh Program : Program Perulangan_positif_untuk_satu_statement ; uses wincrt; vari :integer; begin clrscr; Writeln ('UCAPKAN THE SPIRIT OF 1997 7x....'); for i:= 1 to 7 do writeln (i,' THE SPIRIT OF 1997'); readln; end.
3. Contohdenganmenggunakanblok statement: Cara penulisannyadenganpadaawalblokdiawalidengan Begin danpadaakhirblokdiakhiridengan End; Contoh Program : uses wincrt; vari :integer; begin clrscr; Writeln ('KATAKAN THE SPIRIT OF 1997 4x....'); for i:= 1 to 4 do Begin writeln (i,' THE SPIRIT OF 1997 '); end; readln; end.
Statement Repeat Until 1. Repeat - Until. Repeat - Until digunakanuntukmengulang statement-statemenataublok statement sampai (Until) kondisi yang diseleksidi Until tidakterpenuhi. Sintakdari statement iniadalah : Contoh Program : uses wincrt; Var i : Integer; Begin clrscr; i:=0; Repeat inc(i); writeln(i); Until i=5; readln; End.
statement If 1. Percabangan If - Then Bentukstruktur If - Then adalahsebagaiberikut : If Kondisi Then Statement Ungkapanadalahkondisi yang diseleksioleh statement If. Bilakondisi yang diseleksiterpenuhi, maka statement yang mengi-kuti Then akandiproses, sebaliknyabilakondisitidakterpenuhi, maka yang akandiproses statement berikutnya. Misalnya : If Pilihan = 2 Then Begin{ jikakondisiterpenuhi, Yaitujikapilihan = 2 } End Else{ jikakondisitidakterpenuhi, yaitujikapilhan tidaksamadengan 2} Begin
Contoh Program : Uses wincrt; VarNilai : Real; Begin clrscr; Write ('JumlahNilai :'); Readln (nilai); { Pemasukan data } If nilai > 50 Then { seleksikondisivariabelnilai } Writeln('Lulus') { Dilaksanakanjikanilailebihbesardari 60 } Else Writeln('Tidak lulus'); { Dilaksanakanjikavariabelnilailebihkecildari 60 } readln; End.
Case – Of Struktur Case - Of mempunyaisuatuungkapanlogika yang disebutdengan selector dansejumlahstatemen yang diawalidengansuatu label permasalahan (case label) yang mempunyaitipesamadengan selector. Statement yang mempunyai case label yang bernilaisamadengan case label yang bernilaisamadengannilai selector akandiprosessedangstatemen yang lainyatidak. Bentukstrukturdari Case - Of: Case VariabelKondisi Of Case - Label 1; Statement 1; Case - Label 2; Statement 2; Case - Label 3; Statement 3; Case - Label 4; Statement 4; Case - Label n ; Statement n ; End ; { end dari case } Daftar Case label dapatberupakonstanta, range darikonstanta yang bukanbertipe real.
Contoh program : Program nilai; uses wincrt; Var n : char ; Begin clrscr; Writeln ('ISI DENGAN HURUF BESAR'); Writeln (''); Write ('NilaiNumerik yang didapatadalah:'); Readln (n); Case n Of 'A': Writeln ('SangatBaik'); 'B': Writeln('Baik'); 'C': Writeln('Cukup'); 'D': Writeln('Kurang'); 'E': Writeln('SangatKurang'); End; readln; End.