1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:

// STRAHLEN-VIERECK

procedure TGrafik.GeradenClick(Sender: TObject);
VAR abstand,breite,xm,ym,x,y,x0,y0:integer;
begin
 ym:=Bild.Height;
 xm:=Bild.Width;
 y0:=StrToInt(yloED.Text);
 y:=StrToInt(yruED.Text);
 abstand:=StrToInt(AbstandED.Text);
 x0:=StrToInt(xloED.Text);

 Bild.Canvas.Pen.Color:=clblue;
 Repeat
   Bild.Canvas.MoveTo(x0,0);
   Bild.Canvas.LineTo(x0,y0);
   Bild.Canvas.MoveTo(x0,y);
   Bild.Canvas.LineTo(xm div 2,ym);
   x0:=x0+abstand
 until x0+abstand > StrToInt(xruED.Text);


end;

procedure TGrafik.RechteckClick(Sender: TObject);
var xLO,yLO,xRU,yRU : integer;
begin
 xLO:=StrToInt(xloED.Text);
 yLO:=StrToInt(yloED.Text);
 xRU:=StrToInt(xruED.Text);
 yRU:=StrToInt(yruED.Text);

 Bild.Canvas.Pen.Color:=clred;
 Bild.Canvas.Rectangle(xLo,yLO,xRU,yRU);
end;

procedure TGrafik.Button1Click(Sender: TObject);
var xmax, ymax : integer;
begin
 xmax:= Bild.Width;
 ymax:=Bild.Height;

 Bild.Canvas.Brush.Style:=bssolid;
 Bild.Canvas.Pen.Color:=clwhite;
 Bild.Canvas.Rectangle(0,0,xmax,ymax);

end;

end.

// STRAHLEN-VIERECK

// KEGEL

procedure TForm1.Button1Click(Sender: TObject);
 var s,gr,r,h,m,o,v :real;
begin
 r := spinedit1.Value;
 h := spinedit2.Value;
 gr := spinedit3.value;

 s:= Sqrt((Sqr(gr-r))+Sqr(h));

 //Berechnung Mantel
 m := (gr+r)*pi*s;
 labelm.caption := FloatToStrf(m,fffixed,10,4);

 //Berechnung Oberfläche
 o := gr*pi*(gr+s)+r*pi*(r+s);
 labelo.caption := FloatToStrf(o,fffixed,10,4);

 //Berechnung Volumen
 v := ((h*pi)/3)*(Sqr(gr)+gr*r+Sqr(r));
 labelv.caption := FloatToStrf(v,fffixed,10,4)
end;

// KEGEL 

// MITTERNACHTF



procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x1,x2:real;

begin
     //Einlesen
     a:=StrtoFloat(Edita.text);
     b:=StrtoFloat(Editb.text);
     c:=StrtoFloat(Editc.text);

     //Prüfen ob diskriminate kleiner 0

     if sqr(b)-4*a*c>0 then
                           begin
                            Editx1.Text:='fehler';
                            Editx2.Text:='fehler';
                           end

        else x1:= (-b+sqrt(sqr(b)-4*a*c))/2;
             x2:= (-b-sqrt(sqr(b)-4*a*c))/2;

     //Ausgabe
     Editx1.Text:=FloattoStr(x1);
     Editx2.Text:=FloattoStr(x2);



end;

end.

// MITTERNACHTF

// ANDERE MITTERNACHTF
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, Diskriminante, Ls1, Ls2: Real;
LoesungText1, LoesungText2: String;
begin
    //Eingabe; Umwandlung in Reele Zahlen
    a := StrToFloat(Edit1.Text);
    b := StrToFloat(Edit2.Text);
    c := StrToFloat(Edit3.Text);

  //Überprüfen ob es eine Quadratische Gleichung ist
  if a = 0 then
    Label6.Caption := 'Keine Quadratische Gleichung!'
  else //wenn es eine quadr. Gleichung ist, Gleichung lösen
    begin
    Diskriminante := b*b - 4*a*c;

    //Überprüfen ob es eine Lösung gibt
    if Diskriminante < 0 then
      Label6.Caption := 'Keine Lösung möglich!'
    else
      begin
      //Überprüfen ob es eine oder zwei Lösungen gibt
      if Diskriminante = 0 then //Einzigste Lösung berechnen
        begin
        Label6.Caption := 'Es gibt nur eine Lösung!';
        Ls1 := - b / (2*a);
        LoesungText1 := FloatToStr(Ls1);
        end
      else //Zwei Lösungen berechnen
        begin
        Label6.Caption := '2 Lösungen!';
        Ls1 := (- b + sqrt(Diskriminante)) / (2*a);
        Ls2 := (- b - sqrt(Diskriminante)) / (2*a);
        LoesungText1 := FloatToStr(Ls1);
        LoesungText2 := FloatToStr(Ls2);
        end;
      end;
    end;

  self.EditL1.Text:=LoesungText1;
  self.EditL2.Text:=LoesungText2;
