SOAL DAN JAWABAN ALGORITMA NO 31 - 48

  

 

  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 







 




 
 





 

 

 



  

 

 


 



 
  

Soal: Selisih 2 waktu

Buat program untuk menghitung selisih waktu antara 2 waktu, dengan masukan waktu adalah dalam bentuk (jam, menit, detik) dan keluaran dalam detik!

Contoh tampilan program:

INPUT:

Waktu1= 2:30:45

Waktu2= 2:31:20

OUTPUT:

Selisih waktu= 35 detik

Jawab:

uses crt;

var

        jam1, jam2, menit1, menit2, detik1, detik2, selisih: real;

begin

clrscr;

        writeln('Masukkan Jam Pertama: ');

        readln(jam1);

        writeln('Masukkan Menit Pertama: ');

        readln(menit1);

        writeln('Masukkan Detik Pertama: ');

        readln(detik1);

        writeln('Masukkan Jam Kedua: ');

        readln(jam2);

        writeln('Masukkan Menit Kedua: ');

        readln(menit2);

        writeln('Masukkan Detik Kedua: ');

        readln(detik2);

        jam1 := jam1 * 3600;

        menit1 := menit1 * 60;

        jam2 := jam2 * 3600;

        menit2 := menit2 * 60;

        detik1 := jam1 + menit1 + detik1;

        detik2 := jam2 + menit2 + detik2;

        writeln('Total detik Pertama adalah: ', detik1);

        writeln('Total detik Kedua adalah: ', detik2);

        if (detik1 > detik2) then

                selisih := detik1 - detik2

        else

                selisih := detik2 - detik1;

                readln;

        writeln('Selisih nya Dalam detik adalah: ', selisih:2:0,'detik');

        readln;

end.

Soal Nomor 21 - 30

 program soal_no21;
uses crt;

var
  x,y,z : integer;

begin
  clrscr;
  write('masukan nilai x: '); readln(x);
  write('masukan nilai y: '); readln(y);
  write('masukan nilai z: '); readln(z);
  if (x < y)then
     if (y < z)then
        writeln('mahasiswa telkom university')
     else
        writeln('mempunyai visi yang besar')
  else
     if (x > y)then
        if(y < z)then
          writeln('karena itu')
        else
          writeln('kami selalu rajin belajar');
  readln();
end.

 program soal_no22;
uses crt;

var
  x,y,z : integer;

begin
  write('masukan nilai x: '); readln(x);
  write('masukan nilai y: '); readln(y);
  z := x + y;
  if (z >= 80)then
     z := z - 30;
  if (z >= 70)then
     z := z - 10
  else
     if(z > 65)then
        z := z - 5;
        y := x;
  if( x <= 70)then
    z := z - 5;
    y := x;

  writeln('maka nilai x adalah: ',x);
  writeln('maka nilai y adalah: ',y);
  writeln('maka nilai z adalah: ',z);
  readln();
end.

 program soal_no23;
uses crt;

var
   x,y : integer;

begin
   write('masukan nilai x: '); readln(x);
   write('masukan nilai y: '); readln(y);
   write('masukan nilai x: '); readln(x);
   if (x = 1)then
      writeln('1. visi (mimpi) telah sesuai dengan langlah')
   else if (x >= 2)and (x <= 4)then
      writeln('2. pantang menyerang untuk meraih mimpi')
   else if (x = y)then
      writeln('3. jujur dan profesional dalam melangkah')
   else if (y > x)then
      writeln('4. berdia tanpa putus');
      readln();
end.

 program soal_no24;
uses crt;

var
   dat1,dat2,dat3,dat4,big : integer;

begin
   write('masukan data pertama: '); readln(dat1);
   write('masukan data kedua: '); readln(dat2);
   write('masukan data ketiga: '); readln(dat3);
   write('masukan data keempat: '); readln(dat4);
   if ((dat1 >= dat2) and (dat1 >= 3) and (dat1 >= dat4))then
      big := dat1
   else if ((dat2 >= dat1) and (dat2 >= dat3) and (dat2 >= dat4))then
      big := dat2
   else if ((dat3 >= dat1) and (dat3 >= dat2) and (dat3 >= dat4)) then
      big := dat3
   else
      big := dat4;
   writeln('maka outputnya adalah: ',big); readln();
end.

 

program soal_no25;
uses crt;

var
  A,B,C : integer;

begin
  clrscr;
  write('masukan nilai A: '); readln(A);

  if (A = 10) AND (B = 5)then
    C := 156
  else
    C := 165;
  writeln('maka nilai C adalah: ',C); readln();
end.



program soal_no26;
uses crt;


var
  x,y,z : boolean;
  a: integer;

begin
   write('masukan nilai x: '); readln(a);
   x := false;
   z := ((3 +  (5 mod 3)) = 5);
   y := (a <= 0);
   if ((x and y) or (not (y or z))) then
      writeln('telkom university is the best')
   else if ((y and (not z)) or (x and y))then
      writeln('telkom university is the clean campus');
   writeln('telkom university is smart campus');
      readln();
end.




program soal_no27;
uses crt;

var
 j,m,d : integer;


begin
  clrscr;
  write('masukan nilai j: '); readln(j);
  write('masukan nilai m: '); readln(m);
  write('masukan nilai d: '); readln(d);
  if d > 0 then
      d := d - 1
  else
      d := 59;
      if (m > 0)then
          m := m - 1
      else
          m := 59;
          j := j - 1;
  writeln('maka nilai j + m - d adalah: ',j + m - d);
  readln();

end.


end.

 program soal_no28;
uses crt;

var
 n : integer;

begin
 write('masukan nilai n: '); readln(n);
 if n < 10 then
   n := n + 5
 end.
 writeln('maka nilai n adalah: ',n);
 readln();
end.

yang ini saya kurang mengerti dengan if nya && maka saya lewat. 

 program soal_no30;
uses crt;

var
   isfalse: boolean;
   y: integer;

begin
  write('masukan suatu angka: '); readln(y);
  isfalse := true;
  if (true) then
     if( ((y mod 2) = 0) and isfalse)then
        y := y div 3
     else
          y := y * y
  else
     y := 100;
  writeln('maka nilai angka tersebut adalah: ',y); readln();
end.