# Input dan Output - PowerPoint PPT Presentation

1 / 11

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.

I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.

Input dan Output

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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.

- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

## Input dan Output

Memasukkan Data

Device : Keyboard

Prosedurstandar Turbo Pascal untukmemasukkan data :

Read : memasukkan data perbaris, tidakgantibaris

ReadLn : memasukkan data perbaris, setelah enter akangantibaris

### Contoh :

Program Masuk1(Layar);

Var

A, B : integer;

C : Real;

D : string[10];

E : char;

Begin

(* memasukkan data untukmasing-masingvariabel *)

(* 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

### Tampilansewaktumemasukkan data

Program Masuk2(input,output);

(* program konversisuhudariCelciuske Fahrenheit *)

Var

C, F : real;

Begin

Write(‘BerapaCelcius ? ‘);

F := 1.8 * C + 32;

WriteLn;

End.

Bila program inidijalankanakandidapathasil:

BerapaCelcius ? 10

### 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

### 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

### Default TampilanTipe REAL

Tampilannilai real menempatiposisilebar 18 digit denganmenggunakanbentukeksponensial. Untuknilai real positifataunolakanditampilkandenganbentuk :

bd.ddddddddddEsdd

Untuknilai real negatifakanditampilkandenganbentuk :

-d.ddddddddddEsdd

Dengan:

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

### 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

### 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

### 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

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