My site

Site menu
Section categories
Info Mahasiswa [0]
Artikel Kampus [4]
Makalah Kampus [1]
Statistics

Total online: 1
Guests: 1
Users: 0
Main » Files » Kampus » Artikel Kampus

Mengukur Kecepatan
2009-10-20, 10:21 PM

Program Mengukur_Kecepatan

uses Wincrt;

 

var

   jarak:integer;

   waktu:integer;

   kecepatan:integer;

 

begin

     Writeln('Masukkan Jarak yang ditempuh    ');readln(jarak);

     Writeln('Masukkan waktu yang ditempuh    ');readln(waktu);

     writeln;

     writeln;

     kecepatan:=jarak div waktu;

     writeln('Kecepatan anda sekarang adalah  ',kecepatan,'  Km/jam');

     if kecepatan > 2 then

     begin

          Writeln('Kebanteren mas');

     end

     else

         begin

              Writeln('kelambaten');

         end;

end.

 

Category: Artikel Kampus | Added by: YahyaOteda
Views: 169 | Downloads: 0 | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Search
Site friends
  • Create your own site
  • Tag Board

    Copyright MyCorp © 2018