PASKAL

MEMBUAT RUMUS LINGKARAN

uses wincrt;  

var          hasil,r   :real;                    

                                ui            :char;

begin                                                                   

repeat

clrscr;                                                                   

writeln;                                                                               

writeln('Program luas lingkaran'); 

writeln(‘by mohamad echa putra’);       

writeln;                                                                               

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

writeln;                                                                               

write('jari-jari lingkaran:');readln(r);     

hasil:=22/7*sqr(r);

writeln('hasilnya =',hasil);                         

writeln;

write('apakah anda ingin mengulanginya lagi???? [Y/T]'); readln(ui);

until upcase(ui)<>'Y';

end.