Question

Buatlah program untuk mengubah besaran CELCIUS ke FAHRENHEIT dengan

memakai fasilitas

REPEAT UNTIL.

Answer 1

Nih kak :)

program konversi_suhu_menggunakan_repeat_until;
uses crt;
var i:integer;
f:real;
begin
clrscr;
i:= 1;
writeln('Konversi Celcius Ke Farenheit');
repeatwriteln('Nilai Celcius : ',i);
f:=(1.8*i)+32;
writeln('Nilai Farenheit : ',f:4:2);
writeln('-------------------------');
i := i+1;
until i>5;
readln;
end.