Translate

Rabu, 01 Mei 2013

Tugas Pascal (record)

Tugas record ini tugas yang terbaru dan tugas ini merupakan lanjutan dari tugas sebelumnya yaitu tentang menginput barang . koding yang akan guw berikan adalah koding latihan pada saat dosen jelasin dikelas . dan  koding ini BUKAN MERUPAKAN TUGAS !


uses crt;
type
mhs=record
npm: string[8];
nama:string[15];
kelas:string[5];
nilai:real;
end;
var
mahasiswa:mhs;

begin
clrscr;


with mahasiswa do
begin
write('NPM = '); readln(npm);
write('Nama = '); readln(nama);
write('Kelas = '); readln(kelas);
write('nilai = '); readln(nilai);
writeln;
writeln;
end;
writeln;
writeln;

with mahasiswa do
begin
writeln('Hasil ^_^');
writeln('Npm = ',npm);
writeln('Nama = ',nama);
writeln('Kelas = ',kelas);
writeln('Nilai = ',nilai:0:2);
end;
readln;
end.

2 komentar:

yang ada tulisan tugas selain artikel ini .

Posting Komentar