Ahojte,mám tento příklad: Předpokládejte, že v souboru je uložena rastrová grafická informace v odstínech šedi (1 byte na pixel), přičemž nejméně významný bit každého pixeulu představuje jeden bit tajné zprávy. Přečtěte tento soubor, poskládejte bity tajné zprávy do bytů a vypiště tuto zprávu na standartní výstup. Nechápu přílíš, jak informace bude uložena, jestli v binární podobě nebo v podobě čísla. Jestli se bude jednat o textový soubor nebo soubor bez udáného typu, dále v jakém tvaru mám vypsat tajnou zprávu. Viz níže příkládám můj program. Díky za odpověďprogram pr50;const poslednibit = %1;var t: file; z:char; pom,tajnazprava,i:byte;begin assign(t,'grafika.dat'); reset(t,1); tajnazprava:=0; while not eof(t) do begin for i:=1 to 8 do begin blockread(t,pom,1); pom:=pom and poslednibit; tajnazprava:=tajnazprava+pom; pom:=0; end; end; close(t); writeln('tajna zprava je ', tajnazprava); readln; end.
