......." ZODIAK-ZODIAK KAMU "..... | ||||||
saat ini kamu berada dalm tahap ingin sendiri, urusan ikatan semacam pacaran atau jadian belum terlintas di kepalamu. Asrmara : nggak papa jadi jomblo toh bukan sesuatu dosa besar... | Nama : Putri indarwati NIM : 120811030 Jurusan : T. informatika | |||||
SUKSES YA.......GOOD LUCK |
Sabtu, 01 Januari 2011
aquarius
Senin, 25 Mei 2009
record data buku
UseS crt;
Type
Data = record
Judulbuku : string[30];
NamaPenggarang : string[40];
penerbit : string[30];
End;
Var
DT : Data;
Begin
Clrscr;
With DT do
begin
Write('Judul Buku : ');readln(JuduLBuku);
Write('Nama Penggarang : ');readln(NamaPenggarang);
Write('Penerbit : ');readln(Penerbit);
Writeln;
Writeln('buku yang diinginkan : ',JudulBUKU);
Writeln('Penggarang Buku : ',NAMAPenggarang);
Writeln('Penerbit : ',Penerbit);
End;
READLN;
END.
Type
Data = record
Judulbuku : string[30];
NamaPenggarang : string[40];
penerbit : string[30];
End;
Var
DT : Data;
Begin
Clrscr;
With DT do
begin
Write('Judul Buku : ');readln(JuduLBuku);
Write('Nama Penggarang : ');readln(NamaPenggarang);
Write('Penerbit : ');readln(Penerbit);
Writeln;
Writeln('buku yang diinginkan : ',JudulBUKU);
Writeln('Penggarang Buku : ',NAMAPenggarang);
Writeln('Penerbit : ',Penerbit);
End;
READLN;
END.
Langganan:
Postingan (Atom)