Kelas: MI.R 1.1
Tugas
1.Menampilkan Hasil konversi Suhu Fahrenheit ke Celcius C=5/9 x (Fahrenheit-32)
2.Menampilkan Hasil Y=(2AB+2AC)BC
3.Menampilkan Hasil Volume Prisma Segitiga V=(0.5 x alas segitiga x tinggi segitiga)tinggi prisma
1 . Program Konversi_Suhu;
Uses crt;
Const
a=5/9;
b=32;
Var
C,F:real;
begin
clrscr;
writeln('Masukkan Nilai fahrenheit');
readln(F);
C:=a*(F-b);
writeln('Nilai Suhu celcius:', C);
readkey;
end.
2. Program latihan3;
uses crt;
var
Y,A,B,C:Integer;
begin
clrscr;
write('Masukkan Nilai A:');
readln(A);
write('Masukkan Nilai B:');
readln(B);
write('Masukkan Nilai C:');
readln(C);
Y:=(2*A*B+2*A*C)*B*C;
writeln('Hasil Nilai Y:', Y);
readkey;
end.
3. Program Volume_Prisma_segitiga;
uses crt;
Var
V,AS,TS,TP:real;
begin
clrscr;
writeln('Mencari Volume Prisma Segitiga');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write('Masukkan Nilai Alas Segitiga:');
readln(AS);
write('Masukkan Nilai Tinggi Segitiga:');
readln(TS);
write('Masukkan Nilai Tinggi Prisma:');
readln(TP);
V:=(0.5*AS*TS)*TP;
writeln('Hasil Volume Prisma Segitiga:',V:2:0);
readkey;
end.
FLowchart
