fork(7) download
copy 
  1. program test;
  2. uses crt;
  3. label balik;
  4. var p,l,a,t,c,j :integer;
  5.     ls,phi :real;
  6.     YN :string;
  7.  
  8. begin
  9. clrscr;
  10. balik:
  11.        writeln('1. Program Mencari Luas Persegi Panjang');
  12.        writeln('2. Program Mencari Luas Segitiga');
  13.        writeln('3. Program Mencari Luas Lingkaran');
  14.        writeln('4. Exit');
  15.        write('Pilih Menu 1-4 : ');readln(c);
  16.        writeln;
  17.   case c of
  18.        1 : Begin
  19.          writeln('Mencari Luas Persegi Panjang');
  20.          write('Masukan Panjang : ');readln(p);
  21.          write('Masukan Lebar   : ');readln(l);
  22.          write('Rumus Luas : ',p,' x ',l,' : ',p*l);
  23.        End;
  24.  
  25.        2 : Begin
  26.          writeln('Mencari Luas Segitiga');
  27.          write('Masukan Alas     : ');readln(a);
  28.          write('Masukan Tinggi   : ');readln(t);
  29.          LS:=1/2*(a*t);
  30.          write('Rumus Luas : 1/2(',a,' x ',t,') : ',LS:0:0);
  31.        End;
  32.        3 : Begin
  33.          writeln('Mencari Luas Lingkaran');
  34.          write('Masukan Jari-Jari     : ');readln(j);
  35.          LS:=3.14*(j*j);
  36.          write('Rumus Luas : 3.14 x ',j,' x ',j,' : ',LS:0:2);   
  37.        End;
  38.        4 : Begin
  39.                 exit;
  40.        End;
  41.        else write('INPUT DATA SALAH');
  42.        End;
  43.        writeln;
  44.        write('Kembali Ke Menu ? (Y/N) : ');readln(YN);
  45.         if (YN = 'Y') or (YN = 'y') then
  46.         begin
  47.             clrscr;
  48.             goto balik
  49.         end
  50.         else if (YN = 'N') or (YN = 'n') then
  51.              write('Press any key to Exit')
  52.         else write('INPUT SALAH');
  53. readln;
  54. end.
  55.  
  56.  
Success #stdin #stdout 0s 4396KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1. Program Mencari Luas Persegi Panjang
2. Program Mencari Luas Segitiga
3. Program Mencari Luas Lingkaran
4. Exit
Pilih Menu 1-4 : 
INPUT DATA SALAH
Kembali Ke Menu ? (Y/N) : INPUT SALAH
https://ideone.com/HRXPwC
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!