Program Array Pascal
Listing Program
uses crt;
var
Nim:array [1..10] of string;
Nama:array [1..10] of string;
Nilai:array [1..10] of string;
n,i:integer;
ulang:string;
begin
ulang:='ya';
while(ulang='ya')or(ulang='YA') do
begin
clrscr;
writeln;
writeln('
POLITEKNIK TANAH LAUT');
writeln('__________________________________');
writeln;
write('Masukkan Jumlah Pengimputan Data : ');
readln(n);
writeln;
writeln('MASUKKAN DATA MAHASISWA');
writeln('-----------------------');
writeln;
for i := 1 to n do
begin
writeln('DATA KE : ' ,i);
writeln('-------------');
write('NIM
: '); readln(nim[i]);
write('NAMA
: '); readln(nama[i]);
write('NILAI : '); readln(nilai[i]);
writeln;
end;
begin
writeln(' DATA MAHASISWA SEMESTER GANJIL
2012/2013');
writeln('__________________________________________');
writeln;
writeln('==========================================');
writeln(' NIM NAMA NILAI');
writeln('==========================================');
for i := 1 to n do
begin
writeln( nim[i]:3, nama[i]:13, nilai[i]:18);
end;
writeln('==========================================');
write('Apa Anda Ingin Mengulangi Data ? : ');
readln(ulang);
end;
end;
readln;
end.
Logika Program
Program ini dibuat untuk mendata nilai
mahasiswa Politeknik Tanah Laut, dalam program ini menggunakan pengulangan “For
and Do”. Pertama gunakan perintah “uses crt” untuk memanggil program
selanjutnya. Kemudian “var” untuk menentukan string yaitu NIM,NAMA dan
NILAI [1..10] maksudnya pengimputan data
hanya 1 sampai 10. Kemudian menentukan integer yaitu N dan i . kemudian
masukkan pengulangan juga sebagai string. kemudian tentukan output yang akan ditampilkan
dengan perintah “writeln” . Dan jika dijalankan kita dapat memasukkan data
nilai mahasiswa sesuka kita . Menggunakan pengulangan for i = 1 to n do ('Apa
Anda Ingin Mengulangi Data ? :...) jika tekan “ya” maka terjadi pengulangan
data. Setelah scrib selesai kemuian jalankan program.
Input dan Output Program
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar