LOGIKA DAN PEMROGRAMAN (TUGAS 3)

Program Tugas_3;
const pi=3.14;

Uses wincrt;

Var p,l,pilih   : integer;

       r,kel  : real;

Begin

           Repeat

          ClrScr;

                Writeln(‘TUGAS 3 LOGIKA & PEMROGRAMAN’);

                Writeln(‘1. Menghitung Keliling Persegi Panjang’);

                Writeln(‘2. Menghitung Keliling Lingkaran’);

                Write(‘Masukkan Pilihan Anda : ‘);Readln(pilih);

                If pilih = 1 Then

                                Begin

                                Writeln(‘-----------------------------------------------------------’);

                                Writeln(‘  Menghitung Keliling Persegi Panjang’);

                                Writeln(‘-----------------------------------------------------------’);

                                Write(‘Masukkan Nilai Panjang : ‘);Readln(p);

                                Write(‘Masukkan Nilai Lebar     : ‘);Readln(l);

                                Kel:= 2*(p+l);

                                Write(‘Hasilnya Adalah               : ‘,kel:2:0);

                                Readln;

                                End

                Else

                If plh = 2 Then

                                Begin

                                Writeln(‘=================================’);

                                Writeln(‘  Menghitung Keliling Lingkaran  ‘);

                                Writeln(‘=================================’);

                                Write(‘Masukkan Jari-Jari              : ‘);Readln(r);

                                Kel:= 2*pi*r;

                                Write(‘Keliling Lingkaran Adalah  : ‘,kel2:2);

                                Readln;

                                End

                Until pilih = 0;
 end.