Программа на Turbo Pascal

15 ноября 2009

Программа вывод два вектора, после чего ищет их скалярное произведение. 

Program ScalarnoeProixvedenieDvyxVectorov;

(*Написать программу вычисления скалярного произведения двух векторов

(a,b)=50  i=1 a[i]*b[i]. Здесь a=(a[1],a[2],…,a[50]), b=(b[1],b[2],…b[50]).*)

uses crt;

const j=50;

VAR a:array[1..j] of integer;

b:array[1..j] of integer;

i,s,h :longint;

BEGIN

textcolor(9);

H:=0;

randomize;

for i:=1 to j do

begin

a[i]:=random(j);

b[i]:=random(j);

end;

clrscr;

writeln(‘——————————————————————‘);

writeln(‘Вектор A’);

writeln(‘——————————————————————‘);

for i:=1 to j do

write(a[i], ‘ ‘);

writeln(‘——————————————————————‘);

writeln(‘Вектор B’);

writeln(‘——————————————————————‘);

for i:=1 to j do

write(b[i], ‘ ‘);

writeln(‘__________________________________________________________________’);

for i:=1 to j do

begin

s:=a[i]*b[i];

h:=h+s;

write(S, ‘ ‘);

end;

writeln(‘__________________________________________________________________’);

writeln(‘Скалярное произведение вектора A и B = ‘, h);

readln;

END.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя