Объяснение:
1.
Файл содержит 640*480=28800 пикселей. Для каждого пикселя нужно хранить данные о его палитре. Всего цветов 256,значит для хранения цвета будет достаточно 8 бит потому что 256=2⁸.
Всего понадобится 28800*8=230400 бит
учитывая что 8 бит это 1 байт то
230400/8=28800 байт или 28800/1024=28,125 Кб
2.
Файл содержит 100*100=10000 пикселей. Для каждого пикселя нужно хранить 1 бит цвета (потому что цветов всего два и 2=2¹).
10000 пикселей по 1 биту дают 10000 бит, или 10000/8=1250 байт
или 1250/1024≈1,22 Кб.
1)
program FunctionIFfull;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4)
else
if x<=-1 then y:= sqr(x)+4*x
else y:=4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
2)
program FunctionIFshort;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4);
if x<=-1 then y:= sqr(x)+4*x;
if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
Объяснение:
1. Повна команда розгалуження має вигляд
if < логічний вираз > then <команда 1> else < команда 2 >;
2. Коротка команда розгалуження має вигляд
if <логічний вираз > then <команда 1>;
