Tugas Logika dan Pemrograman
Minggu, 13 Desember 2015
Jumat, 09 Oktober 2015
Membuat flowchart menghitung umur, keliling persegi panjang, dan lingkaran
1. Membuat flowchart menghitung umur seseorang dengan inputan nama dan tahun lahir
uses crt;
var
nama:char;
umur,thn_lahir:real;
begin
clrscr;
write('Masukan Nama ='); readln(nama);
write('Masukan Tahun Lahir =');
readln(thn_lahir);
umur:=2015-thn_lahir;
writeln('Umur =',umur:0:0,' tahun');
readln;
end.
Flowchart untuk menentukan umur seseorang:
Flowchart menghitung keliling persegi panjang:
uses crt;
var
nama:char;
umur,thn_lahir:real;
begin
clrscr;
write('Masukan Nama ='); readln(nama);
write('Masukan Tahun Lahir =');
readln(thn_lahir);
umur:=2015-thn_lahir;
writeln('Umur =',umur:0:0,' tahun');
readln;
end.
Flowchart untuk menentukan umur seseorang:
Hasil inputan:
2. Membuat flowchart untuk menghitung keliling persegi panjang dan lingkaran
*Menghitung keliling persegi panjang
uses crt;
var
p,l:integer;
k:real;
begin
clrscr;
write('Masukan Panjang =');
readln(p);
write('Masukan Lebar =');
readln(l);
k:=2*p+2*l;
writeln('Keliling Persegi Panjang =',
k:0:2);
readln;
end.Flowchart menghitung keliling persegi panjang:
Hasil inputan:
*Menghitung keliling lingkaran
uses crt;
var
r:integer;
k,phi:real;
begin
clrscr;
writeln('Menghitung Keliling Lingkaran');
writeln('-----------------------');
write('Masukan Jari-jari =')readln(r);
phi:=22/7;
k:=2*phi*r;
writeln('Keliling Lingkaran =',k:0:2);
readln;
end.
Flowchart menghitung kellinglingkaran:
Hasil input:
Jumat, 02 Oktober 2015
Langganan:
Postingan (Atom)