Test 2

(1)

Prof. Dr. Thomas Off Wirtschaftsinformatik 1

Bitte wenden.

Seite 1 von 2 beuth_wi1_test-2_e_v1-1.docx

Test 2

 Frau  Herr  ______ Datum: 01.01.2001

Name, Vorname Mustermann,Michael MatrikelNr: ¹²³⁴⁵ Ich möchte das Ergebnis meines Tests per E-Mail an nachfolgende Adresse erhalten:

E-Mailadresse: m.mustermann@gmx.de

(Schreiben Sie besonders deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail wollen.)

Gesamt: / 50 Punkte

Aufgabe 1 ___ / 20 Punkte

Frage

Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie darin ein einfaches Feld, in dem 7 gebrochene Zahlen mit doppelter Genauigkeit gespeichert werden können. Initialisieren Sie das erste und das letzte Element des Feldes mit jeweils einem selbst gewählten Wert.

Antwort

Sub e() '0.5P

'0.5P Dim 1P Bez 2P Klammern '2P Größe 0.5P As Datentyp Dim dblFeld(6) As Double

'0.5P Let und Wertzuweisung 1P Bez 2P Klammern '2P Index 1P Reihenfolge

Let dblFeld(0) = 6.54321

'0.5P Let und Wertzuweisung 1P Bez 2P Klammern '2P Index 1P Reihenfolge

Let dblFeld(6) = 5.43219 End Sub '0.5P

(2)

Prof. Dr. Thomas Off Wirtschaftsinformatik 1

Seite 2 von 2 beuth_wi1_test-2_e_v1-1.docx

Aufgabe 2 ___ / 30 Punkte

Frage

Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie darin eine erste Variable für einen Startwert und eine zweite Variable für einen Endwert. Entscheiden Sie selbst, welchen Datentyp für ganze Zahlen sie für diese Variablen verwenden wollen. Lassen Sie den Benutzer zwei ganze Zahlen eingeben und speichern Sie diese in den Variablen.

Schreiben Sie eine vorprüfende Schleife, die solange läuft wie der Wert der ersten Variable kleiner als der Wert der zweiten Variable ist. Achten Sie dabei auf eine genaue Umsetzung der Formulierung "solange wie".

Erhöhen Sie innerhalb der Schleife den Wert der ersten Variable um vier. Bilden Sie das Produkt aller Werte der ersten Variable, indem sie diese miteinander multiplizieren. Geben Sie das Gesamtergebnis der Produktbildung in einem einfachen Meldungsfenster aus.

Antwort

Sub e() '0.5P

Dim intStart As Integer '1P Dim intEnde As Integer '1P Dim lngProdukt As Long ' 2P

Let intStart = Val(InputBox("Start:")) '1P Let intEnde = Val(InputBox("Ende:")) '1P

Let lngProdukt = 1 ' 2P

'1P Do 3P While 3P Bedingung 1P Reihenfolge Do While intStart < intEnde

Let intStart = intStart + 4 '2P

Let lngProdukt = lngProdukt * intStart '4P

Loop '2P

MsgBox lngProdukt '1P

'4P Erkennbarkeit des Algorithmus End Sub '0.5P