Saya akan mencoba membuat array 1 Dimensi
dengan Opsi Y/T
Berikut contohnya,,,
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah Procedure Faktorial dan hasilnya:
jangan lupa klik 'play' atau tekan F9 pada keyboard,,
Gambar diatas adalah
contoh opsi Y 5kali dan diakhiri opsi T
untuk opsi T
Gambar diatas adalah contoh opsi Y 2kali dan diakhiri opsi T
Perintah intinya :
i:=1;
tot:=1;
var
tot,i:integer;
lagi:string;
rata:real;
nilai:Array[1..10]
of integer;
begin
i:=1; tot:=1;
Repeat
write('Masukkan nilai ke',i,'=');
readln(nilai[i]);
tot:=tot+nilai[i];
i:=i+1;
write ('Lagi? Y/T');readln(lagi)
until(lagi='T')or (lagi='t') ;
rata:=tot/(i-1);
writeln('Rata-rata Nilai =',rata:6:1);
readln;
end.
***selamat
mencoba***
