program pr; uses crt; var a, b, c,x1,x2,x3: integer; beginwriteln('введите a, b, c'); readln(a, b, c); if (a< =b) and (b< =c) then begin a: =a*a*a; b: =b*b*b; c: =c*c*c; writeln(a); writeln(b); writeln(c); end; if (a> b) and (b> c) thenbegina: =a*(-1); b: =b*(-1); c: =c*(-1); writeln(a); writeln(b); writeln(c); end
elseif (a< b) and (a< c) then begin b: =a; c: =a; writeln(a); writeln(b); writeln(c); end; if (b< a) and (b< c) then begin a: =b; c: =b; writeln(a); writeln(b); writeln(c); end; if (c< a) and (c< b) then begin a: =c; b: =c; writeln(a); writeln(b); writeln(c); end; readln; end.
program pr1; uses crt; var mas: array[1..100] of integer; pos: array[1..100] of integer; min: array[1..100] of integer; i,b,c: integer; beginclrscr; b: =0; c: =0; randomize; for i: =1 to 100 do mas[i]: =-100+random(200); for i: =1 to 100 do write(mas[i]); writeln(); for i: =1 to 100 do if mas[i]> =0 then begin b: =b+1; pos[b]: =mas[i]; end else begin c: =c+1; min[c]: =mas[i]; end; writeln('polojitelnye'); for i: =1 to b do write(pos[i]); writeln(); writeln('otricatylnye'); for i: =1 to c do write(min[i]); end.
Поделитесь своими знаниями, ответьте на вопрос:
Понимающие информатику, кто что сможет, , , трачу на это 15 пунктов, ! 1. измерить в байтах объём текстовой информации в книге из 528 страниц, если на одной странице размещается в среднем 45 строк по 60 символов (включая пробелы ? мбайт 2. информационный объём текста, подготовленный с пк, равен 3, 5 кб. сколько символов содержит этот текст. 3. измерить в байтах объём текстовой информации в книге из 258 страниц, если на одной странице размещается в среднем 45 строк по 60 символов (включая пробелы). ? кбайт 4. какой объём изображения будет у файла, если известно, что его размер 1280x1024, количество цветов 128. ? -- мбайт 5. какой объём изображения будет у файла, если известно, что его размер 1280x960, количество цветов 32. ? -- мбайт
1. посчитаем количество символов в книге (528страниц по 45строк по 60 символов):
528*45*60 = 1425600 символов
один символ обычно занимает один байт.
значит, объём информации в книге равен:
1425600 *1 = 1425600 байт
2. один килобайт равен 1024 байтам (два в десятой степени).
переведём объём информации из килобайтов в байты:
3,5 кб = 3,5*1024 байт = 3584 байт
в одном байте- один символ, значит текст содержит 3584 символа
3. считаем так же, как и в первом примере.
объём информации в книге равен:
258*45*60*1 = 696600 байт
переведём объём в килобайты:
696600 / 1024 = 680,3 кб (округлённо)
4. для несжатого изображения объём равен числу точек(пикселей) в нём, помноженному на количество бит, расходуемое на один пиксел.
на один пиксел расходуется столько бит, сколько двоичных разрядов нужно для записи количества цветов, которые может принимать этот пиксель.
например: 128цветов - это 2 в 7 степени. значит потребуется 7 бит для записи каждого пиксела (т.е. для размещения информации о его цвете).
теперь посчитаем объём, требуемый для размещения изображения:
1280*1024*7 = 9175040 бит
один байт - это 8 бит. а один мегабайт равен 1048576 байт (два в двадцатой степени).
переведём объём информации из бит в мегабайты:
9175040 бит = (9175040 / 8 / 1048576) мб = 1,09 мб (округлённо)
5. считаем, как в предыдущем примере (только объединим расчёт):
32цвета - это 2 в 5 степени (понадобится 5 бит для записи пиксела)
объём информации для размещения изображения равен:
1280*960*5 /8 /1048576 = 0,73 мб (округлённо)