program wektory

! program liczy dlugosc sumy i roznicy dwoch wektorow
! w przestrzeni 3D "na piechote" tzn. bez uzycia tablic

implicit none

real::x1,y1,z1,x2,y2,z2
real::s1,s2,s3,r1,r2,r3
real::len_s, len_r

write(*,*) 'Podaj wspolrzedne pierwszego wektora (x,y,z)'
read(*,*) x1,y1,z1

write(*,*) 'Podaj wspolrzedne drugiego wektora (x,y,z)'
read(*,*) x2,y2,z2

s1 = x1 + x2
s2 = y1 + y2
s3 = z1 + z2

r1 = x1 - x2
r2 = y1 - y2
r3 = z1 - z2

write(*,*) 'Wspolrzedne wektora sumy to', s1,s2,s3
write(*,*) 'a wektora roznicy', r1,r2,r3

len_s = sqrt(s1**2 + s2**2 + s3**2)

len_r = sqrt(r1**2 + r2**2 + r3**2)

write(*,*) 'natomiast dlugosc wektora sumy wynosi', len_s
write(*,*) 'a dlugosc wektora roznicy to', len_r

end