Составим программу для вычисления площади трапеции на языке паскаль

var    a, b, h, s : real; begin     writeln('введите основания трапеции: ');         write('основание a = '); readln(a);         write('основание b = '); readln(b);     writeln(#10#13 + 'введите высоту трапеции: ');         write('высота h = '); readln(h);     s : = (a + b) * h / 2;

    writeln(#10#13 + 's трапеции = ', s: 0: 1); end.

по двум основаниям и высоте.

 

var a,b,h: real;

begin

readln(a,b,h);

writeln(h*(a+b)/2);

end.

Дано:

Разрешающая сканера 600 х 600 dpi.

Размер 10см x 15см.

Глубина цвета - 3 байта.

Найти:

Каков информационный объём этого файла?

Вначале переводим глубину цвета из байт в биты

3 байта * 8бит в байте = 24 бит

Вычисляем разрешение сканера в 1 дюйме квадрат

600*600 = 360 000 пикселей в 1 дюйм^2

Переводим размер картинки из квадратных сантиметров в квадратные дюймы.

10см = 3.937дюйма

15см = 5,906дюйма

10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

Вычисляем количество пикселей в изображении

23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

Информационный объём вычисляем по формуле

количество пикселей * глубину цвета =

8 370 000 пикселей * 24 бит = 200 880 000 бит.

Переводим в байты делением на 8.

25 110 000 байт

или же делим на 1024*1024 чтобы получить количество мегабайт

23,95 Мегабайт

Информационный объём отсканированного изображения =

25 110 000 байт или 23,95 Мегабайт

Объяснение:

с тебя лайк и лучший ответ!

Var   x: array [1..5, 1..5] of real;   y: array [1..4, 1..4] of real;   i, j: byte;   sumx, sumy: real; begin sumx : = 0; sumy : = 0; writeln('массив x': 28); for i : = 1 to 5 do begin   for j : = 1 to 5 do   begin       x[i, j] : = random*40-20;       if x[i, j] < 0 then sumx : = sumx + x[i, j];       write(x[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('массив y': 28); for i : = 1 to 4 do begin   for j : = 1 to 4 do   begin       y[i, j] : = random*40-20;       if y[i, j] < 0 then sumy : = sumy + y[i, j];       write(y[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('сумма отрицательных массива x = ', sumx: 9: 4); writeln('сумма отрицательных массива y = ', sumy: 9: 4); if sumx > sumy then writeln('сумма отрицательных x - больше.') else if sumx < sumy then writeln('сумма отрицательных y - больше.') else writeln('сумма отрицательных x и y равны.') end.