INJECT FLEXI KE PDA AUDIOVOX THERA

Nih kita berbagi pengalaman untuk injek flexi, fren ato lainnya. Ini adalah hasil pengalamanku sendiri dengan berbagai susah payah mencari informasi cara injek flexi. Aku sekarang pakai flexi Jember dengan kode 0331xxxxxxx.

Jangan kawatir deh insya allah cara ini berhasil dan gak bayar kok, gak seperti lainnya.

Read More

Soal UAS Ganjil 2007/2008

MATA KULIAH : ALGORITMA DAN PEMROGRAMAN KOMPUTER

DOSEN : M. YASIN, S.Si

SOAL :

1. Lengkapilah List Program berikut ini.

{Program Menentukan Luas Bujur Sangkar Atau Persegi Panjang}

Uses ……;

Var

j : string;

Ls, ……,l : integer;

……

write('Masukkan Jenis Persegi = ');{B jika bujursangkar/ P jika persegi panjang}

readln(……);

if j='B' ……

begin

Write('Masukkan Panjang Sisi = ');

readln(p);

Ls:=p*p;

…… ('Luas Bujur Sangkar adalah ',Ls);

……

else

……j='P' then

…… ('Masukkan Panjang = ');

readln(p);

Write('Masukkan Panjang = ');

…… (l);

Ls:=p*l;

Write('Luas Persegi Panjang adalah ', ……);

……

2. Perhatikan dan Perbaiki List Program berikut ini.

{Menentukan Akar Kuadrat sebarang Bilangan}

Var

Program Akar Bilangan;

Uses wincrt

a:=real;

begin;

write('Masukkan sebarang bilangan = ');

write('Akar kuadrat dari ',a,' adalah ', sqrt(a)).

readln(a);

end;

3. Buatlah listing Program Pascal untuk menentukan Akar-akar persamaan kuadrat dengan rumus ABC dan tentukan pula jenis akar-akarnya dengan menggunakan diskriminan D=b²-4ac, dengan ketentuan D=0, D>0, dan D<0,>

KELAS TRANSFER

MATA KULIAH : ALGORITMA DAN PEMROGRAMAN KOMPUTER

DOSEN : M. YASIN, S.Si

SOAL :

1. Lengkapilah List Program berikut ini.

{Program Menentukan Luas Bujur Sangkar Atau Persegi Panjang}

Uses WinCrt;

……

…… : string;

……, ……,l : integer;

Begin

…… ('Masukkan Jenis Persegi = ');{B jika bujursangkar/ P jika persegi panjang}

readln(j);

if ……='B' then

……

Write('Masukkan Panjang Sisi = ');

…… (p);

Ls:=p*p;

Write('Luas Bujur Sangkar adalah ',Ls);

end

else

……j='P' then

Write ('Masukkan Panjang = ');

readln(p);

…… ('Masukkan Panjang = ');

…… (l);

……:=p*l;

Write('Luas Persegi Panjang adalah ', ……);

……

2. Perhatikan dan Perbaiki List Program berikut ini.

{Menentukan Hasil Pangkat ke-2 sebarang Bilangan}

Var

Program Pangkat Dua Bilangan;

Uses wincrt

a:=real;

begin;

write('Masukkan sebarang bilangan = ');

write('Pangkat Dua dari ',sqr(a),a,' adalah ').

readln(a).

end;

3. Buatlah listing Program Pascal untuk menentukan Akar-akar persamaan kuadrat dengan rumus ABC dan tentukan pula jenis akar-akarnya dengan menggunakan diskriminan D=b²-4ac, dengan ketentuan D=0, D>0, dan D<0,>

Read More