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
1624 год-считающие часы В.Шиккарда( первый механический калькулятор, умевший выполнять четыре арифметические действия) 1642 год-Паскалина Б.Паскаля 1820 год-калькулятор Ч.Томаса(Арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница 1939 год-Z1 К.Цузе( так и не заработала достаточно надёжно, из-за недостаточной точности выполнения составных частей.) 1940 год-Z2 К.Цузе(её планы и фотографии были уничтожены) 1943 год-Z3 К.Цузе(Она была построена на телефонных реле и работала вполне удовлетворительно. Тем самым, Z3 стала первым работающим компьютером, управляемым программой) 1945 год-ЭНИАК 1963 год-Colossus(«Колосс» стал первым полностью электронным вычислительным устройством, хотя на нём и нельзя было реализовать любую вычислимую функцию) 1965 год-Apple 2 2008 год-СКИФ МГУ (суперкомпьютер собранный на базе решений и оборудования американской фирмы Intel, проект был разработан в Белорусском Государственном Университете (26-е место в рейтинге Топ-500 2012).
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
1642 год-Паскалина Б.Паскаля
1820 год-калькулятор Ч.Томаса(Арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница
1939 год-Z1 К.Цузе( так и не заработала достаточно надёжно, из-за недостаточной точности выполнения составных частей.)
1940 год-Z2 К.Цузе(её планы и фотографии были уничтожены)
1943 год-Z3 К.Цузе(Она была построена на телефонных реле и работала вполне удовлетворительно. Тем самым, Z3 стала первым работающим компьютером, управляемым программой)
1945 год-ЭНИАК
1963 год-Colossus(«Колосс» стал первым полностью электронным вычислительным устройством, хотя на нём и нельзя было реализовать любую вычислимую функцию)
1965 год-Apple 2
2008 год-СКИФ МГУ (суперкомпьютер собранный на базе решений и оборудования американской фирмы Intel, проект был разработан в Белорусском Государственном Университете (26-е место в рейтинге Топ-500 2012).