PEMROGRAMAN PASCAL : CARA MEMBUAT ARRAY
BInggung ya nyari program array pascal ., ni buat jadiin referensi kali aja antum maba baru ada referensi wkwkkw
nih coodingnya bre
Berikut adalah coding pada program pascal :
Program araycampurfortodorandi;
uses crt;
var
datasiswa : array[1..10] of string[20];
data,a :integer ;
begin
clrscr;
writeln(' ===================================================== ');
writeln(' SELAMAT DATANG PARA SISWA SMPN 1 JAYA SELALU ');
writeln('INI ADALAH PROGRAM PENDAFTARAN SISWA SMPN 1 JAYA SELALU');
writeln(' ===================================================== ');
writeln('');
writeln( 'Masukan Banyaknya Gelombang Pendaftaran '); readln (a);
for data:=1 to a do
begin
writeln('Data Siswa Pada Gelombang ',data);
write(''); readln(datasiswa[data]);
end;
writeln('===================================================== ');
for data:=1 to a do
begin
writeln('| Gelombang Ke ',data,' Yaitu ',datasiswa[data],' Siswa |');
writeln('===================================================== ');
end;
writeln('===================================================== ');
writeln('===CopyRight Randi Wicaksono NIM 202043501807 S1N === ');
writeln('====UNIVERSITAS INDRAPRASTA PGRI===================== ');
readln;
end.
gitu aja ya bre wkwkwk selamat berkreasi
Comments
Post a Comment