PASCAL TES 1

Program m2c2;
Uses wincrt;
Var
    C, R, F : real;
Begin
Write ('Masukkan suhu dalam Celcius: ');
Readln (C);
R := (4/5) * C;
F := (9/5) * C + 32;
Writeln;
Writeln ('Suhu dalam Reamur: ', R:5:2);
Writeln ('Suhu dalam Fahrenheit: ', F:5:2);
End.



uses wincrt;
Var
a, b, t, PJ, r, lb, L: real;
ops : integer;
Const
c1 = 1/2;
phi = 3.14;
Begin
Writeln ('masukkan pilihan');
Writeln ('pilih menu yang tersedia');
Writeln ('1.menghitung luas lingkaran');
Writeln ('2.menghitung luas segitiga');
Writeln ('3.menghitung luas segiempat');
Write ('pilihan anda (1-3) ?   ');
Readln (ops);
Case ops of
1:
Begin
Writeln ('menghitung luas lingkaran  ');
Write ('masukkan jari-jari lingkaran  ');
Readln (r);
Writeln;
L:= phi*r*r;
Writeln ('luas lingkaran = ',L:4:6);
Writeln ;
End;
2:
Begin
Writeln ('menghitung luas segitiga');
Write ('masukkan nilai tinggi alas segitiga');
Readln (a);
Write ('masukkan nilai tinggi segitiga');
Readln (t);
Writeln;
L := a*t*c1;
Writeln;
Writeln ('luas segitiga = ',L:4:6);
Writeln;
End;
3:
Begin
Writeln ('menghitung luas segiempat');
Write ('masukkan nilai panjang segiempat');
Readln (PJ);
Write ('masukkan nilai lebar segiempat');
Readln(lb);
Writeln;
L:= PJ*lb;
Writeln;
Writeln ('luas segiempat = ', L:4:6 );
Writeln;
End;
End;

Writeln ('Hasilnya : ', L:4:6);
End.