1 / 11

Input dan Output

Input dan Output. Memasukkan Data Device : Keyboard Prosedur standar Turbo Pascal untuk memasukkan data : Read : memasukkan data perbaris , tidak ganti baris ReadLn : memasukkan data perbaris , setelah enter akan ganti baris. Tipe variabel dan data yang diijinkan.

taji
Download Presentation

Input dan Output

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. Input dan Output Memasukkan Data Device : Keyboard Prosedurstandar Turbo Pascal untukmemasukkan data : Read : memasukkan data perbaris, tidakgantibaris ReadLn : memasukkan data perbaris, setelah enter akangantibaris

  2. Tipevariabeldan data yang diijinkan

  3. Contoh : Program Masuk1(Layar); Var A, B : integer; C : Real; D : string[10]; E : char; Begin (* memasukkan data untukmasing-masingvariabel *) ReadLn(A); ReadLn(B); ReadLn(C); ReadLn(D); ReadLn(E); (* menampilkan data yang dimasukkan *) WriteLn; WriteLn(‘A = ‘,A, ‘B = ‘,B ‘C = ‘,C); WriteLn(‘D = ‘,D); WriteLn(‘E = ‘,E); End. Bila program inidijalankan, pertama kali menunggu input yang akanandamasukkan, sebanyak 5 buah input. 50 12345 12345 HALO HALOJUGA Setelahsemua data dimasukkan, akanditampilkan : A = 50 B = 12345 C = 1.2345000000E+04 D = HALO E = H

  4. Tampilansewaktumemasukkan data supayalebihinteraktif, makadapatditampilkanpenjelasantentang data yang akandimasukkan. UntukmaksudinisebelumprosedurstandarReadatauReadLndapatdigunakanprosedurstandarWriteterlebihdahulu. Program Masuk2(input,output); (* program konversisuhudariCelciuske Fahrenheit *) Var C, F : real; Begin Write(‘BerapaCelcius ? ‘); ReadLn(C); F := 1.8 * C + 32; WriteLn; WriteLn(C, ‘Celciusadalah ‘,F, ‘Fahrenheit’); End. Bila program inidijalankanakandidapathasil: BerapaCelcius ? 10 1.0000000000E+01 Celciusadalah 5.0000000000E+01 Fahrenheit

  5. MenampilkanHasil Write WriteLn Program Tampil2(output); Var Nama : string[15]; Begin Nama := ‘Dewi’; WriteLn(‘Nama : ‘); WriteLn(Nama); End. Setelahdijalankandidapat: Nama : Dewi Program Tampil1(output); Var Nama : string[15]; Begin Nama := ‘Dewi’; Write(‘Nama : ‘); Write(Nama); End. Setelahdijalankandidapat: Nama : Dewi

  6. Default TampilanTipe Integer Tampilannilai integer akanditampilkandenganbentuk : ddddd Dan tidakmengandung blank dimuka (leading blank) maupun blank dibelakang (trailing blank) Program Tampil3(output); Var Bulat1, Bulat2 : integer; Begin Bulat1 := 123; Bulat2 := 12345; WriteLn(Bulat1,Bulat2); End. Hasil: 12312345 Nilai integer ke 2 Nilai integer ke 1

  7. Default TampilanTipe REAL Tampilannilai real menempatiposisilebar 18 digit denganmenggunakanbentukeksponensial. Untuknilai real positifataunolakanditampilkandenganbentuk : bd.ddddddddddEsdd Untuknilai real negatifakanditampilkandenganbentuk : -d.ddddddddddEsdd Dengan: b adalah blank d adalah digit s adalahtandapositifataupunnegatif - adalahtandanegatif Program Tampil4(output); Var Pecahan1, Pecahan2 : real; Begin Pecahan1 := 123.45; Pecahan2 := -123.45; WriteLn(Pecahan1,Pecahan2); End. Hasil: 1.2345000000E+02-1.2345000000E+02

  8. Default Tampilan Tipe CHAR : no leading blank and trailing blank Tipe STRING : no leading blank and trailing blank Program Tampil6(output); Var String1, String2 : String[10]; Begin String1 := ‘BAKSO’; String2 := ‘SOBEK’; WriteLn(String1,String2); End. Hasil: BAKSOSOBEK Program Tampil5(output); Var Huruf1, Huruf2 : Char; Begin Huruf1 := ‘A’; Huruf2 := ‘B’; WriteLn(Huruf1,Huruf2); End. Hasil: AB

  9. TAMPILAN TERFORMAT Paramater CH:N : format tampilan Char selebar N karakterdengan blank dimukasebanyak N-1 Paramater S:N : format tampilan String denganlebar N karakter Program Tampil8(output); Var Karakter : String[6]; Begin Karakter := ‘Pascal’; WriteLn(‘Bahasa : ‘,Karakter:10); End. Hasil: Bahasa : Pascal Program Tampil7(output); Var Ket1, Ket2 : Char; Begin Ket1 := ‘A’; Ket2 := ‘S’; WriteLn(Ket1:5,Ket2:3); End. Hasil: A S 3 karakter 10 karakter 5 karakter

  10. TAMPILAN TERFORMAT Paramater I:N : format tampilan integer denganlebar N digit Paramater R:N : format tampilannilainumerik real denganlebar N digit rata sebelahkanan Program Tampil10(output); Var Nilai: Real; Begin Nilai := 123.45; WriteLn(‘Nilai Real = ‘ ,Nilai:12); End. Hasil: Nilai Real = 1.23450E+02 Program Tampil9(output); Var N: Integer; Begin N := 275; WriteLn(Jumlah Data = ‘ ,N:5); End. Hasil: Jumlah Data = 275 5 digit 12 digit

  11. Paramater R:N:M : format tampilannilainumerik real denganlebar N digit rata sebelahkanan, dengan m digit angkadibelakangkomatidakdalambentukeksponensial Program Tampil11(output); Var Nilai: Real; Begin Nilai := 123.45; WriteLn(‘Nilai Real = ‘ ,Nilai:12:3); End. Hasil: Nilai Real = 123.450 3 digit dibelakangtitikdesimal 12 digit panjangkeseluruhan

More Related