Jawaban nomor 4
{bil kelipatan 3 utk 1 s/d 20= 3, 6, 9, 12, 15, 18}
uses crt;
var a,i:byte;
begin
clrscr;
a:=3;
for i:=1 to 6 do
begin
write(a:3);
a:=a+3;
end;
readln;
end.
Jawaban nomor 5
{bil ganjil dari angka 1-100}
uses crt;
var a,i:byte;
begin
clrscr;
a:=1;
for i:=1 to 50 do
begin
write(a:3);
a:=a+2;
end;
readln;
end.
Jawaban nomor 6
{bilangan genap 1-50}
uses crt;
var a,i:byte;
begin
clrscr;
a:=2;
for i:=1 to 25 do
begin
write(a:4);
a:=a+2;
end;
readln;
end.
Jawaban nomor 9
USES CRT;
VAR ANGKA,SISABAGI:BYTE;
LAGI:CHAR;
BEGIN
CLRSCR;
LAGI:='Y';
WHILE LAGI='Y' DO
BEGIN
CLRSCR;
WRITE('MASUKKAN SEBUAH BILANGAN: ');READ(ANGKA);
WRITELN;
WRITE('BILANGAN YANG ANDA INPUT TERDETEKSI SEBAGAI BILANGAN ');
SISABAGI:=ANGKA MOD 2;
IF SISABAGI=0 THEN
WRITELN('GENAP')
ELSE WRITELN('GANJIL');
READLN;
WRITELN;
WRITE('INGIN COBALAGI [Y/T]: ');READ(LAGI);
READLN;
END;
WRITELN;
WRITELN('TERIMAKASIH SUDAH MENCOBA');
READLN;
END.
Jawaban nomor 10
USES CRT;
VAR SATU,DUA:INTEGER;
BEGIN
CLRSCR;
WRITE('BILANGAN 1: ');READ(SATU);
WRITE('BILANGAN 2: ');READ(DUA);
WRITE('HASIL PENJUMLAHAN: ');
WRITELN(SATU+DUA);READLN;
WRITE('HASIL PENGURANGAN: ');
WRITELN(SATU-DUA);
WRITE('HASIL PERKALIAN: ');
WRITELN(SATU*DUA);
WRITE('HASIL PEMBAGIAN: ');
WRITE(SATU DIV DUA);
READLN;
END.
Jawaban nomor 11
USES CRT;
VAR PI,R:LONGINT;
BEGIN
CLRSCR;
WRITE('JARI-JARI LINGKARAN: ');READ(R);
WRITELN;
WRITE('LUAS LINGKARAN: ');
READLN;
WRITE(R*R*22 DIV 7);
READLN;
END.
Jawaban nomor 12
Ø Tentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, lebar sisi dalam (lT): lT= 5.
Ø Hitung luas total, LTotal= pL x lL
Ø Hitung luas tengah, LTengah= pT x lT
Ø hasil luas yang diarsir, LArsir= LTotal-LTengah
uses crt;
var pL, lL, pT, lT, L_total, L_tengah: integer;
begin
clrscr;
pL:=18; lL:=12; pT:=10; lT:=5;
L_total:= pL*lL;
L_tengah:= pL*lL;
writeln('Luas total = ', L_total);
writeln('Luas tengah = ', L_tengah);
writeln('Luas yg diarsir= ', L_total-L_tengah);
readln;
end.
Jawaban no 13. A
uses crt;
var i, j: byte;
begin
clrscr;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
write(j:4); writeln(#10);
end;
readln;
end.
jawaban nomor 13. B
uses crt;
var A, i, j: byte;
begin
clrscr;
A:=2;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(A:4);
A:=A-1;
writeln(#10);
end;
readln
end.
jawaban nomor 13. C
uses crt;
var i, j: byte;
begin
clrscr;
for i:= 1 to 3 do
begin
for j:= 3 downto 1 do
write(j:4);
writeln(#10);
end;
readln
end.
Jawaban nomor 13. D
uses crt;
var i, j: byte;
begin
clrscr;
for i:= 1 to 4 do
begin
for j:= 1 to i do
write(j:4);
writeln(#10);
end;
readln
end.
Jawaban nomor 13. E
uses crt;
var i, j: byte;
begin
clrscr;
for i:= 1 to 4 do
begin
for j:= 4 downto i do
write(j:4);
writeln(#10);
end;
readln
end.
Jawaban 13. F
uses crt;
var A, i, j: byte;
begin
A:=1;
for i:= 1 to 4 do
begin
for j:=1 to i do
begin
write(A:4);
A:=A+2;
end;
writeln(#10);
end;
Jawaban Nomor 14
uses crt;
var x: array[1..5] of integer;
n,min,temp,i,j: integer;
begin
clrscr;
writeln('Program pengurutan bilangan');
writeln('____________________________');
writeln;
for n:=1 to 5 do
begin
write('Input bilangan ',n,': ');readln(x[n]);
end;
Jawaban nomor 15
USES CRT;
VAR UMUR,LAHIR:BYTE;
BEGIN
CLRSCR;
WRITE('NAMA : ');READLN;
WRITE('NIM : ');READLN;
WRITE('PRODI : ');READLN;
WRITE('TAHUN LAHIR : ');READ(LAHIR);
READLN;
WRITELN;
UMUR:=2010-LAHIR;
WRITE('UMUR : ',UMUR);
WRITELN;
WRITE('KETERANGANN : ');
IF UMUR<=5 THEN
WRITE('BALITA')
ELSE IF UMUR<=13 THEN
WRITE('ANAK-ANAK')
ELSE IF UMUR<=25 THEN
WRITE('REMAJA')
ELSE IF UMUR<=40 THEN
WRITE('DEWASA')
ELSE WRITE('SO TUA NGANA SAYANG');
READLN;
END.
Tidak ada komentar:
Posting Komentar