Aufgabe 4 / Lösungsvorschlag
- Teil A
-
mal_n([ ],N,[ ]).
mal_n([K|R],N,[K1|R1]):-
K1 is K * N,
mal_n(R,N,R1). - Teil B
-
multiplikator:-
write('Bitte eine Liste von Zahlen eingeben'),nl,
read(Zahlenliste),nl,
write('Bitte eine Multiplikationsfaktor eingeben'),nl,
read(Faktor),nl,
mal_n(Zahlenliste,Faktor,Ausgabeliste),
write('Das Ergebnis lautet:'),nl,
write(Ausgabeliste).