Pascal Übungen
#1
geschrieben 30. November 2004 - 14:42
Schonmal danke im Vorraus.
Anzeige
#2
geschrieben 30. November 2004 - 14:54
PROGRAM PI-Ber; USES crt; VAR u:real; VAR m,n:longint; BEGIN clrscr; writeln('PI-Berechnung nach Archimedes'); writeln; writeln('Max. Eckenzahl:'; readln(m); writeln; (' n PI'); n:=6; u:=3; REPEAT writeln (n:9, ' ',u:11:10); u:=2*u/sqrt(2+2*sqrt(1-sqrt(u/n))); n:=n*2; UNTIL n > m; readln; END.
Dieser Beitrag wurde von stefanra bearbeitet: 30. November 2004 - 15:00
#3
geschrieben 30. November 2004 - 15:13
#4
geschrieben 30. November 2004 - 15:44
Ich habe nur diesen Code von meinem Mathelehrer bekommen.
#6
geschrieben 30. November 2004 - 15:57
Dann sag' dem Mathelehrer mal, dass er besser einrücken soll
Ich persönlich habe mal in TP kleine Progrämmchen geschrieben.
Allerdings sind die meisten davon einfach nur Spaß-Programme...
Naja... Ein Programm ist für Windows 9x/ME sogar schädlich
(Ja, mit voller Absicht)
Ich habe meine Klassenkameraden mit meinen Programmen immer "gequält"
da ich nur ZU gerne Sounds (Beep aus dem PC-Speaker) mit eingebaut habe
Falls du dennoch Interesse an solchem Programmen haben solltest, sag' es einfach mal, dann werde ich hier mal ein Paket zur Verfügung stellen...
Aber wie gesagt: Nützlich sind die allerwenigsten Programme
#7
geschrieben 30. November 2004 - 16:24
Ich will ja nur üben und nen bisl Spass dran haben. Außerdem bin ich noch nen Anänger und weiß net was ich programmieren soll. Gib mir aber bitte net das Systemschädliche (fänd ich net so toll obwohl ich eigentlich vorhabe xp neuzuinstallieren (siehe xphilfe thread wegen uptdatesicherungen))
#8
geschrieben 30. November 2004 - 16:32
http://www.geocities...y/6512/misc.htm
http://www.programme...zone24/mh38.htm
Google hilft weiter.
#9
geschrieben 30. November 2004 - 19:03
USES crt;
VAR u:real;
VAR m:longint;
BEGIN
clrscr;
writeln('PI-Berechnung nach Taylor');
u:=0;
FOR m:=1 TO 10000000 DO
u:=u+(1/(m²));
u:=sqrt(6u);
write('pi= '); writeln(u);
END.
Ja, mata ne!
(For sending email please use OpenPGP encryption and signing. KeyID: 0xA0E28D18)
#10
geschrieben 30. November 2004 - 19:24
Alarm.pas - Spielt einfach nur einen "Alarmton" ab.
Assign.pas - Erstellt eine Textdatei mit Text, den man im Programm eingibt.
BIN2.pas - Rechnet eine Dezimalzahl um in Binär.
BS.pas - Stumpfsinniger "Bildschirmschoner" Mit Passwort-Abfrage
(Erklärung: Das Passwort, das man am Anfang eingibt, muss man auch beim Beenden eingeben)
BSOD.pas - Da habe ich mal den Win 9x/ME Bluescreen nachprogrammiert
Count.pas - Ein kleiner Countdown mit Farbspielereien.
Gernot.pas - Man gibt den Radius eines Kreises ein, und das Programm errechnet
Umfang und Fläche...
Kreise2.pas - Kleine Spielereien im Grafikmodus... "Demos" werden mit beliebiger Taste gewechselt...
Loop.pas - For-Schleifen mit "Frames"..
Matrixx.pas - Nullen und Einsen laufen den Bildschirm herab...
Menue.pas - Achtung: Komplexer. Dieses Menu habe ich als "Hausaufgabe" Über die Ferien damals gemacht...
MHARML.pas - Legt eine Datei auf Laufwerk D an (Buchstaben kann man ändern) und schreibt etwas mit rasender geschwindigkeit hinein, bis die Platte voll ist, oder man das Programm beendet.
Oede.pas - Noch mehr Nullen und Einsen...
Snd2.pas - Sound... Von einem bis 16000 Hz. Die Meldung danach, dass die Festplatte formatiert wird ist nur Spaß und kann ignoriert werden...
TIJ.pas - "Tage im Jahr"... Mit Passwortabfrage (Siehe BS.pas). Man gibt das Datum ein und bekommt lauter Informationen
Win2k1.pas - Nur eine Spielerei von mir...
WRAND.pas - Zufällig große Fenster mit zufälliger Farbe werden auf dem Bildschirm erstellt...
Und hier ist die Datei:
Downloade mich!
#12
geschrieben 30. November 2004 - 19:53
#13
geschrieben 30. November 2004 - 20:27
Diese Programme sind für/in "Turbo Pascal 7.0" geschrieben...
#14
geschrieben 30. November 2004 - 20:34
Zitat (Foxhound: 30.11.2004, 15:13)
<{POST_SNAPBACK}>
Ich bin in der 7ten Klasse (13 jahre alt) und wir hatten in der 6ten schon PI. Naja gehörte nich zum Lehrplan, aber der Lehrer hats trotzdem erklärt!
#15
geschrieben 01. Dezember 2004 - 20:17