Var x:array [1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin
x[i]:=i*2;
write(x[i],' ');
end;
end.
Программы на pascal
1)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
y:= sin(sqr(x));
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
2)
var
x, y: real;
begin
writeln('Введите х');
readln(x); //Вводим х
if x >= 0 then y:= cos(x) //Если х >= 0, то у = cosx, иначе у = 1 - 2sinx
else y:= 1 - 2 * sin(x);
writeln('y = ', y : 0 : 5); {Печатаем значение у с округлением до 5 знаков после запятой}
end.
Если все правильно, отметь решение как лучшее)
<span>Цифровые вычислительные средства в составе бортового оборудования самолетов появились на рубеже 60-х годов и за относительно короткий срок практически полностью заменили используемые ранее аналоговые вычислители, поскольку обеспечивали более высокую точность решения задач, характеризовались большей универсальностью применения и обладали широкими логическими возможностями.</span>
<span>
</span>
Решение для 4-байтного представления
Запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой
0,110010001*10^1000
10- основание (2дес=10дв)
1000-порядок(8дес=1000дв)
Определим машинный порядок:
МП = 1000 + 1000000 = 1001000
запишем число
01001000 0000000 00000001 10010001
порядок ман тис са
Для буквы Т нужно использовать кодовое слово 00101
Оно отличается:
от А = 10000 в трёх позициях (1-й, 3-й, 5-й),
от И = 11110 в четырёх позициях (1-й, 2-й, 4-й, 5-й),
от С = 01011 в трёх позициях (2-й, 3-й, 4-й)
Насчёт вариантов ответа - затрудняюсь сказать...