Jawaban Midterm Teori Reg B

1. Coding soal no 1 adalah sebagai berikut:

program mid1;

uses crt;

var Res,Rair,Ves,Vair,Massa : real;

begin

clrscr;

Res:=0.9;

Rair:=1;

massa:=(Res/Rair)*100;

writeln('bagian terendam adalah ' , Massa:3:2, '%');

readln;

end.

2. Coding soal no 2 adalah sebagai berikut:

program mid2;

uses crt;

var a,b,c,d,e,f,g,h,i : integer;

begin

clrscr;

writeln('==================');

writeln(' A B C D');

WRITELN('==================');

FOR I:=2 TO 6 DO

BEGIN

C:=2*i-1;

A:=C+2;

B:=SQR(C);

D:=(B-a-C)*-1;

WRITELN(A:5,B:5,C:5,D:5);

E:=E+A;

f:=F+B;

G:=G+C;

H:=H+D;

END;

WRITELN('================');

WRITELN(E:5,F:5,G:5,H:5);

READLN;

END.

3. Coding soal No 3 adalah sebagai berikut:

PROGRAM MIDR3;

USES CRT;

VAR TOTALBAYAR:REAL;

KELAS:CHAR;

DISKON:REAL;

NGINAP:REAL;

BEGIN

CLRSCR;

WRITELN('PILIH KELAS YANG ANDA INGINKAN');

WRITELN('1. KELAS VVIP');

WRITELN('2. KELAS LUX');

WRITELN('3. KELAS VIP');

WRITELN('4. KELAS BISNIS');

WRITELN('5. KELAS EKONOMI');

WRITE('KELAS YANG ANDA PILIH: '); READLN(KELAS);

CASE KELAS OF

'1':BEGIN

WRITE('LAMA MENGINAP : ');READLN(NGINAP);

TOTALBAYAR:=1500000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.20*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'2':BEGIN

WRITE('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=2500000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.20*TOTALBAYAR ELSE

IF NGINAP>4 THEN DISKON:=0.10*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'3':BEGIN

WRITE('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=1000000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.10*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'4':BEGIN

WRITELN('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=800000*NGINAP;

IF NGINAP>10 THEN DISKON:=0.05*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'5':BEGIN

WRITELN('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=145000*NGINAP;

IF NGINAP>14 THEN DISKON:=0.15*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

END;

WRITE(TOTALBAYAR:8:2);

READLN;

END.

4. Coding Soal No 4 adalah

Program midter4;

Uses crt;

VAR TOTALBAYAR:REAL;

KELAS:CHAR;

DISKON:REAL;

NGINAP:REAL;

Res,Rair,Ves,Vair,Massa : real;

a,b,c,d,e,f,g,h,i : Integer;

soal : char;

begin

clrscr;

write('pilih soal dikerjakan : ');readln(soal);

case soal of

'1':begin

clrscr;

Res:=0.9;

Rair:=1;

massa:=(Res/Rair)*100;

writeln('bagian terendam adalah ' , Massa:3:2, '%');

end;

'2':begin

writeln('==================');

writeln(' A B C D');

WRITELN('==================');

FOR I:=2 TO 6 DO

BEGIN

C:=2*i-1;

A:=C+2;

B:=SQR(C);

D:=(B-a-C)*-1;

WRITELN(A:5,B:5,C:5,D:5);

E:=E+A;

f:=F+B;

G:=G+C;

H:=H+D;

END;

WRITELN('================');

WRITELN(E:5,F:5,G:5,H:5);

READLN;

End;

'3':begin

WRITELN('PILIH KELAS YANG ANDA INGINKAN');

WRITELN('1. KELAS VVIP');

WRITELN('2. KELAS LUX');

WRITELN('3. KELAS VIP');

WRITELN('4. KELAS BISNIS');

WRITELN('5. KELAS EKONOMI');

WRITE('KELAS YANG ANDA PILIH: '); READLN(KELAS);

CASE KELAS OF

'1':BEGIN

WRITE('LAMA MENGINAP : ');READLN(NGINAP);

TOTALBAYAR:=1500000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.20*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'2':BEGIN

WRITE('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=2500000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.20*TOTALBAYAR ELSE

IF NGINAP>4 THEN DISKON:=0.10*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'3':BEGIN

WRITE('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=1000000*NGINAP;

IF NGINAP>7 THEN DISKON:=0.10*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'4':BEGIN

WRITELN('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=800000*NGINAP;

IF NGINAP>10 THEN DISKON:=0.05*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

'5':BEGIN

WRITELN('LAMA MENGINAP: ');READLN(NGINAP);

TOTALBAYAR:=145000*NGINAP;

IF NGINAP>14 THEN DISKON:=0.15*TOTALBAYAR ELSE DISKON:=0;

TOTALBAYAR:=TOTALBAYAR-DISKON;

END;

END;

WRITE(TOTALBAYAR:8:2);

End;

End;

Readln;

End.