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
8
P170808A
23 3
Mengeja dari belakang
fmke
12345
10 Ariketa
shift array to left
Сортировка массива цифр
Подсчёт двойных звёзд в строках и столбцах