Prosim poradit se zadanim – Pascal – Fórum – Programujte.com

Predpokladejte ze v souboru je ulozena rastrova graficka informace v odstinech sedi (1 byte na pixel) pricemz nejmene vyznamny bit kazdeho pixelu predstavuje jeden bit tajne zpravy. 

Prectete tento soubor, poskladejte bity tajne zpravy do bytu a vypiste tuto zpravu na standardni vystup.

Algoritmizaci a bitove operace ovladam potreboval bych mensi predstavu co se po mne chce. 

Za pripadne rady dekuji

Připadá mi to jasné.

nejmene vyznamny bit kazdeho pixelu predstavuje jeden bit tajne zpravy

Vstup : 0000000A 0000000B 0000000C 0000000D 0000000E 0000000F 0000000G 0000000H
Výstup: HGFEDCBA (nebo ABCDEFGH)

Ja prave nevim v jakem souboru (textovem, netextovem) maji byt ty data a v jakem formatu. A kdyz tech hodnot tam bude treba 11 ne 8 jak se to bude skladat...

Máš zpracovávat byty, tak data budeš číst po bytech. Když jich bude 11, tak je to 8 a 3 (a 5 nul).

A data by si ziskaval s textoveho souboru ? 

Ne, binárně. file, file of byte, nebo tak nějak.

Nevim jak zacit ...

#7 sparky29

Psal jsi, že algoritmizaci a bitové operace umíš, takže tuto část máš už hotovou?

Jestli ne, tak začni s ní: nadefinuj si třeba pole 8-mi bytů. Naházej do něj třeba čísla 0,1,2,3...7.

Vyber z nich neméně významné bity a poskládej je do jednoho bajtu a vypiš hodnotu jako číslo a jako znak.

Pak do toho pole ulož (zakóduj) nějaký znak a zkontroluj jeho dekódování.

Zdrojový pokusný soubor máš k dispozici? Jestli ne, tak si ho vyrob a dekóduj.

Tem dvoum odstavcum + ziskani hodnoty 0. bitu rozumim dal se ztracim. Jak je mam poskladat do jednoho bajtu ? 

const BIT_0 = $01;
type pole = array[0..7] of byte;
var p: pole;
    i: byte;

begin
  for i:=0 to 7 do begin
                    p[i]:=i;
                   end;

  for i:=0 to 7 do begin
                    p[i]:=(p[i] and BIT_0);
                   end;

  for i:=0 to 7 do begin
                    write(p[i]);
                   end;

end.

#9 sparky29
Psal jsi, že bitové operace ovládáš... Tak se koukni třeba na shl

1000 0001 shl 1 = 0000 0010 ale nevim kam tim miris

#11 sparky29
mířím sem:

Jak je mam poskladat do jednoho bajtu ? 

#12 JoDiK
Mělo by ti to pro těch 8 bajtů vypsat 85 nebo písmeno U

tak cislo: 64 + 16 + 4 + 1 nebo ASCII, ale jak na to dojit ? Chapu princip tech shl a shr ale nedokazu si predstavit kam miris a hodnoty bitu si zjistuji pomoci Bitovych masek.

#13 JoDiK
Jdu spát, zkoumej:

const BIT_0 = $01;
type pole = array[0..7] of byte;
var p: pole;
    i: byte;
    kod : byte;

begin
  for i:=0 to 7 do begin
                    p[i]:=i;
                   end;

  kod:=0;
  for i:=0 to 7 do begin
                    kod:=kod shl 1 or (p[i] and BIT_0);
                   end;

  writeln(kod, '#',chr(kod));
end.

Diky moc to mi rozsirilo obzory :)