tugas 23

 Tugas 23

    Telusuri program dibawah ini:


Program Periksa_Semangat
Kamus
     x, y : integer
BEGIN ALGORITMA
     INPUT(x, y, x)
     IF (x = 1) THEN
          OUTPUT(“1. Visi (Mimpi) telah sesuai dengan langkah”)
     ELSE IF ((x >= 2) and ( x <= 4) THEN
          OUTPUT(“2. Pantang menyerah untuk meraih mimpi”)
     ELSE IF (x = y) THEN
          OUTPUT(“3. Jujur dan profesional dalam melangkah”)
     ELSE IF ( y > x) THEN
          OUTPUT(“4. Berdoa tanpa putus”)
     END IF
END ALGORITMA
Jika pengguna memasukkan  x = 4, y = 5, dan x = 1, maka outputnya adalah Visi  Telah Sesuai Dengan Langkah
Dalam Bahasa Pascal
uses crt;
Var
        X:Integer;
        y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai X: ');
        READLN(X);
        WRITELN('Masukan Nilai Y: ');
        READLN(Y);
        WRITELN('Masukan Nilai X: ');
        READLN(x);
        If(x=1) Then WRITELN('1.Visi(Mimpi) Telah Sesuai Dengan Langkah')
        Else if ( X >= 2) And (x<= 4) Then WRITELN('2.Pantang Menyarah Untuk Meraih Mimpi')
        ELse If ( X = Y ) Then WRITELN('3.Jujur dan Profesional Dalam Melangkah')
        Else If (y>4) Then WRITELN('4.Berdoa Tanpa Putus');
        READLN();

End.