program pascal percabangan

PROGRAM IF ... THEN

Program persegi;

Uses Crt;

Var

sisi1,sisi2 : real;

Begin

Clrscr;

Writeln (‘Masukkan sisi1  = ‘);Readln(sisi1);

Writeln (‘Masukkan sisi2  = ‘);Readln(sisi2);

If sisi1 = sisi2 Then

Writeln (‘Bangun Tersebut Adalah Persegi ’);

Readln;

End.

PROGRAM IF ... THEN ELSE

Program Lulus;

Uses Crt;

Var

Nilai : Integer;

Begin

Clrscr;

Writeln (‘Masukkan Nilai = ‘);Readln(Nilai);

If Nilai >=75 Then

Writeln (‘Anda  ”Lulus” ’)

Else

Writeln (‘Anda Tidak Lulus’);

Readln;

End.

 

PROGRAM IF ... THEN ELSE

IF ... THEN ELSE

Program lampu_lalulintas;

Uses Crt;

Var

Warna : Integer;

Begin

Clrscr;

Writeln (‘Masukkan Warna Lampu(merah, kuning, hijau) :  ‘);Readln(warna);

If merah Then

Writeln (‘Berhenti ’)

Else If kuning then

Writeln (‘Siap-siap’) else

Writeln(‘Berjalan’);

Readln;

End.

 

 

 terimakasih telah membaca tautan saya :)