Question

Cześć potrzebuję na dzisiaj program w PASCALU:

PROGRAM MA ZA ZADANIE POBIERAC WYSKOKOŚC I SZEROKOŚĆ PROSTOKĄTA I GO RYSOWAĆ(MA TO BYC ALBO PROCEDURA ALBO FUNKCJA)

Z GORY DZIEKI ZA POMOC.

Answer 1

program prostokat;
uses Crt,Graph;
const
sciezka = 'C:\FPC\';
var
Sterownik,Tryb,x1,y1,x2,y2:integer;

procedure prostokat(x1,y1,x2,y2:integer);
begin
line(x1,y1,x2,y1);
line(x1,y2,x2,y2);
line(x1,y1,x1,y2);
line(x2,y1,x2,y2);
end;


begin
clrscr;
writeln('Podaj wspolrzedne:');
writeln('x1: '); {lewy-gorny rog}
read(x1);
writeln('y1: '); {lewy-gorny rog}
read(y1);
writeln('x2: '); {prawy-dolny rog}
read(x2);
writeln('y2: '); {prawy-dolny rog}
read(y2);


Tryb:= m640x480;
Sterownik:=D8bit;
InitGraph(sterownik,Tryb,Sciezka);

prostokat(x1,y1,x2,y2);

Repeat until keypressed;
CloseGraph;
end.

Pozdrawiam :)