DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »RUMF_2.PAS«

└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »RUMF_2.PAS« 

TextFile

PROGRAM rumf_2;
 
  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);
    
    CASE oenske OF

      1: 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;
         
      2: 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;
          
      3: 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;
     
      4: 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;
           
      5: 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;
                   
      6: 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;
     
      7: 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;
     
      8: BEGIN
           GOTOXY(20, 12);
           WRITE('Så slutter vi for i dag!');
           GOTOXY(20, 13);
           WRITE('------------------------');
           WRITELN;
         END;
      
    OTHERWISE
      WRITELN('Du har tastet forkert! Prøv igen!');
    END;
    
    WRITELN;
  END.
«eof»