Selasa, 08 November 2011
Dalam sebuah wawancara dengan wartawan Bloomberg, Charlie Rose, Zuckerberg menyebutkan bahwa Steve Jobs mau memberi saran bagaimana cara membangun perusahaan yang lebih baik dari segala sisi.
"Sebenarnya saya masih banyak pertanyaan kepada beliau," kata Zuckerberg seperti dikutip Bloomberg, Senin (7/11/2011).
Zuckerberg masih ingat pesan-pesan Jobs bahwa "Membangun sebuah tim yang ada di sekitarmu sama pentingnya dengan membangun kualitas dirimu". Zuckerberg saat ini menjadi orang terkaya nomor 14 versi majalah Forbes di Amerika Serikat. Dia merasa beruntung mendapat petuah-petuah langsung dari orang nomor satu di Apple.
Berdasarkan buku biografi Steve Jobs, petinggi Apple yang sudah malang melintang di dunia TI selama 35 tahun ini memang sangat peduli kepada orang lain, terutama dalam memberikan saran-saran mengenai teknologi. Bahkan dalam sebuah wawancara khusus, Jobs justru mengagumi Zuckerberg karena telah membangun Facebook, ketimbang menjualnya.
"Saya telah banyak melihat situs jejaring sosial, tapi saya tidak melihat yang lebih bagus dari Facebook. Facebook telah mendominasi, saya kagum dengan Zuckerberg," kata Jobs dalam biografinya.
Selain itu, Jobs juga mengatakan bahwa dia hanya mengetahui sekelumit tentang Zuckerberg. Kekagumannya terutama saat Facebook tidak dijual, tetapi bisa dipakai secara gratis di seluruh dunia.
Bahasa Pemrograman PASCAL
Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.
Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string, User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar. Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan. Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang. Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami. Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).
Script program PASCAL
Program buatan_Mr_Yoga;
uses crt;
var
sandi1, sandi2, sandi3 : string;
begin
clrscr; textbackground(red);textcolor(10+blink);
clrscr;
sandi1:='Yoga';
writeln('mohon maaf numpang lewat');
writeln('untuk melanjutkan keprogram berikutnya');
writeln('ketikkan password anda :........');
while sandi1<>sandi2 do readln(sandi2);
keypressed;
clrscr;textbackground(black);textcolor white);
clrscr;
writeln('ulangi sekali lagi password anda, biar mantap gitu bos :.......');
while sandi2<>sandi3 do readln(sandi3);
writeln('Alhamdulillahi');
writeln('benar bos! matur nuwun sampai ketemu lagi, maaf ya, jangan marah');
writeln('lanjutkan keprogram berikutnya, jangan lupa tekan Enter yo');
clrscr;window(50,50, 40,40);textbackground(15);textcolor(red+blink);clrscr;
writeln('Wassalamualaikum');
writeln('');
readln;
end.
script 2
program menampilkan_bilangan;
uses crt;
var
batas,I:integer;
begin
clrscr;textcolor(6);textbackground(blue);clrscr;
write('masukkan jumlah angka yang ditampilkan : ');
readln(batas);
write('Ditampilkan ',batas,' angka, seperti dibawah ini ');
for I:=5 to batas do
begin
writeln(I);
end;
readln;
end.
Script 3 Statement Repeat...until
uses crt;
var
i:integer;
Begin
clrscr; textbackground(red);textcolor(white);
clrscr;
i:=1;
repeat
write('Program ');
i:=i+2;
until(i>2);
readln;
clrscr; textbackground(red);textcolor(white);
i:=1;
repeat
write('Iki ');
i:=i+2;
until(i>2);
readln;
clrscr; textbackground(red);textcolor(white);
i:=1;
repeat
write('seng ');
i:=i+2;
until(i>2);
readln;
clrscr; textbackground(red);textcolor(white);
i:=1;
repeat
write('Nggawe ');
i:=i+2;
until(i>2);
readln;
clrscr; textbackground(red);textcolor(white);
i:=1;
repeat
writeln('Yoga ');
writeln('Ojo lali Enter yo gawe Exit Ok Coy');
i:=i+2;
until(i>2);
readln;
end.
Your IP
Sign by Danasoft - For Backgrounds and Layouts
Tidak ada komentar:
Posting Komentar