Лабораторная работа №6 по информатике (вариант 10)
Может кому-то еще пригодится! (вообще я не десятый вариант, если что, это я благотворительностью занимаюсь =))))!) program lab6; uses crt; type mas=array[1..3,1..3] of real; var a,b,c:mas; i,j:integer; d:real; function sum(x:mas;n,m:integer):real; var i,j:integer; S:real; begin S:=0; for i:=1 to n do for j:=1 to m do S:=S+x[i,j]; sum:=S; end; begin clrscr; writeln('vvedite a(2,2)'); for i:=1 to 2 do for j:=1 to 2 do read(a[i,j]); writeln; writeln('vvedite b(3,3)'); for i:=1 to 3 do for j:=1 to 3 do read(b[i,j]); writeln; writeln('vvedite c(2,2)'); for i:=1 to 2 do for j:=1 to 2 do read(c[i,j]); d:=sqrt(sqr(sum(a,2,2))+sqr(sum(b,3,3))+sqr(sum(c,2,2))); writeln('dlina vektora=', d:5:2); readkey; end.
Категория: Статьи | Добавил: Korby (15 Ноября 2007)
| Автор: galinko
