Bismillahillahirokhmanirokhim

LUAS SEGITIGA

program luassegi3;
uses wincrt;
var a,t:integer;
luas:real;
c:char;
begin
writeln('luas segitiga');
repeat
writeln('masukkan a= ');read(a);
writeln('masukkan t= ');read(t);
luas:=0.5 * a * t;
writeln('luas_segitiga=',luas:0:7);
writeln('hitung lagi? (y/t)=');read(c);
until (c='T') or (c='t');
end.


LUAS PERSEGI PANJANG

program luas_lingkaran;
uses wincrt;
var a: longint;
luas:real;
c:char;
const phi=3.14;
begin

writeln('luas lingkaran');
repeat
writeln('masukkan jari-jari: ');
readln(a);
luas:=phi * a * a;
writeln('luas_lingkaran=',luas:0:5);
writeln('hitung lagi?(y/t)=');read(c);
until (c='T') or (c='t');
end.

Kalkulator sederhana 1

program kalkulator1;
uses wincrt;
var a,b,penjumlahan,pengurangan,perkalian:integer;
pembagian:real;
begin
writeln('kalkulator sederhana');
writeln('********************');
writeln('masukan nilai a: ');
readln(a);
writeln('masukan nilai b: ');
readln(b);
penjumlahan:=a+b;
pengurangan:=a-b;
perkalian:=a*b;
pembagian:=a/b;
writeln('hasil penjumlahan',penjumlahan);
writeln('hasil pengurangan',pengurangan);
writeln('hasil perkalian',perkalian);
writeln('hasil pembagian',pembagian:0:4);
end.


Kalkulator sederhana 2

program kalkulator2;
uses wincrt;
var x,y,hasil_penjumlahan,hasil_pengurangan,hasil_perkalian:integer;
jenis,c:char;
hasil_pembagian:real;
begin
writeln('kalkulator2');
writeln('***********');
repeat
writeln('jenis:');
readln(jenis);
writeln('masukan nilai x');readln(x);
writeln('masukan nilai y');readln(y);
hasil_penjumlahan:= x+y;
hasil_pengurangan:= x-y;
hasil_perkalian:= x*y;
hasil_pembagian:= x/y;
if jenis='+' then
begin
writeln('hasil_penjumlahan= ',hasil_penjumlahan);
end;
if jenis='-' then
begin
writeln('hasil_pengurangan= ',hasil_pengurangan);
end;
if jenis='*' then
begin
writeln('hasil_perkalian= ',hasil_perkalian);
end;
if jenis='/' then
begin
writeln('hasil_pembagian= ',hasil_pembagian:0:5);
end;
write('hitung lagi? (y/t)=');readln(c);
clrscr;
until (c='T') or (c='t');
end.