Const m=3; n=4;
b:array[1..m,1..n] of real=
((-3.3,-1.6,5.7,4.3),(7.6,15.2,-9.1,-3),(-8.6,-3.7,1.3,-0.1));
var c:array[1..n] of real;
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do write(b[i,j]:7:2);
writeln;
end;
for j:=1 to n do c[j]:=1;
for j:=1 to n do
for i:=1 to m do
if b[i,j]<0 then c[j]:=c[j]*b[i,j];
writeln;
for j:=1 to n do write(c[j]:7:2);
writeln;
<span>end.
</span>
1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');
1. Слева устройство вывода, снизу процессор.
2. Клавиатура, принтер.
3. Устройства ввода: 2,3 Вывода: 1,4
4. 1)Веб-камера 2)Проектор
1. 2^4 = 16 цветов
2. ln(16)/ln(2) = 4 бита достаточно
3. 2^24 = 24 бита / 8 = 3 байта
4. 1024*768*(ln(16777216)/ln(2)) бит пикс = 18874368 бит / 8 / 1024 / 1024 = 2,25 мегабайта объём необходим.
5. (ln(16)/ln(2)) бит пикс * 10 * 10 = 400 бит / 8 = 50 байт инф. объём
6. 128*128/8/1024 = 2; 4 кбайт / 2 = 2 бит на пиксель; 2^2 = 4 цветов
7. 640*480*3 байт пикс = 921600 байт вес; 921600 байт * 8 = 7372800 бит / 28800 бит сек = 256 сек
Const
n = 5;
var
a,b : array [1..n] of integer;
i,s,k1,k2,max,min : integer;
begin
for i := 1 to n do
readln (a[i]);
for i := 1 to n do
writeln (i,')elem = ',a[i]);
end.
begin
for i := 1 to n do
a[i] := i * 3;
for i := 1 to n do
writeln (i,')elem = ',a[i]);
end.
begin
s := 0;
for i := 1 to n do
begin
readln (a[i]);
s := s + a[i];
end;
writeln (s);
end.
begin
k1 := 0;
k2 := 0;
for i := 1 to n do
begin
readln (a[i]);
if a[i] > 0 then
k1 := k1 +1;
if a[i] < 0 then
k2 := k2 +1;
end;
writeln ('+ ',k1);
writeln ('- ',k2);
end.
begin
k1 := 0;
k2 := 0;
for i := 1 to n do
begin
readln (a[i]);
if (a[i] > 0) and (i mod 2 = 1) then
k1 := k1 +1;
if (a[i] < 0) and (i mod 2 = 0) then
k2 := k2 +1;
end;
writeln ('+ ',k1);
writeln ('- ',k2);
end.
begin
for i := 1 to n do
begin
readln (a[i]);
if a[i] < 0 then
b[i] := sqr (a[i]);
if a[i] > 0 then
b[i] := a[i] * a[i] * a[i];
end;
for i := 1 to n do
write (a[i],' ');
writeln ();
for i := 1 to n do
write (b[i],' ');
end.
begin
for i := 1 to n do
readln (a[i]);
max := a[1]; min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln ('max=',max);
writeln ('min=',min);
end.
begin
for i := 1 to n do
readln (a[i]);
writeln ('found :');
readln (s);
k1 := 0; k2 := 0;
for i := n downto 1 do
if a[i] = s then
begin
k1 := k1 + 1;
k2 := i;
end;
writeln ('k=',k1);
writeln ('i=',k2);
<span> end.
Бери те переменные, которые используются в конкретной программме.</span>