WinFuture-Forum.de: Pascal - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
  • 2 Seiten +
  • 1
  • 2

Pascal Übungen


#1 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 14:42

hi ich bin gerade dabei Pascal zu lernen, mir fallen jedoch nicht wirklich übungen ein, was ich programmieren könnte. Auf Internetseiten finde ich nur die Beispiele Taschenrechner und Telefonbuch. Wäre schön wenn mir einer helfen könnte und möglicherweise gleich die lösung mit.

Schonmal danke im Vorraus.
0

Anzeige



#2 Mitglied ist offline   stefanra 

  • Gruppe: aktive Mitglieder
  • Beiträge: 6.208
  • Beigetreten: 13. September 04
  • Reputation: 1

geschrieben 30. November 2004 - 14:54

PI-Berechnung

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

0

#3 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 15:13

ja danke sehr. hast du noch weitere sachen (wenns geht nicht umbedingt so komplizierte sachen ausser mathematik, da ich pi-berechnungen noch net hatte) bin 9. klasse.
0

#4 Mitglied ist offline   stefanra 

  • Gruppe: aktive Mitglieder
  • Beiträge: 6.208
  • Beigetreten: 13. September 04
  • Reputation: 1

geschrieben 30. November 2004 - 15:44

Nop, ich kann eigentlich kein Pascal.

Ich habe nur diesen Code von meinem Mathelehrer bekommen.
0

#5 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 15:47

achso
0

#6 Mitglied ist offline   Mr_Maniac 

  • Gruppe: aktive Mitglieder
  • Beiträge: 770
  • Beigetreten: 29. Juli 02
  • Reputation: 1
  • Geschlecht:Männlich
  • Interessen:Vieles rund um den Computer
    Musik

geschrieben 30. November 2004 - 15:57

@stefanra:
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 :P

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 ;)
0

#7 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 16:24

Ja gib die bitte mal...
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))
0

#8 Mitglied ist offline   pSyCHo_SolDiEr 

  • Gruppe: aktive Mitglieder
  • Beiträge: 847
  • Beigetreten: 19. Februar 04
  • Reputation: 0
  • Wohnort:Unterfranken

geschrieben 30. November 2004 - 16:32

http://www.brain.uni...pascal/sources/
http://www.geocities...y/6512/misc.htm
http://www.programme...zone24/mh38.htm

Google hilft weiter. ;)
Eingefügtes Bild
0

#9 Mitglied ist offline   Rika 

  • Gruppe: aktive Mitglieder
  • Beiträge: 11.533
  • Beigetreten: 11. Juni 03
  • Reputation: 2
  • Geschlecht:Männlich

geschrieben 30. November 2004 - 19:03

program pi2;
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.
Konnichiwa. Manga wo shitte masu ka? Iie? Gomenne, sonoyouna koto ga tabitabi arimasu. Mangaka ojousan nihongo doujinshi desu wa 'Clamp X', 'Ayashi no Ceres', 'Card Captor Sakura', 'Tsubasa', 'Chobits', 'Sakura Taisen', 'Inuyasha' wo 'Ah! Megamisama'. Hai, mangaka gozaimashita desu ni yuujin yori.
Eingefügtes Bild
Ja, mata ne!

(For sending email please use OpenPGP encryption and signing. KeyID: 0xA0E28D18)
0

#10 Mitglied ist offline   Mr_Maniac 

  • Gruppe: aktive Mitglieder
  • Beiträge: 770
  • Beigetreten: 29. Juli 02
  • Reputation: 1
  • Geschlecht:Männlich
  • Interessen:Vieles rund um den Computer
    Musik

geschrieben 30. November 2004 - 19:24

Okay... Hier ein kleines Paket (selbstentpackendes WinRAR-Archiv) mit folgendem Inhalt:

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" :D 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 :D

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!
0

#11 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 19:49

Ja danke mal gucken ob was lustiges dabei ist.
0

#12 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 30. November 2004 - 19:53

Hilfe!!! ich habe ein Problem. mein compiler oder liegt das an win xp kennt den Befehl sound und nosound nich. kann mir jemand helfen?
0

#13 Mitglied ist offline   Mr_Maniac 

  • Gruppe: aktive Mitglieder
  • Beiträge: 770
  • Beigetreten: 29. Juli 02
  • Reputation: 1
  • Geschlecht:Männlich
  • Interessen:Vieles rund um den Computer
    Musik

geschrieben 30. November 2004 - 20:27

Was für ein Pascal benutzt du denn?

Diese Programme sind für/in "Turbo Pascal 7.0" geschrieben...
0

#14 Mitglied ist offline   Jared 

  • Gruppe: aktive Mitglieder
  • Beiträge: 669
  • Beigetreten: 26. September 04
  • Reputation: 0
  • Geschlecht:Männlich
  • Wohnort:Auen und Wald
  • Interessen:Biken, Fotografie

geschrieben 30. November 2004 - 20:34

Zitat (Foxhound: 30.11.2004, 15:13)

ja danke sehr. hast du noch weitere sachen (wenns geht nicht umbedingt so komplizierte sachen ausser mathematik, da ich pi-berechnungen noch net hatte) bin 9. klasse.
<{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! :D ;) :D ;)
Es gibt eine Theorie, die besagt, wenn jemals irgendwer genau herausfindet, wozu das Universum da ist und warum es da ist, dann verschwindet es auf der Stelle und wird durch noch etwas Bizarreres und Unbegreiflicheres ersetzt. - Es gibt eine andere Theorie, nach der das schon passiert ist. (Douglas Adams)

Eingefügtes Bild
0

#15 Mitglied ist offline   Foxhound 

  • Gruppe: aktive Mitglieder
  • Beiträge: 366
  • Beigetreten: 29. November 04
  • Reputation: 0

geschrieben 01. Dezember 2004 - 20:17

Ja ich hab kein TurboPascal 7 aber auf ner tuturial hp(www.tutorials.at) wurde extra für die Übungen mein compiler angegeben, und da gibts auch den Befehl sound und nosound aber irgendwie funzt das net. Ich hab jetz meinen pmi lehrer gefragt und gib dem morgen mein programm...vielleicht kann der mir sagen woran das liegt. Obs anner soundkarte oder xp liegt....(kann ich mir aber eigentlich net vorstellen)
0

Thema verteilen:


  • 2 Seiten +
  • 1
  • 2

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0