end;

// ANDERE MITTERNACHTF

// PRIMZAHLSUCHE

procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Teiler,Wurzel,Anfang, Ende, Zaehler:integer;
    prim:boolean;
    Zeile:string;
begin
  Anfang:=SEAnfang.Value;
  Ende:=SEEnde.Value;
  Zaehler:=0;

  For Zahl := Anfang to Ende do
  Begin
    prim:=true;
    wurzel:=round(SQRT(Zahl));
    For teiler := 2 to wurzel do
      if Zahl mod teiler = 0
         then begin
                prim:=false;
                break;
              end;
     if prim = true then begin
                           Zeile:=Zeile+ intToStr(Zahl)+', ';
                           Zaehler:=Zaehler+1;
                         end;
     if zaehler = 10 then begin
                            Memo1.Lines.Add(Zeile);
                            Zaehler:=0;
                            Zeile:='';
                          end;
  end;
  Memo1.Lines.Add(Zeile);
end;
end.

// PRIMZAHLSUCHE

// PRIMZAHLTEST
procedure TForm1.Button1Click(Sender: TObject);
var Zahl, Teiler,n,S:integer;
    TS : string;
begin
  n:=0;
  S:=0;
  Zahl:=SEZahl.Value;
  for Teiler := 1 to Zahl do
    if Zahl mod Teiler = 0 then Begin
                                  TS := TS+IntToStr(Teiler)+',';
                                  n:=n+1;
                                  s:=S+Teiler;
                                end;
  EDAus.Text:=TS;
  if n = 2 then Label2.caption:= intToSTr(Zahl)+' ist Primzahl'
           else Label2.caption:= intToSTr(Zahl)+' ist keine Primzahl';
  if S-Zahl = Zahl   then vollkLa.caption := intToSTr(Zahl)+' ist eine vollkommene Zahl'
                     else vollkLa.caption:=''
end;
end.

// PRIMZAHLTEST

// TILGUNG

procedure TForm1.Button1Click(Sender: TObject);
var
Kredit,Rate,Prozent,Jahr,Monat,Monatzins,Laufzeit,Gesamt,Zinsen:real;
begin

Kredit:=  strtofloat(Edkredit.text);
Rate:=    strtofloat(Edrate.Text);
Prozent:= strtofloat(Edprozent.text);
Jahr:= 0;
Monat:= 0;
Ausre.lines.clear;
Monatzins:= kredit*prozent/100/12;


if Zinsen >= Rate then messagedlg('Zinsen zu groß', mterror, [mbOk] , 0)
else
while kredit > 0 do
                    begin
                    Monatzins:=kredit*prozent/100/12;
                    Zinsen:=Zinsen+Monatzins;
                    kredit:=kredit-Rate+Zinsen;
                    Monat:=Monat+1;

                    if Monat = 12 then

                                      begin
                                      Jahr:=Jahr+1
                                      Kredit:= Kredit+Zinsen-Rate;
                                      Monat:=0;
                                      Zinsen:=0;
                                      Zeile:= inttostr(Jahr)+char(9)+floattostrF(Kredit,ffFixed,10,2);
                                      end;


                    end;

Gesamt:= (Jahr*12+Monat)Rate+kredit;
edlaufzeit.text:= floattostr(Jahr);
edmonate.text:= floattostr(Monat);
edgesamt.text:=floattostr(Gesamt);

Ausgabe1La.Caption
Ausgabe2La.Caption
end;

end.

// TILGUNG

// PRIMZAHLLISTE


procedure TForm1.Button1Click(Sender: TObject);
var A,E, Zahl, Teiler, n,laenge:integer;
    w : real;
    prim:boolean;
    Zeile:string;
begin
  A:=SEAnfang.Value;
  E:=SEEnde.Value;
  memo1.Lines.Clear;
  Zeile:='';
  n:=0;
  For Zahl := A to E do
  begin
    prim:=true;
    w:=sqrt(Zahl);
    for Teiler := 2 to round(w) do
      if Zahl mod Teiler = 0 then prim:=false;

    if prim = true then Begin
                          Zeile:=Zeile+ IntToStr(Zahl)+' , ';
                          n:=n+1;
                        end;
    if n=10 then begin
                  laenge:=length(Zeile);
                  memo1.Lines.Add(copy(Zeile,1,laenge-2));
                  n:=0;
                  Zeile:='';
                end;
    laenge:=length(Zeile);
  end;
  laenge:=length(Zeile);
  memo1.Lines.Add(copy(Zeile,1,laenge-2));
end;
end.

// PRIMZAHLLISTE

// ZEICHEN/FARBEN

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Bild.canvas.Pixels[100,100] :=clblack;
end;

