Aufgabe 27

 

 

type

Name = array[1..20] of char;

Sorte = array[1..30] of char;

Preis = real;

 

Datum = record

Tag : 1..31;

Monat : 1..12;

Jahr : 1900 .. 2100;

end;

 

Dt = (Abldatum, Herstdatum);

 

Wurst = record

Wurstname : Name;

Wurstsorte : Sorte;

Kilogrammpreis : Preis;

case Haltbar : Dt of

Abldatum : (Ablaufdatum : Datum);

Herstdatum : (Herstellungsdatum : Datum;

Dauer : integer)

end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

program Wurstsorten;

 

{ ... hier obige Typdeklarationen einsetzen ...}

 

 

procedure darstellen(var dwurst: Wurst);

begin

with dwurst do begin

ausgeben('Name : ',Wurstname);

ausgeben('Sorte: ',Wurstsorte);

ausgeben('Kilopreis: ',Kilogrammpreis, ' DM');

if Haltbar = Abldatum then

with Ablaufdatum do

ausgeben('Ablaufdatum: ',Tag,'.', Monat,'.', Jahr)

else

with Herstellungsdatum do

ausgeben('Hergestellt am ',Tag,'.', Monat,'.', Jahr,' Dauer:',Dauer);

end;

end;

 

 

 

var EineWurst, WeitereWurst : Wurst;

 

 

begin

with EineWurst do begin

Haltbar := Herstdatum;

 

Wurstname := 'Hausmacher Salami';

Wurstsorte := 'Salami';

Kilogrammpreis := 12.99;

 

Herstellungsdatum.Tag := 18;

Herstellungsdatum.Monat := 1;

Herstellungsdatum.Jahr := 1999;

Dauer := 10;

end;

 

 

 

 

 

with WeitereWurst do begin

Haltbar := Abldatum;

 

Wurstname := 'Vorderschinken';

Wurstsorte := 'Gerauchter Schinken';

Kilogrammpreis := 15.70;

 

Ablaufdatum.Tag := 18;

Ablaufdatum.Monat := 1;

Ablaufdatum.Jahr := 1999;

end;

 

 

darstellen(EineWurst);

darstellen(WeitereWurst);

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Aufgabe 28

 

 

Bernhardinerkapazität: 3 x 1,44 x 220 x 8 = 36.238.787 Bits.

 

 

Zeitdauer für die Übertragung der Bernhardinerkapazität mit

 

a) 28.800 bit/s - Verbindung: 36.238.787 : 28.800 = 1.259 s.

 

b) 64.000 bit/s - Verbindung: 36.238.787 : 64.000 = 566 s.

 

c) 10 Mbit/s - Verbindung : 36.238.787: 10.485.760 = 3,5 s.

 

 

 

Bernhardinergeschwindigkeit: 18.000 : 3.600 = 5 m/s

 

 

 

Berhardiner-Streckenäquivalente für Telekommunikationswege:

 

a) 28.800 bit/s-Verbindung: 1.259 x 5 = 6.295 m

 

b) 64.000 bit/s-Verbindung: 655 x 5 = 2.830 m

 

c) 10 Mbit/s-Verbindung : 3,5 x 5 = 17,5 m

 

 

 

 

 

 

 

 

 

Aufgabe 29

 

  1. 95kHz / (10 + 1200 + 30 + 10 Zeilen) = 76 Hz

    2.  

  2. 95kHz * (64 + 1600 + 320 + 128 Punkte) = 200,64 MHz

 

Þ 175MHz reichen nicht

 

 

 

Aufgabe 30

 

 

  1. Die Darstellung ändert sich nicht, nur die Bildwiederholrate.

    2.  

    115 MHz / (32+256+128+1024 Punkte) = 79,86 kHz

    79,86 kHz / (4+22+6+768 Zeilen) = 99.82 Hz

     

    160 MHz / (32+256+128+1024 Punkte) = 111,11 kHz

    111,11 kHz / (4+22+6+768 Zeilen) = 138.88 Hz

     

  2. Das Bild erscheint auf dem Monitor weiter rechts.

 

32 + 256 = (32 + 32) + (256 - 32)

= 64 + 224

 

 

 

Aufgabe 31

 

 

  1. ca. 2,038 GB

    2.  

    12 Köpfe * 5264 Zylinder/Kopf

    * 63 Sektoren/Zylinder

    * 512 Byte/Sektor

    = 2037547008 Byte

     

     

    Anmerkung: bei den Festplattenherstellern ist

    1 GB = 1.000.000.000 Byte und nicht

    = 1.024 MB = 1.048.576 kB

    = 1.073.741.824 Byte.

     

     

     

     

  2. 12 Köpfe * 5264 Zylinder/Kopf = 63.168 Zylinder.
    63.168 / 1023 = 61,75 also aufgerundet 62 Köpfe und dann (abgerundet) 1.018 Zylinder.

Das sind 52 Spuren weniger bzw. 1,7MB oder weniger als 0,1 Prozent.

 

 

 
    1. Zylinder/ 62 Köpfe

= 1018.8387096774193548387096774194 Zylinder /Kopf

 

0.8387096774193548387096774194 Zylinder/Kopf * 62 Köpfe

= 52 Zylinder

 

52 Zylinder * 63 Sektoren/Zylinder * 512 Byte/Sektor

= 1677312 Byte (absolut)

 

1,677MB / 2,038GB

= 8.22865554465161923454367026496e-4

< 0,1 (in Prozent)

 

 

 

 

  1. Optimal sind 987 Zylinder und 64 Köpfe.

 

  1. Zylinder/Kopf * 64 Köpfe = 3.168 Zylinder.