Assalamualaikum
Masih tentang Turbo Pascal. Pelajaran kali ini ialah membuat coding input data off. Data off disini saya maksudkan user tidak dapat menginput data yang sama dengan data-data sebelumnya. Misalkan Data pertama adalah 8 , maka user tidak dapat menginput data 8 sebagai data kedua. Data off ini sering digunakan dalam program untuk menentukan username atau indeks akun tertentu.
Slide dibawah saya lampirkan untuk lebih memahami cara kerja komputer pada coding Data off yang kami buat.
Coding
program tugas;
uses wincrt;
var
n,i,j: integer;
x: array[1..100]of integer;
begin
clrscr;
write('Msukan Bnyak Data:'); readln(n);
for i:=1 to n do
begin
write('masukan data ke ',i,':'); readln(x[i]);
for j:=1 to i-1 do
if x[i]=x[j] then
begin
repeat
writeln('data sudah ada');
write('masukan data ke ',i,':'); readln(x[i]);
until (x[i]<>x[j]);
end;
End;
End.
Selamat Mencoba :) Semoga Bermanfaat :)
Sign up here with your email
ConversionConversion EmoticonEmoticon