Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1
program soal_algo1; uses crt; const phi=3.14; var r:real; luaslingkaran:real; a:real; t:real; luassegitiga:real; begin clrscr; writeln('Mencari Luas Lingkaran Dan Segitiga'); write('Masukan Nilai Jari Jari: '); readln(r); write('Masukan Nilai Alas: '); readln(a); write('Masukan Tinggi: '); readln(t); luaslingkaran:=phi*r*r; luassegitiga:=(a*t)/2; writeln('Hasil Luas Lingkaran Adalah= ',luaslingkaran); writeln('Hasil Luas Segitiga Adalah= ',luassegitiga); readln; end.
run
|
edit
|
history
|
help
0
Вычисление площади фигуры
тренировка баскетболиста
444555666
BubbleSort (slimmer)
s
Object Pascal
janja - naloga 1 - 25.1.2012
Vremenska prognoza
How many letters?
For3