DataMuseum.dk

top - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »OVERF_2.PAS«

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

TextFile

PROGRAM overf_2;

  VAR
    oenske : INTEGER;
    laengde, bredde, hoejde, overflade, totaloverflade : REAL;
    radius, side, r1, r2 : REAL;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('O V E R F L A D E   A F :');
    WRITELN('-------------------------');
    WRITELN;
    WRITELN('KASSE ............. tast 1');
    WRITELN('CYLINDER .......... tast 2');
    WRITELN('KEGLE ............. tast 3');
    WRITELN('KEGLESTUB ......... tast 4');
    WRITELN('KUGLE ............. tast 5');
    WRITELN;
    WRITE('Indtast ønske: '); READLN(oenske);
    WRITE(CLRHOM);
    
    CASE oenske OF
    
      1: BEGIN
           WRITELN('OVERFLADE AF EN KASSE:');
           WRITELN('----------------------');
           WRITELN;
           WRITE('Indtast kassens bredde: '); READLN(bredde);
           WRITE('Indtast kassens længde: '); READLN(laengde);
           WRITE('Indtast kassens højde:  '); READLN(hoejde);
           WRITELN;
           overflade := laengde * bredde + bredde * hoejde + laengde * hoejde;
           overflade := 2 * overflade;
           WRITELN('Kassens overflade: ', overflade : 10 : 2, ' cm2');
         END;
       
      2: BEGIN
           WRITELN('OVERFLADE AF EN CYLINDER:');
           WRITELN('-------------------------');
           WRITELN;
           WRITE('Indtast cylinderens højde:  '); READLN(hoejde);
           WRITE('Indtast cylinderens radius: '); READLN(radius);
           WRITELN;
           overflade := 2 * PI * radius * hoejde;
           totaloverflade := overflade + 2 * PI * SQR(radius);
           WRITELN('Cylinderens krumme overflade: ', 
                   overflade : 10 : 2, ' cm2');
           WRITELN('Cylinderens totaloverflade:   ',
                   totaloverflade : 10 : 2, ' cm2');
         END;
       
      3: BEGIN
           WRITELN('OVERFLADE AF EN KEGLE:');
           WRITELN('----------------------');
           WRITELN;
           WRITE('Indtast keglens højde:  '); READLN(hoejde);
           WRITE('Indtast keglens radius: '); READLN(radius);
           WRITELN;
           side := SQRT(SQR(hoejde) + SQR(radius));
           overflade := PI * radius * side;
           totaloverflade := overflade + PI * SQR(radius);
           WRITELN('Keglens krumme overflade: ', 
                   overflade : 10 : 2, ' cm2');
           WRITELN('Keglens totale overflade: ',
                   totaloverflade : 10 : 2, ' cm2');
         END;
       
      4: BEGIN
           WRITELN('OVERFLADE AF EN KEGLESTUB:');
           WRITELN('--------------------------');
           WRITELN;
           WRITE('Indtast radius i den øverste cirkel:  '); READLN(r1);
           WRITE('Indtast radius i den nederste cirkel: '); READLN(r2);
           WRITE('Indtast keglestubbens højde:          '); READLN(hoejde);
           WRITELN;
           side := SQRT(SQR(r2 - r1) + SQR(hoejde));
           overflade := PI * side * (r1 + r2);
           totaloverflade := overflade + PI * SQR(r1) + PI * SQR(r2);
           WRITELN('Keglestubbens krumme overflade: ',
                   overflade : 10 : 2, ' cm2');
           WRITELN('Keglestubbens totale overflade: ',
                   totaloverflade : 10 : 2, ' cm2');
         END;
       
      5: BEGIN
           WRITELN('OVERFLADE AF EN KUGLE:');
           WRITELN('----------------------');
           WRITELN;
           WRITE('Indtast kuglens radius: '); READLN(radius);
           WRITELN;
           overflade := 4 * PI * SQR(radius);
           WRITELN('Kuglens overflade: ', overflade : 10 : 2, ' cm2');
         END;
      
    OTHERWISE
      BEGIN
        GOTOXY(38, 12); WRITE('SLUT');
        GOTOXY(0, 20);
      END;
  
    END;
    WRITELN;
  END.
«eof»