PASKAL

Script segitiga

uses wincrt;

var

                alas         :real;

                 tinggi       :real;

                 hasil        :real;

                ui           :char;

begin

 repeat

 clrscr;

writeln;

writeln('program menghitung luas segitiga');

writeln;

writeln('by mohamad echa putra');

writeln('================================');

writeln;

writeln;

write('Alas :'); readln(alas);

write('tinggi :'); readln(tinggi);

hasil:=alas*tinggi*0.5;

writeln('_________________________');

write('hasilnya:',hasil);

writeln;

writeln;

Write('Mau Ulang Lagi? [Y/T]:');Readln(ui);

Until Upcase(ui)<>'Y';

end.