программы на pascalabc
5. площадь квадрата :
program ee;
var a,s: integer;
begin
writeln('введите сторону квадрата');
readln(a);
s : = a*a;
writeln('площадь равна: ',s);
end.
15. вычисление значение
выражения
program ee;
var a,b,c,d: integer;
q: real;
begin
writeln('введите переменную a');
readln(a);
writeln('введите переменную b');
readln(b);
writeln('введите переменную c');
readln(c);
writeln('введите
переменную d');
readln(d);
q: =a/c*b/d-(a*b-c)/c*d;
writeln('значение выражения равняется: ',q);
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 мегабайт
Поделитесь своими знаниями, ответьте на вопрос:
1.при каких значения числа х логическое выражение ((х > 9) and not (x < 7)) примет значение "ложь? " 2. выражение (1 or (a or b)) or ((a or c) and 1) подробное решение, ) !