MATA KULIAH : ALGORITMA DAN PEMROGRAMAN KOMPUTER
DOSEN : M. YASIN, S.Si
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=b2-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=b2-4ac, dengan ketentuan D=0, D>0, dan D<0,>
