program mhsw;
uses crt;
type mahasiswa=record
nama,nim,kelas:string;
end;
var m:array[1..41] of mahasiswa;
j,i:integer;
begin
write('Jumlah mahasiswa yang mendaftar : ');readln(j);
clrscr;
for i:=1 to j do
begin
writeln('Mahasiswa ',i,':');
write('Nama : ');readln(m[i].nama);
write('Nim : ');readln(m[i].nim);
write('Kelas : ');readln(m[i].kelas);
writeln;
writeln;
end;
clrscr;
writeln('==================================');
writeln;
writeln('DATA MAHASISWA ');
writeln;
writeln('==================================');
for i:=1 to j do
begin
writeln('Mahasiswa ',i,':');
writeln('Nama : ',m[i].nama);
writeln('Nim : ',m[i].nim);
writeln('Kelas : ',m[i].kelas);
writeln;
writeln;
end;
readln;
end.LOGIKA PEMROGRAMAN
Uses crt; adalah index atau kamus yang akan digunakan, ini wajib ada dalam turbo pascal.
Var adalah variabel yang akan digunakan dalam program, di bagian ini saya memasukkan jenis variabel dan type data yang akan digunakan. Misal: saya ingin membuat sebuah variabel yang menampilkan nama maka kita tinggal mengetik Nama:string;. Maksudnya adalah nama variabelnya ‘Nama’ dan type datanya ‘string’. String adalah type data kumpulan huruf atau kalimat. Variabel yang saya gunakan diatas type datanya ada 2. String artinya kalimat atau kata dan real artinya bilangan pecahan.
Di bagian ‘Begin’ adalah kumpulan barisan perintah yang harus dikerjakan oleh komputer, diakhir program harus selalu diakhiri dengan ‘End’.
‘write/writeln’ digunakan untuk menampilkan isi dari suatu nilai variabel di layar.
‘read/readln’ perintah ini digunakan untuk memasukkan (input) data dalam keyboard ke dalam suatu variabel.
gambar setelah di run dan di isi
0 komentar:
Posting Komentar