Ein Problem habe ich noch!

[Sofa5000]

Ich habe ein Programm in Pascal! Der Benutzer gibt eine Spalte und ein Zeile ein länge und die breite für ein Rechteck. Es wird ein Rechteck aus Sternen angezeigt! Das habe ich schon aber der Benutzer gibt auch noch einen Prüfpunkt ein und es soll überprüft werden ob dieser Punkt innerhalb, außerhalb oder auf der Linie liegt!

So sieht es bist jetzt aus:

Delphi-Quellcode:

program rechteck;
uses wincrt;
var spalt,zeil,i,lang,breit,prufsp,prufze:integer;
begin
     write('Gib die Spalte ein : ');
     readln(spalt);
     write('Gib die Zeile ein : ');
     readln(zeil);
     write('Gib die Länge ein : ');
     readln(lang);
     write('Gib die Breite ein : ');
     readln(breit);
     write('Gib den Prüfpunkt Spalte ein : ');
     readln(prufsp);
     write('Gib den Prüfpunkt Zeile ein : ');
     readln(prufze);
     clrscr;
     gotoxy(spalt,zeil);
     for i:= 1 to lang do
          write('*');
      for i:= 1 to breit-2 do begin
          gotoxy(spalt,zeil+i);
          write('*');
          gotoxy(spalt+lang-1,zeil+i);
          write('*');
     end;
     gotoxy(spalt,zeil+breit-1);
      for i:= 1 to lang do
          write('*');
    end.

Danke!

[Luckie]

Zeichne dir mal ein Rechteck auf und setz einen roten Punkt rein, irgendwo. Und dann kuckst du mal eine Weile dadrauf, bis dir klar wird, welche Bedingungen der Punkt erfüllen muss, um in dem Rechteck zu liegen. Eventuelle hilft es bei der Programmierung, wenn du die Punkte des Rechtecks mit deinen Variablenbezeichnungen beschriftest.

Mir wurde gerade von Daniel B noch gesagt, ich soll dir virtuell in deinen realen Hintern treten, wegen der fehlenden Delphi-Tags, die übrigens auch bei Pascal Code funktionieren, und wegen des nicht sehr aussagekräftigen Topics.

[Marco Haffner]

Außerdem erleichert es die Sache ungemein, wenn Du diese schönen Delphi-Code-Tags verwendest.

[Sofa5000]

Ich weiß schon wie ich rechnen muss das ich weiß wann der Punkt wo ist aber ich weiß keinen Pascal Befehl dafür. Es muss ein nicht so schwieriger sein!

[Luckie]

Es gibt keinen Befehl, der das für dich macht. Kleiner Tipp, kuck dir mal die "<" ">" Operastoren an.

Und so lange du noch kannst, editier bitte dein Topic und benutze die Delphi-Tags.

[andianon]

OK, auch wenn du es eigentlich nicht verdient hast:

Delphi-Quellcode:

imRechteck : Boolean;
...

imRechteck := ((prufsp > spalt) and 
               (prufsp < (spalt + breit)) and
               (prufze > zeil) and
               (prufze < (zeil + lang)));