Привет Игротоп

++++++++++[>+++++++>++++++++++>+++<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.

11010000100111111101000110000000110100001011100011010000101100101101000010110101110100
01100000100010110000100000110100011000000011010000101100001101000010110100001000001101
00011000001011010000101101011101000010110001110100011000111100100000110100001011001011
01000010111000110100001011010011010000101101011101000110000010110100011000110000100001

setlocale(0,"");
cout<<"Добро пожаловать на игротоп"<<endl;

URL GOTO=http://igrotop.com/posts/3260
TAG POS=1 TYPE=DIV ATTR=CLASS:post__vote__up

превед медвед

echo '(print "Oh hi")' | clisp
Чего это мы в самом деле

Привет, Katran.

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.NUMERIC_STD.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY CTL IS
PORT(
CLK: IN STD_LOGIC;
DOUT1: OUT STD_LOGIC_VECTOR(0 TO 6);
DOUT2: OUT STD_LOGIC_VECTOR(0 TO 6)
);
END ENTITY;

ARCHITECTURE CTL_ARCH OF CTL IS
SIGNAL CNT: STD_LOGIC_VECTOR(0 TO 3):="0000";

BEGIN
PROCESS(CLK)
BEGIN
IF (CLK'EVENT AND CLK='1') THEN
IF CNT = "1011" THEN CNT <= "0000";
END IF;
CASE CNT IS
WHEN "0000" => DOUT1 <= "1001000"; DOUT2 <="1111111";--П
WHEN "0001" => DOUT1 <= "0110001"; DOUT2 <="1111111";--Р
WHEN "0010" => DOUT1 <= "1110001"; DOUT2 <="1111111";--И
WHEN "0011" => DOUT1 <= "1110001"; DOUT2 <="1111111";--В
WHEN "0100" => DOUT1 <= "0000001"; DOUT2 <="1111111";--Е
WHEN "0101" => DOUT1 <= "1111111"; DOUT2 <="1111111";--Т
WHEN OTHERS => DOUT1 <= "1111111"; DOUT2 <="1111111";
END CASE;
CNT<= CNT+1;
END IF;
END PROCESS;
END CTL_ARCH;