procedure TForm1.BerndClick(Sender: TObject);
begin
    bild.canvas.Pen.color:=clblue xor clwhite;
    bild.canvas.pen.mode:=pmxor;
    bild.canvas.moveto(150,200);
    bild.canvas.lineto(300,350);
     bild.canvas.pen.mode:=pmcopy;
     bild.canvas.pen.color:=shape1.brush.color;

end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     Bild.Canvas.Rectangle(50,150,250,350);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex = 0 then bild.Canvas.brush.Color:=clwhite;
if radiogroup1.ItemIndex = 1 then bild.Canvas.brush.Color:=clred;
if radiogroup1.ItemIndex = 2 then bild.Canvas.brush.Color:=clblue;
if radiogroup1.ItemIndex = 3 then bild.Canvas.brush.Color:=clgreen;
if radiogroup1.ItemIndex = 4 then bild.Canvas.brush.Color:=clblack;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   if colordialog1.Execute then bild.Canvas.pen.Color:=colordialog1.Color;
   if colordialog1.Execute then shape1.Brush.color:=colordialog1.Color;
end;

procedure TForm1.Button4Click(Sender: TObject);
var x1,y1,x2,y2,xm,ym:integer;
begin
   xm := bild.width;
   ym := bild.height;
   randomize;                   // Zufallsgenerator zufällig starten
   x1:=random(xm);
   y1:=random(ym);
   x2:=random(xm);
   y2:=random(ym);
   Bild.Canvas.Rectangle(x1,y1,x2,y2);
end;

procedure TForm1.Button5Click(Sender: TObject);
var x1,y1,x2,y2,xm,ym,i:integer;
begin
   xm := bild.width;
   ym := bild.height;
   randomize;                   // Zufallsgenerator zufällig starten
   for i:=1 to 100 do
   begin
     x1:=random(xm);
     y1:=random(ym);
     x2:=random(xm);
     y2:=random(ym);
      Bild.Canvas.Rectangle(x1,y1,x2,y2);
   end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var x1,y1,x2,y2,xm,ym,i:integer;
begin
   xm := bild.width;
   ym := bild.height;
   randomize;                   // Zufallsgenerator zufällig starten
   for i:=1 to 100 do
   begin
     x1:=random(xm);
     y1:=random(ym);
     x2:=random(xm);
     y2:=random(ym);
      Bild.Canvas.Ellipse(x1,y1,x2,y2);
   end;

end;

procedure TForm1.Button7Click(Sender: TObject);
var x1,y1,x2,y2,xm,ym,i:integer;
begin
   xm := bild.width;
   ym := bild.height;
   randomize;                   // Zufallsgenerator zufällig starten
   for i:=1 to 100 do
   begin
     x1:=random(xm);
     y1:=random(ym);
     x2:=random(xm);
     y2:=random(ym);
      Bild.Canvas.rectangle(x1,y1,x2,y2);
      Bild.Canvas.Ellipse(x1,y1,x2,y2);
end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var pcolor,bcolor: Tcolor;
    bs:TbrushStyle;
begin
pcolor:=bild.Canvas.pen.color;
bcolor:=bild.Canvas.brush.color;           //Farben merken
bs:=bild.canvas.brush.style;

bild.Canvas.brush.color:=clwhite;
bild.Canvas.pen.color:=clwhite;           // Farben auf weiß stellen
bild.canvas.brush.style:=bssolid;

bild.canvas.rectangle(0,0,bild.Width,bild.Height);     // Rechteck

bild.Canvas.pen.color:=pcolor;
bild.canvas.Brush.color:=bcolor;  // ursprüngliche farben wiederherstellen
bild.canvas.brush.style:=bs;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
 case radiogroup2.ItemIndex of
   0: bild.canvas.brush.Style:=bsSolid;
   1: bild.canvas.brush.Style:=bsClear;
   2: bild.canvas.brush.Style:=bsBdiagonal;
   3: bild.canvas.brush.Style:=bsCross;
   4: bild.canvas.brush.Style:=bshorizontal;
 end; //Ende von Case



end;

// ZEICHNEN/FARBEN

// WIE VIELE TAGE HAT EIN MONAT


procedure TForm1.Button1Click(Sender: TObject);
var m,j : integer;
    schaltjahr : boolean;
    moneyboy, swag, ausgabe : string;
begin
m := spinedit1.value;
j := spinedit2.value;

schaltjahr := false;
if j mod 4 = 0 then schaltjahr := true;
if j mod 100 = 0 then schaltjahr := false;
if j mod 400 = 0 then schaltjahr := true;

if schaltjahr = true then moneyboy := '29'
else if schaltjahr = false then moneyboy := '28';

