Di postingan ini saya akan mencontohkan bagaimana cara membuat sebuah program sederhana untuk menghitung keliling segitiga dengan hasil tampilan seperti berikut :
program keliling_segitiga;
uses crt;
var
keliling: real;
s1,s2,s3: integer;
begin
clrscr;
write(‘Masukan Sisi 1: ‘);readln(s1);
write(‘Masukan Sisi 2: ‘);readln(s2);
write(‘Masukan Sisi 3:’);readln(s3);
keliling:=s1+s2+s3;
writeln(‘Keliling segitiga adalah: ‘,keliling:2:1);readln;
end.
Selamat mencoba dan berkreasi!
Tidak ada komentar:
Posting Komentar