GELOMBANG ELEKTROMAGNETIK DALAM RUANG HAMPA

• Menghitung Lamda dalam ruang hampa

Dalam pemograman ini saya akan menghitung lamda dalam ruang hampa dengan rumus awal f=c/l dimana f = frekuensi gelombang

             c= kecepatan cahaya

             l= lamda

maka l= c/f

• Flowchart pemograman

• Codingan program

uses crt;

var

        l,f,c : real;

        ulang : char;

begin

ulang:='Y';

while upcase(ulang)<>'T'do

begin

        clrscr;

        write('masukan nilai kecepatan cahaya : ');readln(c);

        write('masukan nilai frekuensi gelombang : ');readln(f);

        l := c /f;

        writeln('lamda adalah = ',l);

        if l <= 5 then

        writeln('tekan enter')

        else

        writeln('tekan enter');

        readln;

        write('apa anda ingin menghitung ulang??? (Y/T)');

        readln(ulang);

        end;

readln;

end.

• Scrinsut program

Demikian penjelasannya.. terimakasih