SELECTION (IF)

program selection;
uses crt;


const phi = 3.14;

var l,sisi,jari,panjang,lebar: real;
    nama : string;
    pilih: word;


    begin
    clrscr;


    write('Tuliskan nama :'); readln(nama);

    writeln('pilih menu:');
    writeln('1 Hitung luas persegi');
    writeln('2 Hitung luas lingkaran');
    writeln('3 Hitung luas persegi panjang');
    writeln('4 Hitung luas permukaan bola');
    writeln('5 Keluar program ');

    write('Masukan no menu:');
    readln(pilih);
    clrscr;
    if (pilih = 1) then

    begin
    clrscr;
    write('Masukan nilai sisi :'); readln(sisi);
    l:=sisi*sisi;
    end else

    if (pilih = 2) then

    begin
    clrscr;

    write('Masukan nilai jari-jari :') ;readln(jari);
    l:= phi*jari*jari;
    end else
    if (pilih = 3) then
    begin
    clrscr;

    write ('Masukan nilai panjang:'); readln(panjang);
    write ('Masukan nilai lebar :');readln(lebar);
    l:=panjang*lebar;
    end else

    if (pilih = 4) then
    begin
    clrscr;

    write('Masukan nilai jari-jari:'); readln(jari);
    l:=4*phi*jari*jari;
    end else

    if (pilih =5) then
    begin
    clrscr;

    writeln ('Keluar program ....sampai jumpa lagi');
    end;

    writeln(l:0:2);
    readln;
    end.

link download:
file docx
file pdf
file pas

uzzumaki_naruto Senin, 15 Agustus 2011