program Die_boese_7;
uses crt;
Var sicherung,z,x,rest,groesse:word;
antwort,v,nochmal,lied:char;
punkte:integer;
PROCEDURE Starten;
BEGIN
textbackground(red);textcolor(yellow);clrscr;
randomize; v:='n';
textbackground(green);
gotoxy(30,1);writeln(' Die bse "Sieben"');
gotoxy(28,2);writeln('======================');
writeln;writeln;
gotoxy(60,3);writeln('Design by AW+AM');
textbackground(red);writeln;
writeln('Entscheiden Sie, ob die Zahl durch 7 teilbar ist oder');
writeln('ob die Ziffer 7 enthalten ist!');
writeln;
z:=random(1000);sicherung:=Z; x:=z;
writeln('Die gegebene Zahl heiát: ',z);
write('Ihre Antwort bitte [j/n]: ');
readln(antwort);writeln;
repeat
rest:=z mod 10;
if rest=7 then begin
writeln('Ziffer 7 ist enthalten');
v:='j';
end
else Begin z:=z div 10;
end;
until (z=0) or ( rest=7);
z:=sicherung;
z:=z mod 7;
if z=0 then begin write('Zahl ist durch 7 teilbar!');
v:='j';
end
else begin write('Zahl nicht durch 7 teilbar ');end;
if v=antwort then begin
textcolor(blink+green);textbackground(black);
write(' Sie haben richtig entschieden!!! ');
punkte:=punkte+1;
sound(500);delay(100);nosound;
sound(520);delay(100);nosound;
sound(540);delay(100);nosound;
sound(560);delay(100);nosound;
sound(580);delay(100);nosound;
sound(600);delay(100);nosound;
sound(620);delay(1000);nosound;
end
else begin
textcolor(red+blink);textbackground(black);
write(' Leider falsch!!! ');
IF punkte=0 THEN punkte:=0
ELSE
punkte:=punkte-1;
sound(500);delay(100);nosound;
sound(480);delay(100);nosound;
sound(460);delay(100);nosound;
sound(440);delay(100);nosound;
sound(420);delay(100);nosound;
sound(400);delay(100);nosound;
sound(380);delay(1000);nosound;
end;
writeln;textcolor(yellow);textbackground(red);
writeln('Sie haben ',punkte,' Punkte bis jetzt erreicht!');
writeln;writeln;
write('Nochmal [j/n] ?'); readln(nochmal);
end;
PROCEDURE Alt_wie_ein_Baum;
BEGIN
nosound;
writeln;writeln;
write('Alt'); sound(263);delay(0500);nosound;
write(' wie'); sound(263);delay(0250);nosound;
write(' ein'); sound(329);delay(0250);nosound;
write(' Baum'); sound(392);delay(0500);nosound;delay(500);
write(' mch'); sound(440);delay(0500);nosound;
write('te'); sound(440);delay(0250);nosound;
write(' ich'); sound(496);delay(0250);nosound;
write(' wer'); sound(526);delay(0500);nosound;
write('den,'); sound(496);delay(0250);nosound;
write(' ge'); sound(440);delay(0250);nosound;
write('nau,'); sound(392);delay(0500);nosound;
write(' wie'); sound(392);delay(0350);nosound;delay(25);
write(' der'); sound(392);delay(0125);nosound;
write(' Dich'); sound(440);delay(0250);nosound;
write('ter'); sound(392);delay(0250);nosound;
write(' es'); sound(348);delay(0250);nosound;
write(' be'); sound(329);delay(0250);nosound;
writeln('schreibt.');sound(295);delay(1000);nosound;delay(1000);
write('Alt'); sound(263);delay(0500);nosound;
write(' wie'); sound(263);delay(0250);nosound;
write(' ein'); sound(329);delay(0250);nosound;
write(' Baum,'); sound(392);delay(0500);nosound;delay(500);
write(' mit'); sound(440);delay(0500);nosound;
write(' ei'); sound(440);delay(0125);nosound;
write('ner'); sound(496);delay(0325);nosound;
write(' Kro'); sound(348);delay(0500);nosound;
write('ne,'); sound(392);delay(0125);nosound;
write(' die'); sound(440);delay(0325);nosound;
write(' weit,'); sound(263);delay(1000);nosound;
write(' weit,'); sound(295);delay(1000);nosound;
write(' weit,'); sound(329);delay(1000);nosound;
write(' weit,'); sound(348);delay(0500);nosound;
write(' die'); sound(392);delay(0250);nosound;writeln;
write(' ');sound(440);delay(0250);nosound;
write(' weit'); sound(392);delay(0500);nosound;
write(' '); sound(348);delay(0250);nosound;
write('ber'); sound(329);delay(0250);nosound;
write(' Fel'); sound(295);delay(0500);nosound;
write('der'); sound(263);delay(0250);nosound;
write(''); sound(248);delay(0250);nosound;
write(' zeigt.'); sound(263);delay(1000);nosound;delay(1000);
END;
PROCEDURE Verabschiedung;
BEGIN
writeln;writeln;writeln;
textbackground(red);textcolor(yellow);
write(' Wir');delay(250);write(' danken');delay(250);
write(' Ihnen');delay(400);
write('!');delay(250);write('!');delay(250);write('!');delay(250);
write('!');delay(250);write('!');delay(250);write('!');delay(250);
delay(2000);
END;
BEGIN
punkte:=0;
REPEAT
Starten;
UNTIL nochmal='n';
clrscr;writeln;writeln;writeln;writeln;
writeln(' Vielen Dank fr die Benutzung unseres Programms.');
writeln;writeln;
writeln(' Wenn ihnen das Programm gefllt, geben Sie uns');
writeln(' bitte eine gute Zensur. Danke!');
writeln;writeln;writeln;writeln;
writeln(' Alexander Meyer, Andreas Werner Klasse 12');
delay(5500);
clrscr;
writeln;writeln;writeln;writeln;
write(' Wollen Sie zum Abschluss noch ein Lied hren??? [j/n] ');
read(lied);
IF lied='j' THEN BEGIN
Alt_wie_ein_Baum;
END;
textbackground(white);textcolor(black+blink);writeln;writeln;writeln;writeln;writeln;
write(' Dieser Bildschrim verschwindet in 5 sec! ');
delay(1000);
Verabschiedung;
END.