program pascal luas jajargenjang

JAJARGENJANG

Algoritma

1. Baca Nilai Input Alas
2. Baca Nilai Input Tinggi
3. Masukkan Rumus Luas Jajargenjang = alas x tinggi, Simpan di Variable Luas.
4. Tampilkan Ke layer Monitor

jajargenjang

Program Jajargenjang;

Uses Crt;

Var
Alas :word;
Tinggi :word.
Luas :word;

Begin

Clrscr;
Write(‘Masukkan Alas = ‘);
Readln(alas);
Write(‘Masukkan Tinggi = ‘);
Readln(tinggi);

Luas := alas * tinggi;

Writeln(‘Luas Jajargenjang = ‘,luas);
writeln('semoga bermanfaat sahabat kampus');

Readln;

End.

...terima kasih...