??? ??? ??? ???
Hallo brauche dringend Hilfe bei diesem Programm:
Aufgabenstellung:
Schreiben Sie ein Programm, das entweder von einem Kreis, Rechteck oder Kreis den Flächeninhalt und Umfang berechnet, nach dem die jeweilige geometrische Form ausgewählt wurde.
Die Berechnung stimmen so weit,
aber ich bekomme die if then Funktion einfach nicht zum Laufen.
Wäre jedem Hinweis sehr sehr dankbar.
program Flaeche;
{Dave Marvin}
uses wincrt;
var kreis, rechteck, dreieck, area, umfang, radius, a, b, c, g, h : real;
const pi=3.14159265;
begin
writeln('Dieses Programm errechnet Ihnen den Flächeninhalt und');
writeln('den Umfang eines Kreises, Rechtecks oder Dreiecks.');
write('Bitte treffen Sie nun Ihre Wahl. ');
readln(kreis);
readln(rechteck);
readln(dreieck);
if kreis = kreis
then begin
write('Geben Sie bitte den Radius des Kreises ein. ');
readln(radius);
end;
area:= pi * sqr(radius);
umfang:= 2 * pi * radius;
writeln('Der Flächeninhalt des Kreise beträgt ' , area:8:2 , ' cm²');
writeln('Der Umfang des Kreises beträgt ' , umfang:8:2 , ' cm');
write('Geben Sie bitte die Seiten Länge a des Rechtecks ein. ');
readln(a);
write('Geben Sie bitte die Seiten Länge b des Rechtecks ein. ');
readln(b);
area:= a * b;
umfang:= 2 * (a+b);
writeln('Der Flächeninhalt des Rechtecks beträgt ' , area:8:2 , ' cm²');
writeln('Der Umfang des Rechtecks beträgt ' , umfang:8:2 , ' cm');
write('Geben Sie bitte die Länge g der Grundseite des Dreiecksein. ');
readln(g);
write('Geben Sie bitte die Höhe h des Dreiecks ein. ');
readln(h);
write('Geben Sie bitte die Seiten Länge a des Dreiecks ein. ');
readln(a);
write('Geben Sie bitte die Seiten Länge b des Dreiecks ein. ');
readln(b);
write('Geben Sie bitte die Seiten Länge c des Dreiecks ein. ');
readln(c);
area:= (g*h)/2;
umfang:= a+b+c;
writeln('Der Flächeninhalt des Rechtecks beträgt ' , area:8:2 , ' cm²');
writeln('Der Umfang des Rechtecks beträgt ' , umfang:8:2 , ' cm');
end.
Dave Marvin Gast |