Tugas Algoritma dan Pemrograman I

Nama	:	Andi Mandiri
NIM	:	11093382
Jurusan	:	Sistem Informasi - Group P2 (302)

TUGAS PERTAMA TENTANG ALGORITMA DAN PEMROGAMAN PASCAL 7.0

1.  Rumus Kecepatan.. (Km/Jam)

Input	:	s   = Jarak yang ditempuh (KM) t   = Waktu Tempuh (Jam)
Proses	:	v   = s/t
Output	:	Kecepatan(v)

Program   :

uses crt;  var       s : real;       t : real;       v : real; Begin      clrscr;      gotoxy(10,10);      write('Program Penghitung Kecepatan (Km/Jam) silahkan tekan Enter ');      readln;      clrscr;      gotoxy(20,10);      write('Ketik jarak yang ditempuh (Kilometer) : ');      readln(s);      clrscr ;      gotoxy(20,10);      write('Ketik Waktu Tempuh (Jam) : ');      readln(t);      v:=s/t;      clrscr;      gotoxy(20,10);      write('Kecepatan = ',v:1:2,' Km/Jam');      readln;      gotoxy(20,10);      write('Terima Kasih (by Andi Mandiri)');      readln;  end. klik disini untuk download Program Penghitung Kecepatan dan 2. Rumus Kedalaman Laut melalui bunyi Input     : v  = Cepat Rambat (m/s) t   = Waktu (m) Proses    : h  = Output    :  Kedalaman Laut (h) Program : uses crt; var    v : real;    t : real;    h : real; begin   clrscr;   gotoxy(10,10);   write('Program Penghitung Kedalaman Laut silahkan Tekan Enter');   readln;   clrscr;   gotoxy(20,10);   write('Ketik Cepat Rambat (m/s) : ');   readln(v);   clrscr;   gotoxy(20,10);   write('Ketik waktu (s) : ');   readln(t);   h:=v*t/2;   clrscr;   gotoxy(20,10);   writeln('Hasilnya adalah : ',h:1:1,' m ');   readln;   gotoxy(20,10);   write('Terima Kasih (by Andi Mandiri)');   readln; end. klik Disini Untuk Program Rumus Kedalaman Laut