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!