case m of
1 : swag := 'Januar';
2 : swag := 'Februar';
3 : swag := 'März';
4 : swag := 'April';
5 : swag := 'Mai';
6 : swag := 'Juni';
7 : swag := 'Juli';
8 : swag := 'August';
9 : swag := 'September';
10 : swag := 'Oktober';
11 : swag := 'November';
12 : swag := 'Dezember';
end;

case m of
1,3,5,7,8,10,12 : ausgabe := 'Der Monat '+swag+' hat im Jahr '+inttostr(j)+' 31 Tage.';
2 : ausgabe := 'Der Monat '+swag+' hat im Jahr '+inttostr(j)+' '+moneyboy+' Tage.';
4,6,9,11 : ausgabe := 'Der Monat '+swag+' hat im Jahr '+inttostr(j)+' 30 Tage.';
end;

edit1.text := ausgabe;




{if m = 2 then Edit1.Text := 'Der Monat hat '+moneyboy+' Tage';
if (m = 1)
or (m = 3)
or (m = 5)
or (m = 7)
or (m = 8)
or (m = 10)
or (m = 12)
then Edit1.Text := 'Der Monat hat 31 Tage';
if (m = 4)
or (m = 6)
or (m = 9)
or (m = 11)
then Edit1.Text := 'Der Monat hat 30 Tage'}


end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
var schaltjahr : boolean;
    j : integer;
begin
try j := spinedit2.Value except spinedit2.Value:= 0 end;
j := spinedit2.Value;
schaltjahr := false;
if j mod 4 = 0 then schaltjahr := true;
if j mod 100 = 0 then schaltjahr := false;
if j mod 400 = 0 then schaltjahr := true;

if schaltjahr = true then CheckBox1.checked := true;
if schaltjahr = false then CheckBox1.checked := false;

end;

end.

// WIE VIELE TAGE HAT EIN MONAT

// SCHLEIFENZEUG

implementation

{$R *.DFM}

procedure TForm1.Salat1Click(Sender: TObject);
var n,xm,y,i:integer;
begin
  n:=100;
  xm:=bild.width;
  y:=0;

  for i := 1 to 20 do
   begin
     y:=y+10;
     bild.canvas.moveto(0,y);
     bild.Canvas.lineto(xm,y);
   end;

end;

procedure TForm1.ForSchleife1Click(Sender: TObject);

 var n,xm,y,x,ym,a,i:integer;
begin
  a:= spinedit1.Value;
  ym:=bild.height;
  n:= ym div a;
  y:=0;

  for i := 1 to n do
   begin
     y:=y+a;
     bild.canvas.moveto(0,y);
     bild.Canvas.lineto(xm,y);
   end;


   xm:=bild.width;
   n:= xm div a;
   x:=0;
   for i := 1 to n do
   begin
     x:=x+a;
     bild.canvas.moveto(x,0);
     bild.Canvas.lineto(x,ym);
   end;


end;

procedure TForm1.RepeatSchleife1Click(Sender: TObject);

var
  ym,xm,a,x,y,r :integer;
begin
  ym:= bild.height;
  xm:= bild.width;
  a:=spinedit1.Value;
  r:=spinedit2.value;
  x:=0;
  y:=0;
  bild.Canvas.ellipse(xm-2*r,ym-2*r,xm,ym);


  Repeat

    x:=x+a;
    bild.canvas.moveto(x,0);
    bild.Canvas.lineto(x,ym);

  Until x > xm-2*r-a;


  Repeat

    y:=y+a;
    bild.canvas.moveto(0,y);
    bild.Canvas.lineto(xm,y);

  Until  y > ym-2*r-a

  end;


procedure TForm1.WhileSchleife1Click(Sender: TObject);

var
  ym,xm,a,x,y,r :integer;
 begin
  ym:= bild.height;
  xm:= bild.width;
  a:=spinedit1.Value;
  r:=spinedit2.value;
  x:= 2*r;
while x < bild.height do
  begin
  x:=x+a;
  bild.Canvas.ellipse(x-2*r,x-2*r,x,x);

  end;

  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.execute then bild.canvas.pen.color:=colordialog1.color;
end;

end.

// SCHLEIFENZEUG

// TEILER

implementation

{$R *.DFM}

// Teilerberechnung Michael
procedure TForm1.Button1Click(Sender: TObject);

var Zahl,Teiler,n:integer;
    w:real;
    prim:boolean;
begin

     Zahl:= SEZahl.Value;
     prim := true;
     w:=sqrt(Zahl);

     for Teiler:= 2 to round(w) do
     if Zahl mod Teiler = 0 then Begin
                                     prim:=false
                                 end;
     // mod ist zur Restberechnung

     if prim then Label3.caption:= inttostr(Zahl)+' ist eine Primzahl'
              else Label3.caption:= inttostr(Zahl)+' ist keine Primzahl';

end;


// TEILER