Moduł rysowania linii (TP)

2011-03-16 19:05

Rejestracja: 8 lat temu

Ostatnio: 8 lat temu

0

Witam, mam problem

Mam na zadanie zrobić moduł rysujący linie i mam już problem na początku:

Unit line;
 interface
  procedure linia;
implementation
 uses crt;
  procedure linia;
begin
   line(50,50,100,100);
end;
end.

Niestety przy line wyskakuje błąd że brakuje kropki :O ale po korekcie i tak nie działa. Poza tym niedługo mam z tego sprawdzian.
Czy ktoś dobry może krok po kroku wyjaśnić z czym to się je ? Koleś zapowiedział, że będą zadania takie jak stwórz moduł rysujący figurę czy ustawiający kolor czcionki.

Pomóżcie zielonemu :/

edytowany 2x, ostatnio: madmike, 2011-03-16 19:48

Pozostało 580 znaków

2011-03-16 19:08
Moderator

Rejestracja: 12 lat temu

Ostatnio: 2 godziny temu

Lokalizacja: Wrocław

0

Ponieważ nazwa modułu to "Line". Zmień ją ;-)


Pozostało 580 znaków

2011-03-16 19:45

Rejestracja: 16 lat temu

Ostatnio: 18 godzin temu

0

A spodziewa się kropki, bo istnieje taka składnia nazwa_unitu.nazwa_procedury; do pokazania że chodzi nam o procedurę nazwa_procedury konkretnie z modułu nazwa_unitu.

Np.

begin
  system.writeln('hello');   { bo writeln jest w unicie system, i można to jawnie wskazać }
end.
edytowany 1x, ostatnio: Azarien, 2011-03-16 19:45

Pozostało 580 znaków

2011-03-17 20:54

Rejestracja: 8 lat temu

Ostatnio: 8 lat temu

0

Poprawiłem moduł, odpaliłem i wszystko działa. Inne figury też działają, np. prostokąt czy ellipsa. Ale mam kolejny problem.

Sąsiednia klasa o tym samym profilu na spr. miała zadanie by stworzyć moduł zmieniający kolor czcionki i tło (żółty, niebieski). To przystapiłem do działania:

unit text;
interface
procedure tekst;
implementation
uses crt;
procedure tekst;
begin
textcolor(yellow);
textbackground(blue);
writeln('Siema');
end;
end.

Kompilacja przeszła pomyślnie i zapisałem ale nie wiem dlaczego nie stworzyło mi modulu tpu :/ Co zrobiłem źle ?

edytowany 1x, ostatnio: madmike, 2011-03-17 20:54
wstawiaj kod w znaczniki <code=pascal></code> - madmike 2011-03-17 20:55

Pozostało 580 znaków

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0