Trend Teknologi part I

Assalamu alaikum warahmatullahi wabarakatuh. Selamat datang dan salam kenal buat para pemirsa sekalian :)

Pada kesempatan kali ini, newbie blogger ingin mengulas artikel mengenai trend tekno terkini. Artikel ini disadur langsung (pascopasberhadiah :P) dari detik.com dan didedikasikan sebagai media jawaban dari Tugas I Trend Teknologi oleh Kakak Dosen "Reza Maulana (RezaMaulanaM) on Twitter" :D
Langsung saja pada inti pembahasannya yah, Let's cekidott... :)

Fino Yurio Kristo - detikinet

Jumat, 28/09/2012 13:14 WIB

Fight! iPhone 5 vs Galaxy S III

Jakarta - Smartphone iPhone 5 dan Galaxy S III sering diperbandingkan. Galaxy S III mewakili kubu Android dan iPhone 5 mewakili iOS besutan Apple.

Galaxy S III dengan layar besar definisi tinggi, prosesor quad core dan baterai 2.100 mAh dinilai sebagai Android papan atas. Sedangkan iPhone 5 dinobatkan sebagai iPhone terbaik sejauh ini.

Bagaimana perbandingan detail antara keduanya? Berikut spesifikasi iPhone 5 ketika dipertandingkan dengan Galaxy S III seperti dikutip detikINET dari Gizmag, Jumat (28/9/2012).

Program Password Multi User dengan Pascal

Mochammad Rivai
mrivai@telkom.net


Baru.userid := user;
Baru.sandi := sandi;
AddToList(Baru);
Pass(1);
end;
end else Error(1);
end else Error(4);
End;
Procedure MinRec;
Begin
OpenPWL;
ASK('Login Password');
NoRec := 0;
NoRec := SearchList(User);
If NoRec > 0 then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then
begin
ASK('Record to delete');
NoRec := 0;
NoRec := SearchList(User);
If NoRec > 0 then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then
begin
DeleteRec(Pulih(Records.userid));
Pass(2);
end else error(2);
end else error(4);
end else error(2);
end else error(4);
End;
Begin
CheckBreak := False;
If Paramcount < 1 then
begin
OpenPWL;
ASK('Login Password');
NoRec := 0;
NoRec := SearchList(User);
If (NoRec > 0) and (Norec<=filesize(f)) then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then Pass(0) else Error(0);
end else error(0);
end else
Begin
if Paramstr(1) = '+' then PlusRec else
If paramstr(1) = '-' then MinRec else Error(5);
End;
End.