Το πρόβλημα του κύκλου

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο, κάνοντας κλήσεις κατάλληλων συναρτήσεων, να υπολογίζει και να εμφανίζει την περιφέρεια ενός κύκλου και το εμβαδόν ενός κυκλικού δίσκου με ακτίνα R, σε μέτρα και τετραγωνικά μέτρα αντίστοιχα.
Η παραπάνω διαδικασία θα πρέπει να επαναλαμβάνεται για τιμές της ακτίνας (R) από 10εκ. έως 1,5μ. με βήμα 10εκ.

program Circle;

const
  PI = 3.14159265;

var
  R,             { Ακτίνα }
  Circumference, { Περιφέρεια }
  Area: Real;    { Εμβαδόν }

function ToMeters(CM: Real): Real;
begin
  ToMeters := CM / 100;
end;

function CalcCircumference(R: Real): Real;
begin
  CalcCircumference := 2 * PI * ToMeters(R);
end;

function CalcArea(R: Real): Real;
begin
  CalcArea := PI * Sqr( ToMeters(R) ); { Εμφώλευση συναρτήσεων }
end;


begin
  R := 10;
  repeat
    Circumference := CalcCircumference(R);
    Area := CalcArea(R);
    Writeln('Η περιφέρεια του κύκλου με ακτίνα ', R:6:2, 'εκ. είναι ',
      Circumference:8:4, 'μ. και το εμβαδόν του κυκλικού δίσκου είναι ',
      Area:10:6, 'τ.μ.');
    R := R + 10;
  until R > 150;
end.
Advertisements

Posted on 22/03/2012, in Γλώσσα Pascal, Δομημένος Προγραμματισμός and tagged , , , . Bookmark the permalink. Σχολιάστε.

Σχολιάστε

Εισάγετε τα παρακάτω στοιχεία ή επιλέξτε ένα εικονίδιο για να συνδεθείτε:

Λογότυπο WordPress.com

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό WordPress.com. Αποσύνδεση / Αλλαγή )

Φωτογραφία Twitter

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Twitter. Αποσύνδεση / Αλλαγή )

Φωτογραφία Facebook

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Facebook. Αποσύνδεση / Αλλαγή )

Φωτογραφία Google+

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Google+. Αποσύνδεση / Αλλαγή )

Σύνδεση με %s

Αρέσει σε %d bloggers: