Περίμετρος και εμβαδό κύκλου

Να γραφτεί πρόγραμμα σε Pascal που να διαβάζει την ακτίνα ενός κύκλου (σε εκατοστά) και να υπολογίζει και να εμφανίζει την περίμετρο και το εμβαδό του κύκλου.

Οι τύποι είναι:
Περίμετρος=2*π*ακτίνα
Εμβαδό=π*ακτίνα*ακτίνα (π * ακτίνα στο τετράγωνο)
Όπου π=3,14 (περίπου)




Απάντηση




Program per_emv_kyklou;
const pi=3.14;
var r:integer;
    pe,em:real;
Begin
    Write('Δώσε την ακτίνα του κύκλου: ');
    readln(r);
    pe:=2*pi*r;
    em:=pi*r*r;
    writeln('Η περίμετρος του κύκλου είναι:',pe:8:2);
    writeln('Το εμβαδό του κύκλου είναι:',em:8:2);
End.