Skocz do zawartości

[TP]...Błąd...


Adamg1996

Rekomendowane odpowiedzi

Mam taki program który ma odczytywać 3 razy po 2 bajty (oznaczające x,y,kolor pixela którego później wyświetla ale najpierw pokazuje w trybie tekstowym jego współrzędne oraz kolor[w cyfrach]),

USES
graph;
VAR
a,b:integer;
plik:file;
licz,wyn:word;
odda:array[0..99] of word;
BEGIN
assign(plik,'abc.mgf');
reset(plik,2);
licz:=3;
wyn:=0;
a:=0;
b:=0;
blockread(plik,odda,licz,wyn);
writeln(odda[0]);
writeln(odda[1]);
writeln(odda[2]);
readln;
initgraph(a,b,'');
putpixel(odda[0],odda[1],odda[2]);
readln;
END.

w pliku abc.mgf mam zapisane"223311",

niestety gdy uruchamiam program pokazuje mi się

12850

13107

12593

Why ?

Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...