Pada kesempatan kali ini saya mencoba untuk membuat sebuah program sederhana yaitu program perhitungan delay pada sistem transmisi dengan menggunakan turbo pascal. Tidak usah berlama-lama lagi langsung aja ke tahapan pembuatannya:
- FLOW CHART
- SOURCE CODE
program penghitung_waktu_delay_pada_sistem_komunikasi;
uses crt;
label mulai;
var
S,V,D :real;
pilihan1,pilihan2 : string;
const Vconst = 300000000;
begin
clrscr;
writeln(‘ PROGRAM PENGHITUNG WAKTU DELAY PADA SISTEM KOMUNIKASI ‘);
mulai:
writeln (‘ ‘);
writeln (‘ ‘);
write (‘Masukkan Nilai Jarak (meter) =’); readln (S);
write (‘Apakah media transmisinya udara? (y atau t)’);
readln (pilihan1);
if (pilihan1 = ‘y’ ) then
begin
write (‘Nilai delaynya =’);
D:=(S)/(Vconst);
writeln (D);
writeln (‘ ‘);
end
else if (pilihan1 = ‘t’) then
begin
write (‘masukkan nilai V(m/s)= ‘);
readln (V);
write (‘nilai delaynya =’);
D :=(S)/(V);
writeln (D);
writeln (‘ ‘);
end;
write (‘apakah anda ingin menghitung lagi? (y atau t)’);
readln (pilihan2);
if (pilihan2 = ‘y’) then
begin
goto mulai;
end
else if (pilihan2 = ‘t’) then
begin
end;
end.
- TAMPILAN PROGRAM