PASCAL program Tabl2 code uses CRT var kod
Sign up to view full document!
SIGN UP





ПРОГРАММИРОВАНИЕ НА PASCAL program Tabl_2 code; uses CRT; var kod: byte; function perevod 10_2(kod 10: byte): string; var kod 2: string; d 2: byte; begin kod 2 : = ''; while kod 10 > 0 do begin d 2 : = kod 10 mod 2; case d 2 of 0: kod 2 : = '0' + kod 2; 1: kod 2 : = '1' + kod 2; end; kod 10 : = kod 10 div 2; end; perevod 10_2 : = kod 2; end; begin clrscr; for kod : = 32 to 255 do begin if (kod mod 1 = 0) then writeln; write(chr(kod): 3, perevod 10_2(kod): 9); end.
- Slides: 5