var
a: array [1..5,1..5] of integer;
i,j: integer;
begin
for i: =1 to 5 do begin
for j: =1 to 5 do begin
if ((j> =i) and (i+j< =6)) or ((j< =i) and (i+j> =6)) then a[i,j]: =1 else a[i,j]: =0;
write (a[i,j]: 3);
end;
writeln;
end;
readln;
end.
Бір Байт бір-бірімен қатарласа тізбек түрінде орналасқан 8 биттен, яғни екілік сан таңбаларынан тұрады. Мысалы, компьютерде “Е” әрпі 10000101, кіші “е” әрпі 10100101, “/” таңбасы 00101111, “8” саны 00111000 түрінде өңделеді. Бір Байт тек бір символды бейнелейтін ақпарат өлшеу бірлігі болғандықтан, оның көмегімен 256 символды (28=256) өрнектеуге болады. Компьютер жадының көлемі осы Байт бірлігімен өлшенеді. Ол үшін Байт бірлігінің еселік түрлері: килобайт — Кб (1 Кб=1024 Б=210Б.), мегабайт — Мб (210 Кб), гигабайт — Гб (210Мб) қолданылады. Мысалы, ЭЕМ-нің шапшаң жадының көлемі 32 Мб болса, онда 32Һ210 Байт (символ) ақпарат сақталынады. Ал, ЭЕМ-нің сыртқы жадында (магниттік дискілерінде) 1—8 Гб және одан да көп ақпарат сақтауға болады. Мысалы, 400 беті бар, әр бетінде 50 қатар, ал әр қатарда 50 таңба болатын кітаптың көлемін Байт арқылы есептесек, онда 400Һ50Һ50 = 1000000 Байт = 1 Мб (яғни көлемі 1 Гб дискі 1000 кітапты есте сақтай алады). Қатар орналасқан төрт Байт бір машиналық сөз болып есептеледі, ол 32 биттен тұрады. 64 биттен немесе 8 Байттан тұратын мәліметтер бірлігі екі еселенген машиналық сөз деп аталады. Компьютер осы машиналық сөздер тізбегін өңдейді
Объяснение:
Здесь Здесь
показатель результат
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
11 2048
12 4096
13 8192
14 16384
15 32768
16 65536
17 131072
18 262144
19 524288
20 1048576
21 2097152
22 4194304
23 8388608
24 16777216
25 33554432
26 67108864
27 134217728
28 268435456
29 536870912
30 1073741824
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу выводящею матрицу 11111 01110 00100 01110 11111
можно обойтись без массива и этим память компьютера.
можно также вывести такую матрицу (в виде песочных часов) любого размера. для этого нужно только изменить значение n в строке
const n=5
program pentelemon; uses crt; const n=5; var i,j: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); for i: =1 to n do begin for j: =1 to n do begin if ((j> =i) and (i+j< =n+1)) or ((j< =i) and (i+j> =n+1)) then write ('1 ') else write ('0 '); end; writeln(); end; end.