Задание №1
Пусть t = -8.5
Расположите в порядке убывания значения выражений t, round(t), trunc(t),
frac(t).
Задание №2
Определить значения переменных после выполнения серии операторов:
x:=3.5; y:=x*8;
y:=y-7*x;
x:=abs(y);
write(x, y);
Задание №3
Чему равны переменные x и y после выполнения следующих фрагментов программ
x:=3.14159;
x:=round(100*x)/100;
y:=11;
y:=trunc(x/2);
a: array[1..100, 1..100] of integer;
i, j, m, n, count2, countx, x: integer;
begin
{ввод матрицы}
n := 10;
writeln('Данные матрицы:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(200) - 100;
write(a[i, j]:4, ' ')
end;
writeln;
end;
write('x = ');
readln(x);
count2 := 0;
countX := 0;
for i := 1 to n do
for j := 1 to n do
begin
if a[i, j] = x then
countX := countX + 1;
if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
count2 := count2 + 1;
end;
writeln('countX = ', countX);
writeln('count2 = ', count2);
end.
Для конвертации шестнадцатеричного числа в десятичное необходимо каждую цифру (начиная справа) шестнадцатеричного числа умножить на 16 в степени, соответствующей разряду этой цифры. Например, рассмотрим шестнадцатеричное число C92116. Начните с первой цифры справа (1) и умножьте ее на 160(первый разряд задается нулевой степенью); увеличивайте показатель степени каждый раз, когда вы переходите к следующей цифре (справа налево):116 = 1 x 160 = 1 x 1 (все цифры представлены в десятичной системе за исключением оговоренных случаев)216 = 2 x 161 = 2 x 16916 = 9 x 162 = 9 x 256C = C x 163 = C x 4096
Преобразуйте буквенные символы в десятичные цифры. Цифры имеют одинаковое значение как в десятичной, так и в шестнадцатеричной системах (например, 716 = 710). Для конвертирования буквенных символов шестнадцатеричной системы в цифры десятичной системы смотрите следующий список:A = 10B = 11C = 12D = 13E = 14F = 15
ЕА16=234
Удачи в решении))