Witam:)
Mam wielki problem z którym nie mogę sobie sama poradzić. Mianowicie chodzi o turbo pascala i zadanie jakie muszę zrobić na najbliższą sobotę treśc zadania brzmi następująco:
Dla zadania wykonanego na ostatnich zajęciach wykonać:
- parametry pracy programu takie jak:
* znak wyswietlany na ekranie
* klawisze sterujące
* rozmiar okna
- należy przenieść do pliku konfiguracyjnego (tekstowego) i pobierać z niego dane podczas uruchomienia programu.
* --
Jeżeli rozmiar okna będzie mniejszy niż 78x22 to należy wokół obszaru narysować ramkę, z zakotwiczeniem do lewgo górnego narożnika.
No zadanie które robiliśmy na poprzednich zajęciach ma taką treść:
program g;
uses crt;
var X, Y: byte;
Znak: Char;
procedure Przesun(dX, dY: Integer);
begin
if (X+dX >=1)and(X+dX <=80) and
(Y+dY >=1)and(Y+dY <=24) then
begin
GoToXY(X,Y); write(' ');
X:=X+dX; Y:=Y+dY;
GoToXY(X, Y); write('*')
end
else
begin
Sound(1000); Delay(1000); NoSound;
end;
end;
begin
clrscr;
GoToXY(1,25);
write('W - gora, Z - dol, A - lewo, S - prawo, K - koniec');
X:=10; Y:=10;
Przesun(0,0);
repeat
Znak:=ReadKey;
case Upcase(Znak) of
'W': Przesun (0,-1);
'Z': Przesun (0,1);
'A': Przesun (-1,0);
'S': Przesun (1,0);
else
begin
Sound(1000); Delay(1000); NoSound;
end;
end;
until Upcase(znak)='K';
end.
Będę niezmiernie wdzięczna za szybką pomoc!!!
Pozdrawiam!
