Selasa, 08 November 2011

Iphone 4S bikin pendapatan HTC turun.

KOMPAS.com - Pendapatan vendor smartphone asal Taiwan, HTC mengalami penurunan 2,81 persen bulan Oktober 2011, akibat kalah bersaing dengan penjualan iPhone.

Pendapatan konsolidasi HTC hingga Oktober 2011 mencapai 1,46 miliar dollar AS, turun 2,81 persen dari September 2011. Berdasarkan laporan Commercial Times, harian berbahasa China di Taiwan, menyebutkan penurunan pendapatan selama Oktober ini lebih disebabkan karena masyarakat China hingga Taiwan sedang senang membeli produk Apple.

Penurunan pendapatan HTC itu sudah diprediksi oleh beberapa analis sebelumnya. HTC diprediksi hanya akan menjual 12 juta-13 juta ponsel, turun dari 13,2 juta ponsel pada tahun 2010.

"Itulah dampak dari kehadiran dan penjualan iPhone 4S," kata analis Baird, William Power.

Analis RBC Capital, Mike Abramsky juga telah mengingatkan sebelumnya bahwa penjualan iPhone masih sangat kuat di pasar. Tentu saja akan memotong pangsa pasar HTC. "Itupun belum bersaing dengan penjualan Blackberry," tambah Abramsky.

Meski sebulan mengalami penurunan, pendapatan HTC selama setahun justru naik 36,01 persen. Bahkan, pendapatan selama Januari hingga Oktober 2011 malah naik 97,16 persen.

Untuk mempertahankan pendapatan, HTC telah mempersiapkan delapan ponsel pintar yang akan diinjeksi dengan sistem operasi Android 4.0 Ice Cream Sandwich pada awal 2012 mendatang. Salah satu ponsel pertama yang akan diluncurkan adalah HTC Vivid.
Diposting oleh di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

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).

Download Turbo Pascal 7.0

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