Menggunakan Pengulangan For To Do | Koversi Derajat | Turbo Pascal

Dengan menggunakan teknik pengulangan For ... To ... Do ... , buatlah program konversi derajat Celcius ke Farenheit, dengan Celcius 0 s/ d 10, sertakan Algoritma, Flowchart dan Pemrogramannya.



Penyelesaian :

Program Pascal

program Konversi_celcius_ke_Fahrenheit;

uses crt;

Var

Celcius:integer;

Fahrenheit:real;

begin

Clrscr;

for Celcius:=0 to 10 do

begin

Fahrenheit:=(Celcius*1.8)+32;

Writeln(celcius:2,' Celcius = ',Fahrenheit:3:2,' Fahrenheit.');

End;

Readln;

end.

selengkapnya Algoritma dan Flowchart download disini.