- Beranda
- Komunitas
- Tech
- Programmer Forum
[ASK] Syntax Array Turbo Pascal
TS
waffenssoldier
[ASK] Syntax Array Turbo Pascal
malem gan/sis, ane mau tanya sesuatu nih..
syntax program ini termasuk array 2 dimensi atau 1 dimensi yah?
Terimakasih gan/sis dan kaskus..
syntax program ini termasuk array 2 dimensi atau 1 dimensi yah?
Code:
program data_mahasiswa;
uses crt;
var
nama : array[1..10]of string[20];
NPM : array[1..10]of string[20];
i,j : integer;
procedure input_data;
begin
clrscr;
write('Masukkan Jumlah Data Mahasiswa : '); readln(j);
for i := 1 to j do
begin
writeln('Data ke-',i);
write('Nama Mahasiswa :'); readln(nama[i]);
write('Masukkan NPM :'); readln(NPM[i]);
end;
end;
begin
input_data;
clrscr;
writeln('*************************************************');
writeln('No. | Nama Mahasiswa | NPM |');
writeln('*************************************************');
for i := 1 to j do
begin
writeln(i:1, nama[i]:20, NPM[i]:25);
end;
writeln('*************************************************');
readln;
end.
Terimakasih gan/sis dan kaskus..
0
642
1
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan