Skocz do zawartości
Adamg1996

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

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 ?

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

bo blockread czyta rekordy w pliku binarnym. Użyj Read.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Tylko 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ę tutaj.

Zaloguj się tutaj

  • Przeglądający   0 użytkowników

    Brak zarejestrowanych użytkowników, przeglądających tę stronę.

×