Описание слайда:
Program Vectornoe; Uses CRT; Program Vectornoe; Uses CRT; Function St (a1, a2, b1, b2 : real ):real; Var s :real; Begin s:=a1*b2-b1*a2; st:=s end; Var x1, y1, z1, x2, y2, z2 : real; Begin clrscr; write (’Введите координаты первого вектора: ’); read (x1, y1, z1); write (’Введите координаты второго вектора: ’); read (x2, y2, z2); write (’Вектор [a, b] = ( ’, st(y1, y2, z1, z2):6:2, ’ , ’, st(z1, z2, x1, x2):6:2, ’ , ’, st(x1, x2, y1, y2):6:2, ’ ) ’); readkey End.