Category Archives: Pascal
Record
uses wincrt; type RecBarang=Record Nama:string[15]; Kualitas:Char; Harga:String; end; var Barang:RecBarang; begin clrscr; barang.nama:='Printer'; barang.kualitas:='A'; barang.Harga:='1000000'; writeln('Nama barang :',Barang.nama); writeln('Kualitas barang :',Barang.kualitas); writeln('Harga barang :',Barang.Harga); end.
Hasil:
Program Input
Ini sebenernya tugas q waktu smt 2 dulu, dari pada blog ku kosong mlompong
ya udah deh tak posting aja. hehe.. sp tau ada yang butuh. tul gak? he….
——————————————————————————————-
Uses wincrt;
Var
Nama,Nim,Alamat:string;
Begin
Write('Masukkan Nama : '); readln(Nama);
Write('Masukkan Nim : '); readln(Nim);
Write('Masukkan Alamat : '); readln(Alamat);
{Menampilkan hasil input data}
Writeln;
Writeln ('Hasil input data');
Writeln ('Nama : ',Nama);
Writeln ('Nim : ',Nim);
Writeln ('Alamat : ',Alamat);