Verfügbare Informationen zu "Informatik Liveticker"
Qualität des Beitrags: Beteiligte Poster: woohoo - hardi - MvO - Horschd - ronronronny - beze - Celli - Funda - thomas - MS - waldmann - Kontrabalg Forum: ABI 08 Forenbeschreibung: CSG Besigheim aus dem Unterforum: Alles was sonst nirgends hinpasst Antworten: 132 Forum gestartet am: Montag 04.12.2006 Sprache: deutsch Link zum Originaltopic: Informatik Liveticker Letzte Antwort: vor 16 Jahren, 8 Monaten, 17 Tagen, 3 Stunden, 3 Minuten
Alle Beiträge und Antworten zu "Informatik Liveticker"
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:05Informatik Liveticker
So, geht wieder los, und bevor wir den "was höre ich gerade"-Faden zuspammen müssen mach ich lieber n eigenen Thread auf...
Gegen alle Erwartungen sin 11 Leute da...
Re: Informatik Liveticker
hardi - 30.01.2007, 15:08
wer fehlt alles?
Re: Informatik Liveticker
MvO - 30.01.2007, 15:10
Du natürlich hardi
Re: Informatik Liveticker
hardi - 30.01.2007, 15:10
ehrlich??? jetzt wo dus sagst, stimmt...
wer noch?
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:10
Tobi fehlt noch, und Ronny...
Re: Informatik Liveticker
Horschd - 30.01.2007, 15:11
Herr Stolz steht mal wieder vorne und schwätzt vor sich hin.
Keiner hört ihm zu, nicht mal Kreiki...
Die einen schreiben Mails, die anderen surfen im Net...
Zu Deutsch: Wer denkt in Informatik, da lernt man was dem sei gesagt:
Man kann sich täuschen, sehr sogar.
Re: Informatik Liveticker
ronronronny - 30.01.2007, 15:16
ach leute, des fällt doch net auf wenn mal hardi und ich fehln...chilled einfach mal en bissl.....so wie wir , gell hardi *lol*
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:19
Ronny un Hardi: Wegen euch hab ich vorhin ne Mittagspause mim Kreigemaier verbringen müssen, so mal von wegen chillen... :bash
Re: Informatik Liveticker
ronronronny - 30.01.2007, 15:22
Ohh, naja du hasch es ja überlebt, so wies aussieht :troest
Außerdem sin mer ja nächstes mal wieder da.....also denk ich zumindest mal.....wobei.....hmmmm....mir gefällts eigentlich ganz gut zu haus :40786
Re: Informatik Liveticker
hardi - 30.01.2007, 15:33
chillen kann man das nicht nennen...
ich muss mathe-gfs machen^^
Re: Informatik Liveticker
beze - 30.01.2007, 15:36
ihr machat beim herr stolz au nix anders als den müll dohanna odr^^
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:37
Huuu Mathe GFS^^
die hättsch au in Info machn können *g*
So gleich stell ich mal das rein was ich bisher gemacht hab (nächstes mal schreibt n anderer mit^^)
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:44
unit schau_U; {Schaubild einer Funktion und ihrer Ableitung mit Wertetabelle}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus;
type
TForm1 = class(TForm)
LB_tab: TListBox;
MainMenu1: TMainMenu; Zeichnen1: TMenuItem; Loeschen1: TMenuItem;
Beenden1: TMenuItem; Wertetabelle1: TMenuItem;
Panel1: TPanel;
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel;
Ed_xl: TEdit; Ed_xr: TEdit; Ed_yu: TEdit; Ed_yo: TEdit;
Ed_d: TEdit;
procedure Zeichnen1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Wertetabelle1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
var x,y,xl,xr,yu,yo : real; {Math. Koord. allgem. bzw. Schaubildrand }
MX,MY : real; {Punkte pro math. Einheit}
D : real; {Math. Skalierabstand}
r,u,rmax,umax,r0,u0 : integer; {Bildsch. Koord. allgem. bzw. Blattrand bzw. Ursprung }
gezeichnet : boolean;
function pot(g: real; h: integer): real; {berechnet die h.Potenz von g}
var i: integer; s: real;
Begin
s:=1;
for i:=1 to h do s:=s*g;
result:=s;
End;
function f(x: real):real; {berechnet den Funktionswert f(x)}
Begin result := 0.05*x*x*x-x+1 End;
function fa(x: real): real; {berechnet die 1.Ableitung von f(x)}
Begin
fa:= (f(x+0.0000001)-f(x))/((x+0.0000001)-x);
End;
function fr(x: real): integer; {berechnet r aus x }
Begin fr:=round((x-xl)*Mx) End;
function fu(y: real): integer; {berechnet u aus y }
Begin fu:=round((yo-y)*My) End;
function fx(r: integer): real ; {berechnet x aus r}
Begin fx:=xl+r/Mx End;
function fy(u: integer): real ; {berechnet y aus u}
Begin fy:=yo -u/My End;
Procedure Fenster_festlegen;
Begin xr:=StrToFloat(Form1.Ed_xr.text);
xl:=StrToFloat(Form1.Ed_xl.text);
yu:=StrToFloat(Form1.Ed_yu.text);
yo:=StrToFloat(Form1.Ed_yo.text);
D :=StrToFloat(Form1.Ed_d.text );
rmax:=Form1.width; umax:=Form1.height;
MX:=rmax/(xr-xl); MY:=umax/(yo-yu)
End;
Procedure Koordinatensystem_zeichnen;
Begin
gezeichnet:= true;
with Form1.canvas do
begin pen.color:=clblue;
r0 := round(-xl*MX); { Bildabszisse des Ursprungs }
u0 := round( yo*MY); { Bildordinate des Ursprungs }
MoveTo(0,u0);LineTo(rmax,u0); { x-Achse zeichnen }
MoveTo(r0,0);LineTo(r0,umax); { y-Achse zeichnen } end;
End;
Procedure Achsen_skalieren;
var i: integer;
Begin
with Form1.canvas do
begin for i:=0 to round((xr - xl)/D) do
begin x:=xl+i*D ; MoveTo(fr(x),u0); LineTo(fr(x),u0-3); end;
for i:=0 to round((yo -yu)/D) do
begin y:=yu+i*D; MoveTo(r0,fu(y)); LineTo(r0+3,fu(y)); end;
end;
End;
Procedure Schaubild_zeichnen;
Begin
with Form1.canvas do
begin FOR r := 0 TO rmax DO
begin x:=fx(r);
y:=f(x);
Pixels[r,fu(y)]:=clblue;
x:=fx(r);
y:=fa(x);
Pixels[r,fu(y)]:=clred;
;;;
end;
end;
End;
procedure Wertetabelle;
var i: integer;
Begin
Fenster_festlegen;
Form1.LB_tab.Items.Add(' x y');
for i:= 0 to round((xr-xl)/D) do
begin x:=xl+i*D;
Form1.LB_tab.Items.Add(Format('%5.1f %6.2f',[x,f(x)])); end;
End;
procedure TForm1.Zeichnen1Click(Sender: TObject);
begin Fenster_festlegen;
Koordinatensystem_zeichnen;
Achsen_skalieren;
Schaubild_zeichnen;
end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin gezeichnet:=false; invalidate; LB_tab.clear; end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close; end;
procedure TForm1.FormCreate(Sender: TObject);
begin gezeichnet:=false; end;
procedure TForm1.FormPaint(Sender: TObject);
begin if gezeichnet
then begin Fenster_festlegen;
Koordinatensystem_zeichnen;
Achsen_skalieren;
Schaubild_zeichnen; end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin invalidate; end;
procedure TForm1.Wertetabelle1Click(Sender: TObject);
begin LB_tab.clear; Wertetabelle; end;
end.
Re: Informatik Liveticker
Celli - 30.01.2007, 15:53
da bekommt man ja echt richtig lust auf informatik ^^
Re: Informatik Liveticker
woohoo - 30.01.2007, 15:54
Haja wenn der Stolz uns so viel von dem Programm vorgibt und wir in der ganzen Stunde vllt 10 Zeilen davon schreiben^^
Re: Informatik Liveticker
woohoo - 30.01.2007, 16:22
unit spiral_u; {zeichnet spiralförmigen Sreckenzug}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Beenden1: TMenuItem; Loeschen1: TMenuItem; Start1: TMenuItem;
Ed_Seitenanzahl: TEdit; Ed_Drehwinkel: TEdit;
Label2: TLabel; Label3: TLabel; Label1: TLabel;
procedure Beenden1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Start1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
VAR seitenanzahl,drehwinkel, richtung: integer; x,y : real;
Procedure re(winkel: integer); {dreht Zeichenrichtung links}
Begin richtung:=richtung-winkel End;
Procedure li(winkel: integer); {dreht Zeichenrichtung links}
Begin re(-winkel) End;
Procedure vw(laenge: real); {bewegt Zeichenstift weiter}
Begin x:=x+laenge*cos(richtung*pi/180);
y:=y-laenge*sin(richtung*pi/180);
Form1.canvas.LineTo(round(x),round(y))
End;
Procedure rw(laenge: real); {bewegt Zeichenstift zurück}
Begin vw(-laenge) End;
procedure turtleinit; {setzt festen Startpunkt}
Begin x:=120; y:=150; richtung:=0;
Form1.Canvas.MoveTo(round(x),round(y));
End;
Procedure Eingabe(var seitenanz,drehwi:integer);
Begin seitenanz:=StrToInt(Form1.Ed_seitenanzahl.text);
drehwi :=StrToInt(Form1.Ed_Drehwinkel.text);
End;
Procedure zeichne_Motiv(seitenanz,drehwi:integer);
CONST laenge = 20; {Länge erste Teilstrecke}
VAR i : integer;
Begin for i:=1 to seitenanz do
begin vw(laenge*i); li(drehwi); end;
End;
procedure zeichne_kurve;
begin repeat zeichne_motiv(seitenanzahl, drehwinkel);
until richtung mod 360 = 0;
richtung:=0;
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin invalidate end;
procedure TForm1.Start1Click(Sender: TObject);
begin eingabe(seitenanzahl,drehwinkel);
turtleinit;
zeichne_kurve;
end;
END.
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:09
Und weiter gehts
Re: Informatik Liveticker
hardi - 06.02.2007, 15:09
wer schreibt diesmal mit?
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:22
ja ich halt^^
Dreiecke zeichnen, wie aufregend... Spiegel Online rules
Re: Informatik Liveticker
hardi - 06.02.2007, 15:24
kein stress man. ich schreib doch auch mit! und der jonny bestimmt auch, oder? was geht so, hintersitzer? ^^
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:25
pff Stress... Ich bin kurz vorm Ratzen, schubs mich ma wenn du merkst dass mein Kopf droht, auf die Tastatur zu klatschen^^
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:29
unit spiral_u; {zeichnet spiralförmigen Sreckenzug}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Beenden1: TMenuItem; Loeschen1: TMenuItem; Start1: TMenuItem;
Ed_Seitenanzahl: TEdit; Ed_Drehwinkel: TEdit;
Label2: TLabel; Label3: TLabel; Label1: TLabel;
procedure Beenden1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Start1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
VAR seitenanzahl,drehwinkel, richtung: integer; x,y : real;
Procedure re(winkel: integer); {dreht Zeichenrichtung links}
Begin richtung:=richtung-winkel End;
Procedure li(winkel: integer); {dreht Zeichenrichtung links}
Begin re(-winkel) End;
Procedure vw(laenge: real); {bewegt Zeichenstift weiter}
Begin x:=x+laenge*cos(richtung*pi/180);
y:=y-laenge*sin(richtung*pi/180);
Form1.canvas.LineTo(round(x),round(y))
End;
Procedure rw(laenge: real); {bewegt Zeichenstift zurück}
Begin vw(-laenge) End;
procedure turtleinit; {setzt festen Startpunkt}
Begin x:=120; y:=150; richtung:=0;
Form1.Canvas.MoveTo(round(x),round(y));
End;
Procedure Eingabe(var seitenanz,drehwi:integer);
Begin seitenanz:=StrToInt(Form1.Ed_seitenanzahl.text);
drehwi :=StrToInt(Form1.Ed_Drehwinkel.text);
End;
Procedure zeichne_Motiv(seitenanz,drehwi:integer);
CONST laenge = 20; {Länge erste Teilstrecke}
VAR i : integer;
Begin for i:=1 to seitenanz do
begin vw(laenge*i); li(drehwi); end;
End;
procedure zeichne_kurve;
begin repeat zeichne_motiv(seitenanzahl, drehwinkel);
until richtung mod 360 = 0;
richtung:=0;
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin invalidate end;
procedure TForm1.Start1Click(Sender: TObject);
begin eingabe(seitenanzahl,drehwinkel);
turtleinit;
zeichne_kurve;
end;
END.
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:40
Danke übrigens Hardi fürs Aktualisieren des Quelltextes... Ich bin heut eh nich dran mit Mitschreiben, musste ich letzte Woche
Re: Informatik Liveticker
ronronronny - 06.02.2007, 15:40
sry, bin irgendwie voll im stress!!!!....da isch mer einmal net da und scho blickt mers nemme^^, wobei mer ja sage muss dass ichs eigentlich no nie sooo richtig blickt hab *lol*
@hardi: isch voll öde hier hinte, könntsch ruhig mal vorbeischaun^^
Re: Informatik Liveticker
hardi - 06.02.2007, 15:42
romy: so, hab ich jetzt gemacht. hast gesehen? hab grad nach hinten geschaut ;)
ich raff den kram auch net. war aber auch vor 3 wochen das letzte mal da... da brauch ich mich auch net wundern . aber mir ist das auch relativ wurst...
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:43
Boah wird zeit für Pause, hab scho wieder Hunger.
Zum Glück gibts Kuchen^^
Re: Informatik Liveticker
ronronronny - 06.02.2007, 15:44
ROMY?????? :evil: ....willsch mich verarsche????.....pass auf sonst komm ich glei vor^^
....ja habs gsehn du witzbold.....mach mal nomal.....bidddddddddddddee :!:
Re: Informatik Liveticker
hardi - 06.02.2007, 15:48
sooo. zufrieden???
ja. weisch robin, ich nenn dich immer anders. immer so, wie dich manche lehrer nennen / genannt haben. dann wirds net langweilig.
rrrrrrrrrrronny (bentele)
rohmy (auch bentele)
robin (wolf)
jonny (buschhaus)
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:57
hmmm
Pause um, Kuchen weg...
Zum Glück hat der Hardi die Nimm2-Bonbons, die der Monti mir geschenkt hat^^
Re: Informatik Liveticker
MvO - 06.02.2007, 15:58
Jaja der Stolz weiß wieder mal nicht was er macht :?: :?: :?: :stupid
Re: Informatik Liveticker
woohoo - 06.02.2007, 15:59
MvO hat folgendes geschrieben: Jaja der Stolz weiß wieder mal nicht was er macht :?: :?: :?: :stupid
Kann ich verstehen... Ich weiß auch nicht, was er macht^^
Re: Informatik Liveticker
hardi - 06.02.2007, 16:00
woohoo hat folgendes geschrieben: hmmm
Pause um, Kuchen weg...
Zum Glück hat der Hardi die Nimm2-Bonbons, die der Monti mir geschenkt hat^^
ja, wenn du auch so doof bist, mir die zu geben? Hast erwartet , dass ich die zurück geb??? Depp!
Außerdem hab ich dir ja auch was abgegeben.
Achja. Und der Monti hat die dir auch nur gegeben, weil er se selbst von seinen eltern bekommen hat und sie nicht mag!!! also bild dir blos nix drauf ein! ;)
Re: Informatik Liveticker
woohoo - 06.02.2007, 16:01
Reg dich ab Hardi, weiß ich doch alles^^
Finds au ganz gut dass du die hast... Da brauch ich sie nich rumzuschleppen :roll:
Re: Informatik Liveticker
hardi - 06.02.2007, 16:05
unit spiral_u; {zeichnet spiralförmigen Sreckenzug}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Beenden1: TMenuItem; Loeschen1: TMenuItem; Start1: TMenuItem;
Ed_Seitenanzahl: TEdit; Ed_Drehwinkel: TEdit;
Label2: TLabel; Label3: TLabel; Label1: TLabel;
procedure Beenden1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Start1Click(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X1, Y1: Integer);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
VAR seitenanzahl,drehwinkel, richtung: integer; x,y : real;
Procedure re(winkel: integer); {dreht Zeichenrichtung links}
Begin richtung:=richtung-winkel End;
Procedure li(winkel: integer); {dreht Zeichenrichtung links}
Begin re(-winkel) End;
Procedure vw(laenge: real); {bewegt Zeichenstift weiter}
Begin x:=x+laenge*cos(richtung*pi/180);
y:=y-laenge*sin(richtung*pi/180);
Form1.canvas.LineTo(round(x),round(y))
End;
Procedure rw(laenge: real); {bewegt Zeichenstift zurück}
Begin vw(-laenge) End;
procedure turtleinit; {setzt festen Startpunkt}
Begin x:=120; y:=150; richtung:=0;
Form1.Canvas.MoveTo(round(x),round(y));
End;
Procedure Eingabe(var seitenanz,drehwi:integer);
Begin seitenanz:=StrToInt(Form1.Ed_seitenanzahl.text);
drehwi :=StrToInt(Form1.Ed_Drehwinkel.text);
End;
Procedure zeichne_Motiv(seitenanz,drehwi:integer);
CONST laenge = 20; {Länge erste Teilstrecke}
VAR i : integer;
Begin for i:=1 to seitenanz do
begin vw(laenge*i); li(drehwi); end;
End;
procedure zeichne_kurve(seitenzahl,drehw: integer);
begin repeat zeichne_motiv(seitenzahl, drehw);
until richtung mod 360 = 0;
richtung:=0;
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin invalidate end;
procedure TForm1.Start1Click(Sender: TObject);
begin eingabe(seitenanzahl,drehwinkel);
turtleinit;
zeichne_kurve(seitenanzahl,drehwinkel);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X1, Y1: Integer);
begin x:=x1; y:=y1 ;
canvas.moveto(round(x),round(y));
eingabe(seitenanzahl,drehwinkel);
zeichne_kurve(seitenanzahl,drehwinkel);
end;
END.
Re: Informatik Liveticker
woohoo - 06.02.2007, 16:23
Boah is des n Stress, ständig Fenster wegklicken wenn der vorbeirennt... Un dann noch so tun als ob alles tut, obwohl der Bildschirm komplett leer is...
Jetz muss ich sogar gucken dass ich nich zu laut tipp, weil vor lauter Peilungslücke in dem Raum hier kaum jemand sonst am Schreiben is^^
Re: Informatik Liveticker
woohoo - 06.02.2007, 16:25
So Aus de Maus, ich geh jetz...
Re: Informatik Liveticker
Funda - 06.02.2007, 17:14
Ihr scheint euch ja sehr für Informatik zu interessieren.....
:lol:
Re: Informatik Liveticker
hardi - 06.02.2007, 17:16
Funda hat folgendes geschrieben: Ihr scheint euch ja sehr für Informatik zu interessieren.....
:lol:
ne, also ich für meinen Teil nicht im Geringsten. Ich finds total öde^^. Vorallem weil ich glaube, das heute kaum noch was mit Delphi (So heißt das Programm, mit dem wir programmieren) gemacht wird....
Re: Informatik Liveticker
woohoo - 06.02.2007, 17:24
Informatik ist klasse. Das, was wir im Unterrichtsfach Informatik machen, nicht. Delphi ist öde, wenn wir Programme schreiben, die der Stolz vor 30 Jahren entworfen hat, und die keinen wirklichen Nutzen haben wie z.B. ein Taschenrechner. Öde ist auch, dass der Unterricht nur aus einem ewig langsamen hin und her besteht, was man jetzt schreiben soll, und der Stolz einem dann sowieso 97% des Programms vorgibt und wir dann vllt 10 Zeilen schreiben müssen damits fertig ist.
Aber so gesehen sinds geschenkte Punkte bisher, und da ich in Info rumsurfen kann wie daheim, ists auch kein großer Zeitverlust, also geh ich hin...
Re: Informatik Liveticker
Funda - 06.02.2007, 17:29
Soso .. Delphi ^^ hör ich zum ersten mal glaub ich...
Ihr seid nur Jungs oder ?? ALso psycho isch besser wirklich !!
Re: Informatik Liveticker
woohoo - 06.02.2007, 17:39
Ja sind nur Jungs. Wahrscheinlich aus dem Grund, dass jedes Mädchen, das Interesse an Informatik hat, denkt, sie würde das einzige Mädchen sein und deshalb was anderes wählt :roll:
Delphi kennt außer Freaks und Informatikschülern auch keiner. Ist nix wichtiges.
Und ob Psycho mit nem einstelligen Schnitt um die 5 Punkte wirklich besser ist, wage ich zu bezweifeln. Zudem kann ich da nich surfen und über einen Meter Entfernung chatten^^
Re: Informatik Liveticker
hardi - 06.02.2007, 17:39
jep. wir sind nur jungs... schade eigentlich ;)
wie in physik halt...
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:06
Uuund weiter gehts... Heute nicht dabei: Tobi und Hardi, die Drückeberger...
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:08
Stolz steht vorne, nix geht, aber hinten klappert kräftig eine Tastatur... ma sehn was Marcel so schreibt... :roll:
Re: Informatik Liveticker
MvO - 13.02.2007, 15:09
irgend was muss man ja machen
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:10
Ja, aber was machen hat wohl wenig mit Info zu tun, oder^^
Re: Informatik Liveticker
ronronronny - 13.02.2007, 15:13
.....man ich hätt doch zu hause bleiben sollen, is ja voll öde hier....... :(
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:14
Ouh jetz machter n Beamer aus... Jetz hoff ich mal dass einer aufgepasst hat, ich weiß nur dass wir Sechsecke malen müssen...
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:24
Ronny hatter erwischt^^
Re: Informatik Liveticker
ronronronny - 13.02.2007, 15:28
was denn, von wega erwischt^^......ich hab nur de anschluss verlorn ghabt *lol*
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:29
interessante Theorie... Kann ich etwas verlieren, das ich nie besaß?
nee, hab Dusel gehabt, aber jetz hat er den Beamer ja wieder an^^
Re: Informatik Liveticker
ronronronny - 13.02.2007, 15:31
ohh man wohoo..........naja egal beamer is ja wie du scho erkannt hasch wieder an....
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:40
toll jetz hängen lauter 6ecke vor dem Quelltext, wie soll ichn jetz abtippen?
Re: Informatik Liveticker
thomas - 13.02.2007, 15:44
naa ihr digital-einsnuller??? wieder was besseres zu tun wie informatik??? tjaa ich auch, un ich muss net mal in der schule dazu sein!!! viel spass noch, bis glei hab noch bk :cry:
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:53
Jo viel Spass dann in BK, ich lauf gemütlich heim...
Und wenn du einma hier warst, wird dir au klar dass es nix unwichtigeres gibt als den Scheiß den wir hier machen... Das ich nich über der Tastatur einpenn liegt nur am Kaffee von vorhin^^
Re: Informatik Liveticker
MvO - 13.02.2007, 15:58
was soll des eigentlich, wer will schon ein Wabenmuster malen, so ein Müll
Re: Informatik Liveticker
woohoo - 13.02.2007, 15:59
Haja, interessant wie trocknende Farbe...
Aber: Dank Informatik bin ich hier Chefspammer^^
Re: Informatik Liveticker
woohoo - 13.02.2007, 16:24
unit muster_u; {erzeugt Teppich mit Muster}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu; Start1: TMenuItem; Loeschen1: TMenuItem; Beenden1: TMenuItem;
Edit1: TEdit; Label1: TLabel;
procedure Start1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
Var m: integer;
VAR richtung: integer; x,y : real; sh: boolean;
{x,y Zeichenort, richtung Winkel bzgl. x-Achse ,sh Zeichenstift hoch}
procedure re(winkel: integer); {dreht Zeichenrichtung rechts}
Begin richtung:=richtung-winkel; End;
procedure li(winkel: integer); {dreht Zeichenrichtung links}
Begin re(-winkel); End;
procedure vw(laenge: real); {bewegt Zeichenstift weiter}
Begin x := x+laenge * cos(richtung*pi/180);
y := y-laenge * sin(richtung*pi/180); {y_Bidschirmkoord. abwärts}
if sh then Form1.Canvas.MoveTo(round(x),round(y))
else Form1.Canvas.LineTo(round(x),round(y))
End;
procedure rw(laenge: real); {bewegt Zeichenstift zurück}
Begin vw(-laenge) End;
procedure pd; Begin sh:=false End; {Zeichenstift herunter}
procedure pu; Begin sh:=true End; {Zeichenstift hoch}
procedure gehezu(x1,y1: real); {geht zu Bildschirmkoordinaten }
Begin x:=x1; y:=y1; Form1.canvas.MoveTo(round(x),round(y)) End;
PROCEDURE muster1;
{zeichnet Muster 1 an momentaner Position ; Anfang und Ende gleichgerichtet mit Stift oben}
Begin
gehezu(40,40);
vw(5); re(45); pd; vw(sqrt(50)); pu; re(45); vw(5); re(90);
vw(5); re(45); pd; vw(sqrt(50)); pu; re(45); vw(5); re(90);
End;
PROCEDURE muster2;
{zeichnet Muster 2 an momentaner Position; Anfang und Ende gleichgerichtet mit Stift oben}
Begin
End;
Procedure gruppe(m,x,y: integer);
{zeichnet Gruppe von Mustern mit Modul m an Position x,y}
Begin
End;
Procedure teppich(m : integer);
{füllt ganze Zeichenfläche aus unter Beachtung des Moduls m}
Begin
End;
procedure TForm1.Start1Click(Sender: TObject);
begin m:=StrToInt(Edit1.text); richtung:=0; pu; muster1;;; end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin invalidate end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
end.
Re: Informatik Liveticker
MS - 13.02.2007, 21:10Neueste Informatik Hausi.
Ich hab mir mal gedacht, ich stell mal die hausaufgabe die wir aufbekommen haben hier rein. (das wo man das muster zeichnen muss)
Also auf eurem Formular ( Form1) müsst ihr ein editfeld (edit1) und einen Button (button1) anlegen.
Und dann den Folgenden code in das Codefenster kopieren.
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var X, Y ,Laenge:integer;
procedure StreckeZeichnen(var X, Y:integer; Laenge, Richtung: integer ); //die funktion ändert die werte der koorrdinaten mit denen sie aufgeruden wurde,
//auf den punkt, an dem das zeichnen aufgehört hat.
Var EndX, EndY :integer;
begin
Endx:= round(x + cos(richtung*pi/180) *Laenge);
EndY:= round(y - sin(richtung*pi/180)*Laenge);
Form1.canvas.Moveto(x, y);
Form1.canvas.Lineto(endx, endy);
X:= EndX;
Y:= EndY;
end;
procedure Quadrat(Richtung, SeitenLaenge: integer);
begin
StreckeZeichnen(X,Y,SeitenLaenge,Richtung+90);
StreckeZeichnen(X,Y,SeitenLaenge,Richtung);
StreckeZeichnen(X,Y,-SeitenLaenge,Richtung+90);
StreckeZeichnen(X,Y,-SeitenLaenge,Richtung);
StreckeZeichnen(X,Y,SeitenLaenge,Richtung+90); //endpunkt muss anders als der anfangspunkt sein
end;
procedure Dreieck(Richtung, Seitenlaenge:integer);
begin
StreckeZeichnen(X,Y,SeitenLaenge,Richtung+60);
StreckeZeichnen(X,Y,SeitenLaenge,Richtung-60);
StreckeZeichnen(X,Y,-SeitenLaenge,Richtung);
StreckeZeichnen(X,Y,SeitenLaenge,Richtung+60); //endpunkt muss anders als der anfangspunkt sein
end;
procedure Kreis();
var i:integer;
begin
for i:= 0 to 5 do
begin
Quadrat(-60*i,Laenge);
Dreieck(-60*i,Laenge);
end;
end;
procedure Muster();
var Zeile, Spalte: integer;
begin
for Zeile:= 1 to 200 do
begin
for Spalte:= 1 to 200 do
begin
kreis;
X:=round( X+Laenge+2*Laenge*cos(30*pi/180)); // um den nötigen abstand nach rechts versetzen
end;
y:= round(Y+Laenge+laenge*sin(60*pi/180)+laenge*sin(30*pi/180)); // versetzen um den nötigen abstand nach unten
case (Zeile mod 2) of //jede zweite zeile um den nötigen abstand versetzen
0: x:= 0;
1: x:= round(Laenge + laenge*sin(60*pi/180)-laenge*sin(30*pi/180));
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Laenge:= strtoint(form1.Edit1.text);
x:=0 ;Y:= round(Laenge+laenge*sin(60*pi/180)+laenge*sin(30*pi/180));
Muster();
end;
end.
sollte eigentlich funktionieren. Jedenfalls bei mir tut es.
edit:
also ich hab nen kleine Fehler entdeckt. immer wenn man ungerade zahlen als Laenge eingibt, dann verschiebt sich das bild immer ein bisschen. Vermutlich ein Rundungsfehler. Hab dazu bis jetzt aber keine Lösung.
Noch ein Verbesserungsvorschlag den man einbauen kann: in der Procedur Muster() die Zeilen und Spaltenanzahl aus der aktuellen breite und höhe des formulars berechnen,( ungefährer wert tut es ja.) ich hab als näherung für die Spaltenzahl die formbreite durch die doppelte länge benutzt. bei der zeilenzahl die formhöhe durch die doppelte länge.
einen löschknopf könnt ihr euch ja auch noch einbauen. befehl: invalidate;
Wer mir bei der Lösung des problems mit dem verschieben des Bildes helfen kann, soll das tun.
Re: Informatik Liveticker
woohoo - 27.02.2007, 15:05
Weiter gehts... Stolz macht glei nomma die Fliege... Ungestört surfen, was will man mehr?
Re: Informatik Liveticker
hardi - 27.02.2007, 15:07
ich will nimmer :(
Re: Informatik Liveticker
woohoo - 27.02.2007, 15:10
was is n dieses komische "modul m"?
Re: Informatik Liveticker
MS - 27.02.2007, 15:10
also ich kenn jedesmal nach informatik das halbe internet auswendig, von dem was wir gemacht haben, oder noch machen, werd ich dann wieder keinen blassen schimmer haben :P
Re: Informatik Liveticker
MS - 27.02.2007, 15:21
wenn jemand das 5 muster 0 fertig hat, bitte den code posten, weil ich bin grad nicht so sehr motiviert
Re: Informatik Liveticker
woohoo - 27.02.2007, 15:24
Max will provozieren hier^^
Re: Informatik Liveticker
MS - 27.02.2007, 15:28
zum pc runterfahren lassen( von nem anderen)
commandbox: shutdown -s -m "IP" -t "zeit in sekunden"
zum abbrechen shutdown -a -m "ip"
Re: Informatik Liveticker
MvO - 27.02.2007, 15:31aufgabe muster 0
PROCEDURE muster1;
{zeichnet Muster 1 an momentaner Position ; Anfang und Ende gleichgerichtet mit Stift oben}
Begin vw(5); re(45);pd; vw(sqrt(50));pu;
re(45); vw(5); re(90); vw(5); re(45);
pd; vw(sqrt(50));pu;
re(45); vw(5); re(90);
End;
PROCEDURE muster2;
{zeichnet Muster 2 an momentaner Position; Anfang und Ende gleichgerichtet mit Stift oben}
Begin re(90); vw(5); li(135);
pd; vw(sqrt(50)); pu;
re(45); vw(5); re(90); vw(5); re(45);
pd; vw(sqrt(50)); pu;
re(45); vw(5); re(90); vw(10); re(90);
End;
Procedure gruppe(m,x,y: integer);
{zeichnet Gruppe von Mustern mit Modul m an Position x,y}
Begin gehezu(x,y);
muster1; vw(10); muster1; vw(10); muster1; vw(10); muster1; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster2; vw(10); muster1; vw(10); muster2; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster1; vw(10); muster1; vw(10); muster2; vw(10); muster2;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster2; vw(10); muster2; vw(10); muster1; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster1; vw(10); muster2; vw(10); muster1; vw(10); muster2;
End;
Procedure teppich(m : integer);
{füllt ganze Zeichenfläche aus unter Beachtung des Moduls m}
var i,j:integer;
Begin gehezu(x,y);
for i:=0 to trunc(Form1.Height/50) do
for j:=0 to trunc(Form1.width/50) do
gruppe(1,j*50,i*50);
End;
Re: Informatik Liveticker
MvO - 27.02.2007, 16:00wie Stolz
unit muster_u; {erzeugt Teppich mit Muster}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu; Start1: TMenuItem; Loeschen1: TMenuItem; Beenden1: TMenuItem;
Edit1: TEdit; Label1: TLabel;
procedure Start1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
Var m: integer;
VAR richtung: integer; x,y : real; sh: boolean;
{x,y Zeichenort, richtung Winkel bzgl. x-Achse ,sh Zeichenstift hoch}
procedure re(winkel: integer); {dreht Zeichenrichtung rechts}
Begin richtung:=richtung-winkel; End;
procedure li(winkel: integer); {dreht Zeichenrichtung links}
Begin re(-winkel); End;
procedure vw(laenge: real); {bewegt Zeichenstift weiter}
Begin x := x+laenge * cos(richtung*pi/180);
y := y-laenge * sin(richtung*pi/180); {y_Bidschirmkoord. abwärts}
if sh then Form1.Canvas.MoveTo(round(x),round(y))
else Form1.Canvas.LineTo(round(x),round(y))
End;
procedure rw(laenge: real); {bewegt Zeichenstift zurück}
Begin vw(-laenge) End;
procedure pd; Begin sh:=false End; {Zeichenstift herunter}
procedure pu; Begin sh:=true End; {Zeichenstift hoch}
procedure gehezu(x1,y1: real); {geht zu Bildschirmkoordinaten }
Begin x:=x1; y:=y1; Form1.canvas.MoveTo(round(x),round(y)) End;
PROCEDURE muster1;
{zeichnet Muster 1 an momentaner Position ; Anfang und Ende gleichgerichtet mit Stift oben}
Begin vw(5); re(45);pd; vw(sqrt(50));pu;
re(45); vw(5); re(90); vw(5); re(45);
pd; vw(sqrt(50));pu;
re(45); vw(5); re(90);
End;
PROCEDURE muster2;
{zeichnet Muster 2 an momentaner Position; Anfang und Ende gleichgerichtet mit Stift oben}
Begin re(90); vw(5); li(135);
pd; vw(sqrt(50)); pu;
re(45); vw(5); re(90); vw(5); re(45);
pd; vw(sqrt(50)); pu;
re(45); vw(5); re(90); vw(10); re(90);
End;
Procedure gruppe(m,x,y: integer);
{zeichnet Gruppe von Mustern mit Modul m an Position x,y}
var i,j,rest: integer;
Begin for i:=0 to m-1 do
for j:=0 to m-1 do
begin gehezu(10*j + x, 10*i +y); rest := i*j mod m;
if rest mod 2 =0 then muster1 else muster2; end;
{gehezu(x,y);
muster1; vw(10); muster1; vw(10); muster1; vw(10); muster1; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster2; vw(10); muster1; vw(10); muster2; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster1; vw(10); muster1; vw(10); muster2; vw(10); muster2;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster2; vw(10); muster2; vw(10); muster1; vw(10); muster1;
rw(40); re(90); vw(10); li(90);
muster1; vw(10); muster1; vw(10); muster2; vw(10); muster1; vw(10); muster2; }
End;
Procedure teppich(m : integer);
{füllt ganze Zeichenfläche aus unter Beachtung des Moduls m}
var a,b:integer;
Begin for a:=0 to 20 do
for b:=0 to 20 do
gruppe(m, a*m*10 , b*m*10);
End;
procedure TForm1.Start1Click(Sender: TObject);
begin m:=StrToInt(Edit1.text); richtung:=0; pu; gehezu(100,100) ;teppich(m); end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin invalidate end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
end.
Re: Informatik Liveticker
woohoo - 27.02.2007, 16:02
*gähn*
Re: Informatik Liveticker
hardi - 27.02.2007, 16:03
woohoo hat folgendes geschrieben: *gähn*
danke für den beitrag.. ich hau dir jetzt eine rein! moment kurz....
Re: Informatik Liveticker
woohoo - 27.02.2007, 16:04
das is offtopic hier, ich darf das...
AU!
Re: Informatik Liveticker
hardi - 27.02.2007, 16:05
ja. das hast du davon , wenn du im unterricht net aufpasst!
Re: Informatik Liveticker
woohoo - 27.02.2007, 16:06
Du Depp hast dafür gesorgt dass ich ne halbe Stunde lang nich richtig surfen konnt, weil der Stolz hinter mir (-> bei dir am PC) saß, un jetz beschwerst du dich wenn mir langweilig is? moment, smiley suchen...
-> :nein1 da^^
Re: Informatik Liveticker
hardi - 27.02.2007, 16:07
hey^^
1. des war am pc vom jonny
2. du hast trotzdem die ganze zeit gesurft, weil der stolz des eh net sieht
Re: Informatik Liveticker
woohoo - 27.02.2007, 16:08
hihi, schneller
ach du ARSCH!
das:
"1. und? du saßst daneben
2. und? mit oberkörper direkt vorm monitor, unbequem^^"
hab ich 10 sekunden vor deinem Post geschrieben...
Nehmt dem Deppen die Modrechte!
Re: Informatik Liveticker
hardi - 27.02.2007, 16:10
das kann nur der micha und ich selbst... und ich glaube, keiner wird das machen ^^ ;)
Re: Informatik Liveticker
waldmann - 27.02.2007, 17:32
gegen geld tu ich doch fast alles :D
Re: Informatik Liveticker
hardi - 06.03.2007, 15:03
here we go ^^....
Re: Informatik Liveticker
Funda - 06.03.2007, 15:06
hat wieder eure anspruchsvolle und herausfordernde informatik stunde angefangen ?? :D :D
Re: Informatik Liveticker
MS - 06.03.2007, 15:07
noch keine zeile code programmiert, aber schon wieder ins forum geschrieben
Re: Informatik Liveticker
woohoo - 06.03.2007, 15:09
ICQ 2 Go tut^^
Re: Informatik Liveticker
hardi - 06.03.2007, 15:10
Funda hat folgendes geschrieben: hat wieder eure anspruchsvolle und herausfordernde informatik stunde angefangen ?? :D :D
haja geht voll ab hey^^
Re: Informatik Liveticker
Funda - 06.03.2007, 15:13
jaaa hardi voll alle mit dabei gel^^
sooo ich mach jetzt chemie
Re: Informatik Liveticker
MS - 06.03.2007, 15:30
Hey, versteht eigentlich irgendjemand hier im Raum wie der auf seine doofen Variablenabkürzungen kommt. Ich jedenfalls nicht. Außerdem weiß ich nie was die Programme am ende machen sollen. ich schreib da immer nur ab. aber mal im ernst.
Zitat: Der Hauptprogrammierer sagt zum unterprogrammmierer: Schreiben sie mir das Programm 6Wurf0,. Benutzen sie die Variablen AsU und Pw und u0 r0 ...."
Man, ich raff nicht wie der sich sollche nichtssagenden variablennamen benutzen kann
Re: Informatik Liveticker
MS - 06.03.2007, 15:50
So, ich dachte ich stell hier mal ne weitere "Bombenanleitung rein"
Erstelle eine neue Textdatei. (rechtsklick -> neu ->textdatei)
öffne sie und füge folgenden text ein.
Zitat: shutdown -s -m 10.1.143.1 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.2 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.3 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.4 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.5 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.6 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.7 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.8 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.9 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.10 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.11 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.12 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.13 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.14 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
shutdown -s -m 10.1.143.15 -t 30 -c "Zum abbrechen tippe innerhalb von 30 sekunden in die eingabekonsole shutdown -a ein"
wahlweiße kannst du die zahl 30 auch durch kleinere zahlen ersetzen. :-)
jetzt speicherts du deine änderungen an der datei ab.
Du schließt sie und benennst sie in Massenbombe.bat um.
jetzt öffnest du sie während Informatik mit einem Doppelklick.
Viel Spaß[/quote]
Re: Informatik Liveticker
hardi - 06.03.2007, 15:56
was hatn der pc vom stolz für ne IP? ^^ :evil: :evil: :evil:
Re: Informatik Liveticker
woohoo - 06.03.2007, 16:03
aber nich auf die tastatur krümeln da hinten^^
Re: Informatik Liveticker
hardi - 06.03.2007, 16:04
hoppla.... zu spät... sorry. tut mir leid
Re: Informatik Liveticker
woohoo - 06.03.2007, 16:08
Hardi liegt auf der Tastatur vor lachen weil er ne Variable "Max" gefunden hat... schon arm hier^^
Re: Informatik Liveticker
hardi - 06.03.2007, 16:10
ja toll!
ich will auch ne variable, die nach mir benannt wird!!!
diskriminierung!!!!
ich muss mir da mal was überlegen. das ,,hart´sche gesetz" oder ,,Satz des Hardi" oder ,,hart´sche Konstante" . da wird mir scho was einfallen^^
Re: Informatik Liveticker
woohoo - 06.03.2007, 16:10
Berechne lieber das scheiß Schaubild was wir grad machn müssen un kopiers hier rein^^
Re: Informatik Liveticker
MS - 06.03.2007, 16:10
Ich glaub nicht das das mit dem Stolz seinem, Rechner tut. ich habs mal ausprobiert als er weg war, aber hab keine passende Ip gefunden. aber vielleicht hat er das bei sich auch abgeschaltet, das geht.
Re: Informatik Liveticker
hardi - 06.03.2007, 16:12
haja. der wird sich schon irgendwie geschützt haben...
also ---> wer hackt sich als erstes beim stolz einzuhacken ? wo sind die freaks, die des so lockerflockig können?
Re: Informatik Liveticker
hardi - 06.03.2007, 16:23
da, bitte:
Code:
unit wurf_U; {Statistik der Augensumme bei 2 Würfeln}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu; Start1: TMenuItem; Beenden1: TMenuItem;
Tabelle1: TMenuItem; Schaubild1: TMenuItem; Loeschen1: TMenuItem;
Label1: TLabel; Label2: TLabel; Label3: TLabel;
Ed_Anz: TEdit;
LB_Wurf: TListBox;
LB_Ausw: TListBox;
procedure Start1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Tabelle1Click(Sender: TObject);
procedure Schaubild1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen}
end;
var Form1: TForm1;
implementation {$R *.DFM}
TYPE Feldtyp = ARRAY[2..12] OF integer;
VAR Anzahl,Max : integer; Augensumme : Feldtyp;
PROCEDURE Anfangswerte_setzen( var n: integer; var ASu: Feldtyp);
VAR i : integer;
BEGIN n:=StrToInt(Form1.Ed_Anz.text );
randomize;
for i:= 2 to 12 do Asu[i]:=0;
END;
FUNCTION Wuerfelaugensumme: integer;
VAR Wuerfelzahl1, Wuerfelzahl2 : integer;
BEGIN wuerfelzahl1:= random(6) +1;
wuerfelzahl2:= random(6) +1;
wuerfelaugensumme:=wuerfelzahl1 + wuerfelzahl2 ;
END;
PROCEDURE Statistik_aufstellen( n:integer; var ASu:Feldtyp);
VAR i, Summe : integer;
BEGIN FOR i := 1 TO n DO
BEGIN Summe:=Wuerfelaugensumme;
Asu[Summe]:=Asu[Summe]+1;
Form1.LB_Wurf.Items.Add(Format('%5d',[Summe]));
END;
END;
PROCEDURE Statistik_auswerten( n: integer;ASu: Feldtyp; Max:integer);
VAR i : integer; PW : ARRAY[2..12] OF real;
BEGIN for I:=2 to 12 do
pw[I]:=Asu[I]/n*100;
for i:=2 to 12 do
Form1.LB_Ausw.Items.Add
(Format('%3d',[i])+ Format('%4d',[ASu[i]])+ Format('%7.1f',[pw[i]]));
END;
Procedure Zeichnen(n,Max:integer; Asu :Feldtyp);
Var i,r0,u0,u: integer ;
Begin r0:=10; u0:=350 ;
u0:=form1.height-100;
with Form1.Canvas do
begin pen.color:=clblue;
for i:=2 to 12 do
begin
u:=asu[i]*10;
rectangle(r0 + 10*i,u0-u, r0 +5+10*i,u0);
r0:=r0+10;
end;
end;
End;
procedure TForm1.Start1Click(Sender: TObject);
begin Anfangswerte_setzen(Anzahl,Augensumme);
Statistik_aufstellen(Anzahl,Augensumme) end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin Form1.LB_Wurf.Clear ;Form1.LB_Ausw.Clear; Invalidate end;
procedure TForm1.Tabelle1Click(Sender: TObject);
begin Statistik_auswerten(Anzahl,Augensumme,Max) end;
procedure TForm1.Schaubild1Click(Sender: TObject);
begin Zeichnen(Anzahl,Max,Augensumme) end;
END.
Re: Informatik Liveticker
woohoo - 13.03.2007, 15:04
weitergehts
Re: Informatik Liveticker
hardi - 13.03.2007, 15:26
boah. voll langweilig wieder^^
aber man kann chatten . das ist kuhl ;)
Re: Informatik Liveticker
woohoo - 13.03.2007, 15:27
ja. über 40cm Entfernung^^
Re: Informatik Liveticker
hardi - 13.03.2007, 16:17
Code: unit sort_U; {sortiert durch Suchen der kleinsten Zahl und Vertauschen nach unten}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;
type TForm1 = class(TForm)
MainMenu1: TMainMenu; Ausgabe1: TMenuItem; Beenden1: TMenuItem;
Wuerfeln1: TMenuItem; Sortieren1: TMenuItem; Loeschen1: TMenuItem;
Zeichnen1: TMenuItem; Eingabe1: TMenuItem;
Ed_Anzahl: TEdit; Ed_Nummer: TEdit; Ed_Wert: TEdit;
Ed_pause: TEdit; Ed_ein_platz: TEdit; Ed_ein_wert: TEdit;
Label1: TLabel; Label2: TLabel; Label3: TLabel;
Label5: TLabel; Label6: TLabel; Label4: TLabel;
Label7: TLabel; Label8: TLabel;
LB_tab: TListBox;
procedure Ausgabe1Click(Sender: TObject);
procedure Wuerfeln1Click(Sender: TObject);
procedure Loeschen1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Sortieren1Click(Sender: TObject);
procedure Zeichnen1Click(Sender: TObject);
procedure Eingabe1Click(Sender: TObject);
private { Private-Deklarationen} public { Public-Deklarationen} end;
var Form1: TForm1;
implementation {$R *.DFM}
CONST Max = 100;
TYPE Elementtyp = integer; Feldtyp = ARRAY[1..Max] OF Elementtyp;
VAR Anzahl : integer; Feld : Feldtyp; fertig : boolean;
procedure Feld_wuerfeln(var n: integer; var f:feldtyp);
var i: integer;
Begin randomize; n:=StrToInt(Form1.Ed_Anzahl.text);
for i:= 1 to n do f[i]:=random(2*n)+1;
End;
procedure Feld_eingeben(n: integer;F: Feldtyp);
var i: integer;
Begin n:=StrToInt(Form1.Ed_Anzahl.text); fertig :=false;
End;
PROCEDURE Feld_ausgeben(n: integer; F: Feldtyp);
VAR i : integer;
Begin FOR i := 1 TO n DO Form1.LB_tab.Items.Add(Format('%5d',[F[i]])) End;
procedure Feld_zeichnen (n: integer; F: Feldtyp);
Var i,r0,u0: integer;
Begin r0:=300; u0:=300;
with form1.canvas do
begin pen.color:=clblue;
for i:=1 to n do begin moveto(r0+3*i,u0); lineto(r0+3*i,u0-2*f[i]) end;
end;
End;
procedure Zeichnung_loeschen (n: integer);
Var i,r0,u0: integer;
Begin r0:=300; u0:=300;
with form1.canvas do
begin pen.color:=clwhite;
for i:=1 to n do begin moveto(r0+3*i,u0); lineto(r0+3*i,0) end;
end;
End;
PROCEDURE Feld_sortieren(n: integer; var F: Feldtyp);
VAR i,k,q : integer; Hilf : Elementtyp;
Begin
for i:=1 to n-1 do
for k:=i+1 to n do
if f[i]>f[k] then begin hilf:=f[i]; f[i]:=f[k] ; f[k]:=hilf;
zeichnung_loeschen(n); feld_zeichnen(n,F);
sleep(StrToInt(form1.ed_pause.text)); end;
End;
procedure TForm1.Wuerfeln1Click(Sender: TObject);
begin Form1.LB_tab.Clear; feld_wuerfeln(Anzahl,Feld); Feld_ausgeben(Anzahl,Feld) end;
procedure TForm1.Eingabe1Click(Sender: TObject);
begin Form1.LB_tab.Clear; feld_eingeben(Anzahl,Feld); Feld_ausgeben(Anzahl,Feld) end;
procedure TForm1.Ausgabe1Click(Sender: TObject);
begin Form1.LB_tab.Clear ; feld_ausgeben(Anzahl,Feld); end;
procedure TForm1.Sortieren1Click(Sender: TObject);
begin feld_sortieren(Anzahl,Feld); Form1.LB_tab.Clear; feld_ausgeben(Anzahl,Feld) end;
procedure TForm1.Zeichnen1Click(Sender: TObject);
begin Zeichnung_loeschen(Anzahl); Feld_zeichnen(Anzahl,Feld) end;
procedure TForm1.Loeschen1Click(Sender: TObject);
begin Form1.LB_tab.Clear ; Invalidate end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin close end;
END.
SOOOOOOOOO
Re: Informatik Liveticker
woohoo - 13.03.2007, 16:18
DÖÖR GEEEHT!
Re: Informatik Liveticker
woohoo - 13.03.2007, 16:24
so, aus de maus, ich geh jetz^^
Re: Informatik Liveticker
woohoo - 20.03.2007, 15:00
hihi, keiner hat die Hausaufgabe^^
Re: Informatik Liveticker
hardi - 20.03.2007, 16:17
Code: unit faden_U;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type
TForm1 = class(TForm)
Ed_n: TEdit;
Label1: TLabel;
MainMenu1: TMainMenu;
Zeichnen1: TMenuItem;
Lschen1: TMenuItem;
Ende1: TMenuItem;
procedure Zeichnen1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation {$R *.DFM}
const ra=150; rm=300; um=175;
type ftyp= array[0..20] of single;
var n: integer;
x,y: ftyp;
procedure punkte_festlegen(var x,y : ftyp);
var n,i: integer; wi: single;
begin n:=strtoint(form1.ed_n.text);
wi:= 180/n;
for i:=0 to n-1 do
begin
x[i]:=cos(i * wi * Pi/180)*ra;
y[i]:=sin(i * wi * Pi/180)*ra;
end;
end;
procedure punkte_zeichnen(x,y : ftyp);
var n,i: integer; wi: single;
begin
with form1.canvas do
begin ellipse(rm-ra,um-ra,rm+ra,um+ra);
end;
end;
procedure punkte_verbinden(x,y :ftyp);
var n,i: integer; wi: single;
with form1.canvas do
begin
procedure TForm1.Zeichnen1Click(Sender: TObject);
begin
punkte_zeichnen(x,y);
punkte_verbinden(x,y);
end;
END.
Re: Informatik Liveticker
MvO - 24.04.2007, 14:26so
so jetzt gehts weiter;
neuer REKORD tatsächlich 5 Leute sind da
Re: Informatik Liveticker
woohoo - 24.04.2007, 14:41
...un der Stolz chillt da vorn, während wir Kekse futtern^^
Re: Informatik Liveticker
hardi - 24.04.2007, 14:43
und ,,DER ROTE TEE" sauf ich auch die ganze zeit^^
schon gechillt hier!
will heim...
scheiß geschichte... fuck... will net heim... muss heim...
Re: Informatik Liveticker
thomas - 24.04.2007, 14:54
servus ihr informatiker. gibt es für dateiordner eigentlich auch tabs? des wär gschickt. wenn ja, wo bekomm ich sowas her? gruß
Re: Informatik Liveticker
MvO - 24.04.2007, 15:08
der stolz spinnt total:
sein mathematischerverschönerungsverein
die araber haben uns alles überliefert
Re: Informatik Liveticker
Kontrabalg - 04.05.2007, 21:50
Muaha. Ich bin so böse.
Re: Informatik Liveticker
woohoo - 12.06.2007, 15:20
Code: unit baum_u; {zeichnet Baum rekursiv mit Igel-Befehlen}
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm)
Start_Bu: TButton;
procedure Start_BuClick(Sender: TObject); end;
var Form1: TForm1;
implementation {$R *.DFM}
uses igel_u;
procedure quadrat(s: single);
var i: integer;
begin
pd;
for i:=1 to 4 do
begin
vw(s); re(90); end; pu;
end;
procedure baum(l: real);
Begin
quadrat(l);
vw(l); re(90); vw(l); li(120); quadrat(l/2);
vw(l/2); li(90); quadrat(sqrt(l*l*3/4));
vw(sqrt(l*l*3/4)); li(60); vw(l); li(180);
End;
procedure TForm1.Start_BuClick(Sender: TObject);
begin pu; gehezu(250,400);setri(90); pd;
baum(100); {quadrat(100); }
end;
END.
Re: Informatik Liveticker
hardi - 12.06.2007, 15:20
thx
Re: Informatik Liveticker
MS - 26.06.2007, 14:09
Soo jetzt also zu 5t in Informatik, Nicht mal der Kreike ist da und das heißt was.
Re: Informatik Liveticker
hardi - 26.06.2007, 14:12
MS hat folgendes geschrieben: Soo jetzt also zu 5t in Informatik, Nicht mal der Kreike ist da und das heißt was.
ja. so schön ruhig grad... keiner der ständig über die schlechten witze vom stolz lacht....
Re: Informatik Liveticker
woohoo - 26.06.2007, 14:13
4 von 5 info-leuten grad online im forum, das sagt viel über unsere aufmerksamkeit aus^^
edit: und 4 von 4 (online-)leuten die innerhalb von 20 sekunden über dieses posting lachen^^
Re: Informatik Liveticker
hardi - 26.06.2007, 14:14
haja. wen juckt des auch? wir lernen ne programmiersprache, die der stolz vor 120 jahren gelernt hat....
edit: oder gar erfunden?????
Re: Informatik Liveticker
MS - 26.06.2007, 14:19
ich glaub der verdächtigt mich im internet zu sein. aber zum glück gibts ja "Alt + Tab"
Re: Informatik Liveticker
MvO - 26.06.2007, 14:21
Stolz der Alleinunterhalter , keiner hört ihm zu
Re: Informatik Liveticker
MS - 26.06.2007, 14:31
aber immer wenn ich was schreiben will, dann sprintet er fast zu mir her.
:( :( :( :(
ich glaub der sieht meinen Bildschrim mit seinem doofen MasterEye
Re: Informatik Liveticker
MvO - 26.06.2007, 14:37
der kämpft doch mit seinem anderen monitor wo er das gleiche bild wie auf dem beamer hat mit dem er ebenfalls kämpft
Re: Informatik Liveticker
hardi - 26.06.2007, 14:37
oder er traut dir einfach nicht....
Re: Informatik Liveticker
woohoo - 26.06.2007, 14:37
Max, bei deiner Signatur würd ich mich nich wundern warum der mich beim Tippen auf MasterEye sieht^^
edit: alter muss uns langweilig sein... :D
Re: Informatik Liveticker
hardi - 26.06.2007, 14:39
hmm. ja stimmt. schon etwas.... narf^^
Re: Informatik Liveticker
MvO - 26.06.2007, 14:41
Stolz: jetzt hätte ich gedacht der ball vom programm zeige dich zeigt sich
Man sieht aber nur einen leeren bildschirm
Re: Informatik Liveticker
woohoo - 26.06.2007, 14:50
:D absolut der Hammer die Stunde... kaum is Pause, isses Forum leer^^
Re: Informatik Liveticker
woohoo - 03.07.2007, 14:04
und weiter gehts... diesmal zu sechst...
Re: Informatik Liveticker
MvO - 03.07.2007, 14:08
zum letzten mal informatik YUHU
Re: Informatik Liveticker
hardi - 03.07.2007, 14:09
oh ja. endlich... son rotz hier^^
Re: Informatik Liveticker
woohoo - 03.07.2007, 14:11
Jetz ma gucken was wir für Berlin noch brauchen... für irgendwas muss man die Zeit ja nutzen^^
Re: Informatik Liveticker
hardi - 03.07.2007, 14:25
Code:
unit ball_U;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private { Private-Deklarationen}
public { Public-Deklarationen}
end;
tBall=class {Klassenname tball}
{Eigenschaften(Daten)}
x,y,vx,vy,r: single;
farbe : tColor;
{Methoden (zur Datenverarbeitung)}
constructor Erzeugen(fNeu: tColor; xNeu,yNeu,vxNeu,vyNeu,rNeu: single);
procedure ZeigeDich;
procedure BewegeDich;
end;
var Form1: TForm1;
ball1: tball; {Vereinbarung des Objektes(der Instanz) ball vom Typ tBall}
ball2: tball;
implementation {$R *.DFM}
const g=0; {9.81/100; }
constructor tBall.Erzeugen(fNeu: tColor; xNeu,yNeu,vxNeu,vyNeu,rNeu: single);
begin farbe := fNeu;;
r := rNeu;;
x := xNeu; y := yNeu;
vx:= vxNeu; vy:= vyNeu;
end;
procedure tBall.ZeigeDich; {Klassenname tball wird mit Methode ZeigeDich verknüpft, Definition}
begin with Form1.canvas do
begin brush.color:= farbe;
ellipse( round(x-r),round(y-r),round(x+r),round(y+r));
end;
end;
procedure tBall.BewegeDich;
begin x:=x+vx; y:=y +vy; vy:= vy +g ;
if x+r +5> Form1.Width then begin x:=Form1.Width -r-5; vx:=-vx end;
if x < r+5 then begin x:= r+5; vx:=-vx end;
if y+r +30> Form1.Height then begin y:=Form1.Height -r-30; vy:=-vy end;
if y < r+5 then begin y:=r+5; vy:=-vy end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin with Canvas do
begin pen.width := 2;
brush.Style := bsSolid;
pen.Mode := pmNOTXOR;
end;
{Randomize; }
{Objekt Ball erhält seine Daten beim Erzeugen}
ball1:=tball.erzeugen(clred,100,200,5,3,20);
ball2:=tball.erzeugen(clgreen,200,300,10,5,20);
end;
procedure stoss;
var hilf: single;
begin
if (sqrt(sqr(ball1.x-ball2.x)+sqr(ball1.y-ball2.y))) <= (ball1.r + ball2.r) then
begin
hilf:=ball1.vx; ball1.vx:=ball2.vx ; ball2.vx:=hilf;
hilf:=ball1.vy; ball1.vy:=ball2.vy ; ball2.vy:=hilf;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin ball1.ZeigeDich; {Objektname ball wird mit Methode ZeigeDich verknüpft, Aufruf}
Form1.Canvas.Pixels[round(ball1.x),round(ball1.y)]:=clred;
ball2.ZeigeDich; {Objektname ball wird mit Methode ZeigeDich verknüpft, Aufruf}
Form1.Canvas.Pixels[round(ball2.x),round(ball2.y)]:=clgreen;
ball1.bewegeDich;
ball2.bewegeDich;
stoss;
ball1.zeigeDich;
ball2.zeigedich;
end;
END.
Re: Informatik Liveticker
MvO - 03.07.2007, 14:36
was braucht ihr den für berlin, das brauchen wir in elba bestimmt auch
Re: Informatik Liveticker
woohoo - 03.07.2007, 14:56
Naja in Berlin können wir ja au noch einkaufen, un dort kostets Bier so viel wie hier au^^
Anonsten: Vllt sollt man an nen Wasserkocher un so Sach wie Digicam un Batterien denken (danke hardi^^), könnt nützlich sein
Re: Informatik Liveticker
MvO - 03.07.2007, 20:07
Soo, das war's.
Kein Informatik mehr!
Re: Informatik Liveticker
hardi - 09.08.2007, 14:31
MvO hat folgendes geschrieben: Soo, das war's.
Kein Informatik mehr!
ganz genau. eine ära geht zu ende^^
toll wars! aber vermissen werd ich info net...
R.I.P Informatik-Liveticker
---closed---
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum ABI 08
englisch Schluppeck-kurs - gepostet von Doro am Donnerstag 14.06.2007
ski-ausfahrt simon dee andy cee - gepostet von beze am Donnerstag 15.02.2007
sonstiges - gepostet von waldmann am Mittwoch 09.05.2007
Deutsch - gepostet von waldmann am Dienstag 22.05.2007
Monti vs. Oskar Matzerath - gepostet von Kontrabalg am Mittwoch 08.08.2007
Ähnliche Beiträge wie "Informatik Liveticker"
INFORMATIK - Halo (Mittwoch 08.02.2006)
Liveticker Nauheim - Lions 10.11.06 - Dani (Freitag 10.11.2006)
informatik - Cirith (Samstag 22.04.2006)
Informatik Ergebnisse.!!!!!! - pumared (Freitag 18.08.2006)
Liveticker Ingolstadt - Lions 17.09.06 - mystik (Sonntag 17.09.2006)
Liveticker Ingolstadt - Lions 26.10.06 - Dani (Donnerstag 26.10.2006)
Informatik! - lolita (Dienstag 26.06.2007)
Informatik Aufgabe 5 - DestinationSunshine (Freitag 15.12.2006)
***Liveticker Augsburg- Lions 6-10-06*** - Dani (Freitag 06.10.2006)
Liveticker Bremerhaven- Lions - Dani (Dienstag 05.12.2006)