Тогда будет Паскаль...
const
nm = 5;
type
V = array[1..nm] of real;
function SP(var a, b: V; n: integer): real;
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do s := s + a[i] * b[i];
SP := s
end;
var
A, B, C, D: V;
P1, P2, min: real;
i, n: integer;
begin
Write('Введите размерность вектора A: '); Readln(n);
Write('Введите координаты вектора A через пробел: ');
for i := 1 to n do Read(A[i]);
Write('Введите координаты вектора B через пробел: ');
for i := 1 to n do Read(B[i]);
P1 := SP(A, B, n);
Write('Введите размерность вектора C: '); Readln(n);
Write('Введите координаты вектора C через пробел: ');
for i := 1 to n do Read(C[i]);
Write('Введите координаты вектора D через пробел: ');
for i := 1 to n do Read(D[i]);
P2 := SP(C, D, n);
if P1 > P2 then min := P2 else min := P1;
Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);
end.
Результаты выполнения:
Введите размерность вектора A: 4
Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2
Введите координаты вектора B через пробел: 1.2 3.4 0 2.5
Введите размерность вектора C: 5
Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8
Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2
Меньшее из скалярных произведений (A*B),(C*D) равно 18.56
<span>Как работает струйный принтер Постараемся осветить принцип печати струйного принтера кратко. Качество печати у него немного хуже, чем у лазерного. Однако их стоимость значительно ниже, чем у лазерных. Струйный принтер идеально подходит для эксплуатации в домашних условиях. Он прост в эксплуатации и легко обслуживается. Принцип печати струйного и лазерного принтера заметно отличаются. Это проявляется и в технологии подачи чернил, и в устройстве оборудования. Поэтому поговорим сначала о том, как печатает струйный принтер. Его принцип работы заключается в следующем: в специальной матрице формируется изображение, а затем эта матрица отпечатывает изображение на полотне с использованием жидких красителей. Другой тип струйных принтеров оснащен картриджами, которые устанавливают в специальный блок. В этом случае с помощью печатающей головки чернила подаются в печатающую матрицу, а уж она переносит изображение на бумагу. Способы хранения чернил и их нанесение на бумагу Существует три способа нанести чернила на полотно: • пьезоэлектрический метод; • метод газовых пузырей; • метод drop-on-demand. Первый метод при печати оставляет на полотне чернильную точку, за счет пьезоэлемента. С его помощью трубка сжимается и разжимается, не позволяя лишним чернилам попасть на бумагу. Газовые пузыри, еще известные как инжектируемые пузыри, оставляют отпечаток на полотне за счет высоких температур. Каждое сопло печатающей матрицы оснащено нагревательным элементом, который нагревается за долю секунды. Образовавшиеся газовые пузыри проталкиваются через сопло и переносятся на расходный материал. - Читайте подробнее на FB.ru: </span><span>http://fb.ru/article/174499/kakoy-printsip-pechati-struynogo-i-lazernogo-printera-kak-pechataet-stru...</span>
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
1)162*44*60=427680(символов)
2)427680*8=3421440(бит)=427680(байт)=417,6(Кбайт)-нужно для размещения информационного сообщения
Ответ:нет,не достаточно