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
nomer7
practica 7 ejercicio 9
Подсчёт количества целочисленных точек внутри круга радиуса r
right angle triangle
6
Matrix
ahoj
basketball_player_training
звёздное небо с подсчётом двойных звёзд
1