DataMuseum.dk

top - metrics - download

    Length: 3968 (0xf80)
    Types: TextFile
    Names: »OVERF_1.PAS«

└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─⟦this⟧ »OVERF_1.PAS« 

TextFile

PROGRAM overf_1;

  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);
    
    IF oenske = 1
      THEN
        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
    
    ELSE IF oenske = 2
      THEN
        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
    
    ELSE IF oenske = 3
      THEN
        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
    
    ELSE IF oenske = 4
      THEN
        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
    
    ELSE IF oenske = 5
      THEN
        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
    
    ELSE IF oenske >= 6
      THEN
        BEGIN
          GOTOXY(38, 12); WRITE('SLUT');
          GOTOXY(0, 20);
        END;
    
    WRITELN;
  END.
«eof»