Знайдіть відомості та створіть презентацію для уроку географії, у якій розкажіть про особоивості розселення населення в різних областях України. Діаграми розселення виконайте в табличному процесі
1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5) 2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел. 3. Вывести введенную строку в обратном порядке. Решения на Pascal: 1.
var n, i: integer; begin read(n); for i := 1 to n do if odd(i) then write(i div 2 + 1, ' ') else write(n - i div 2 + 1, ' ') end.
2.
var a, b, a1, b1, t: integer; begin read(a, b); a1 := a; b1 := b; repeat t := a mod b; a := b; b := t; until b = 0; writeln('НОД=', a); writeln('НОК=', a1 * b1 div a); end.
3.
var s, s1: string; i: integer; begin read(s); s1 := ''; for i := length(s) downto 1 do s1 += s[i]; write(s1) end.
1. 256 цветов - 2⁸, следовательно для хранения информации о цвете 1 пикселя необходимо 8 бит = 1 байт. В одном килобайте - 1024 байт. 640*480/1024 = 300 Кбайт
2. Для начала найдем количество бит на пиксель: 4*1024*8/128/128 = 2, двумя битами можно закодировать черно-белый рисунок, цветов - 2
3. Простая арифметика. Все перемножаем, умножаем на количество страниц и переводим из битов в мегабайты: 800*600*24*4/8/1024/1024≈5.4 Мбайт
4. Для хранения информации о 65535 цветах пикселя надо 16 бит, а для 256 - 8 бит. ответ: 16/8 =2 раза
5. 16 = 2⁴, значит для 1 пикселя требуется 4 бита. Для всей картинки получим: 800*600*4=1920000 бит = 1920000 байт=1875 Кбайт
2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел.
3. Вывести введенную строку в обратном порядке.
Решения на Pascal:
1.
var n, i: integer;
begin
read(n);
for i := 1 to n do
if odd(i) then write(i div 2 + 1, ' ')
else write(n - i div 2 + 1, ' ')
end.
2.
var a, b, a1, b1, t: integer;
begin
read(a, b);
a1 := a;
b1 := b;
repeat
t := a mod b;
a := b;
b := t;
until b = 0;
writeln('НОД=', a);
writeln('НОК=', a1 * b1 div a);
end.
3.
var s, s1: string;
i: integer;
begin
read(s);
s1 := '';
for i := length(s) downto 1 do
s1 += s[i];
write(s1)
end.
640*480/1024 = 300 Кбайт
2. Для начала найдем количество бит на пиксель:
4*1024*8/128/128 = 2, двумя битами можно закодировать черно-белый рисунок, цветов - 2
3. Простая арифметика. Все перемножаем, умножаем на количество страниц и переводим из битов в мегабайты:
800*600*24*4/8/1024/1024≈5.4 Мбайт
4. Для хранения информации о 65535 цветах пикселя надо 16 бит, а для 256 - 8 бит. ответ: 16/8 =2 раза
5. 16 = 2⁴, значит для 1 пикселя требуется 4 бита. Для всей картинки получим:
800*600*4=1920000 бит = 1920000 байт=1875 Кбайт