buat contekan gw besok neh, jgn heran.

program Quader;
uses wincrt;
var
l,b,h,Ao,V,d:real;
begin
Writeln('Berechnung des Volumens,der Oberfläche und der Raumdiagonalen von Quadern');
Writeln('=========================================================================');
Writeln;Writeln;
Write('Geben Sie die Länge des Quaders an: ');
Readln(l);
Write('Geben Sie die Breite des Quaders an: ');
Readln(b);
Write('Geben Sie die Höhe des Quaders an: ');
Readln(h);
V:=l*b*h;
Ao:=2*(l*b+l*h+b*h);
d:=Sqrt(sqr(l)+sqr(b)+sqr(h));
writeln;writeln;
writeln('Das Volumen beträgt: ',V:6:2,' VE');
writeln('Der Oberflächeninhalt beträgt: ',Ao:6:2,' FE');
writeln('Die Raumdiagionale beträgt: ',d:6:2,' LE');
end.

program Gruss;
uses wincrt;
begin
writeln('Liebe Seminargruppe SWW,');
writeln;
write('ich begrüße Sie im Rechenzentrum');
end.

program Vorstellung;
uses wincrt;
var
name:string;
begin
writeln('Hallo');
writeln;
writeln;
Write('Mein Name ist Computerina. Wie heißt Du? ');
readln(name);
Write('Ich freue mich ', name,', Dich kennenzulernen.');
end.

1 comment:

uthie said...

wooohhh tya!
ah gpp deng.
bikin contekan itu biasa :p