DataMuseum.dk

top - metrics - download

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »RUMF1.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─⟦this⟧ »RUMF1.PAS« 

TextFile

PROGRAM rumf_1;
 
  VAR
    oenske : INTEGER;        
    laengde, bredde, hoejde, rumfang : REAL;
    radius, r1, r2, b1, b2, l1, l2, h : REAL;
    
  BEGIN
    WRITE(CLRHOM);
    WRITELN('R U M F A N G   A F :');
    WRITELN('---------------------');
    WRITELN;
    WRITELN('KASSE ..................... tast 1');
    WRITELN('CYLINDER .................. tast 2');
    WRITELN('PYRAMIDE .................. tast 3');
    WRITELN('PYRAMIDESTUB .............. tast 4');
    WRITELN('KEGLE ..................... tast 5');
    WRITELN('KEGLESTUB ................. tast 6');
    WRITELN('KUGLE ..................... tast 7');
    WRITELN('SLUT ...................... tast 8');       
    WRITELN;
    WRITE('Indtast ønske: '); READLN(oenske);
    WRITE(CLRHOM);
    
    IF oenske = 1
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN KASSE:');
          WRITELN('--------------------');
          WRITELN;
          WRITE('Indtast kassens bredde: '); READLN(bredde);
          WRITE('Indtast kassens længde: '); READLN(laengde);
          WRITE('Indtast kassens hoejde: '); READLN(hoejde); 
          WRITELN;
          rumfang := laengde * bredde * hoejde; 
          WRITELN('Kassens rumfang er: ', rumfang : 10 : 2, ' cm3');
        END
          
    ELSE IF oenske = 2
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN CYLINDER:');
          WRITELN('-----------------------');
          WRITELN;
          WRITE('Indtast cylinderens højde: '); READLN(hoejde);
          WRITE('Indtast radius:            '); READLN(radius);
          WRITELN;
          rumfang := PI * SQR(radius) * hoejde; 
          WRITELN('Cylinderens rumfang: ',rumfang : 10 : 2, ' cm3');
        END
          
    ELSE IF oenske = 3
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN PYRAMIDE:');
          WRITELN('-----------------------');
          WRITELN;
          WRITE('Indtast pyramidens højde:      '); READLN(hoejde);
          WRITE('Indtast bredden i grundfladen: '); READLN(bredde);
          WRITE('Indtast længden i grundfladen: '); READLN(laengde);
          rumfang := hoejde * laengde * bredde / 3 ;
          WRITELN('Pyramidens rumfang: ', rumfang : 10 : 2, ' cm3');
        END
    
    ELSE IF oenske = 4
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN PYRAMIDESTUB:');
          WRITELN('---------------------------');
          WRITELN;
          WRITE('Indtast bredde i den øverste flade:  '); READLN(b1);
          WRITE('Indtast længde i den øverste flade:  '); READLN(l1);
          WRITE('Indtast pyramidestubbens højde:      '); READLN(h); 
          WRITE('Indtast bredde i den nederste flade: '); READLN(b2);
          WRITE('Indtast længde i den nederste flade: '); READLN(l2);
          WRITELN;
          rumfang := (l1 * b1 + l2 * b2 + SQRT(l1 * b1 * l2 * b2)) * h / 3;
          WRITELN('Pyramidestubbens rumfang: ', rumfang : 10 : 2, ' cm3');
        END
          
    ELSE IF oenske = 5
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN KEGLE:');
          WRITELN('--------------------');
          WRITELN;
          WRITE('Indtast keglens højde: '); READLN(hoejde);
          WRITE('Indtast radius:        '); READLN(radius);
          WRITELN;
          rumfang := PI * SQR(radius) * hoejde / 3 ; 
          WRITELN('Keglens rumfang: ', rumfang : 10 : 2, ' cm3');
        END
                  
    ELSE IF oenske = 6
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN KEGLESTUB:');
          WRITELN('------------------------');
          WRITELN;
          WRITE('Indtast keglestubbens højde:      '); READLN(hoejde);
          WRITE('Indtast radius i øverste cirkel:  '); READLN(r1);
          WRITE('Indtast radius i nederste cirkel: '); READLN(r2);
          WRITELN;
          rumfang := PI * hoejde * (SQR(r1) + SQR(r2) + r1 * r2) / 3 ; 
          WRITELN('Keglestubbens rumfang: ', rumfang : 10 : 2, ' cm3');
        END
    
    ELSE IF oenske = 7 
      THEN
        BEGIN
          WRITELN('RUMFANG AF EN KUGLE:');
          WRITELN('--------------------');
          WRITELN;
          WRITE('Indtast kuglens radius: '); READLN(radius);
          WRITELN;
          rumfang := 4 * PI * radius * radius * radius / 3;
          WRITELN('Kuglens rumfang: ', rumfang : 10 : 2, ' cm3');
        END
    
    ELSE IF oenske = 8
      THEN
        BEGIN
          GOTOXY(20, 12);
          WRITE('Så slutter vi for i dag!');
          GOTOXY(20, 13);
          WRITE('------------------------');
          WRITELN;
        END 

    ELSE
      WRITELN('Du har tastet forkert! Prøv igen!');
    
    WRITELN;
  END.
  «eof»