лабораторная работа №6 по информатике (вариант 1)
program lab6;
uses crt;
type vect=array[1..4] of real;
var x,y:vect;
i:integer;
A:boolean;
function dlin(a:vect;n:integer):real;
var i:integer;
d:real;
begin d:=0;
for i:=1 to n do
d:=d+sqr(a[i]);
dlin:=sqrt(d);
end;
begin clrscr;
writeln('vvedite x(3)');
for i:=1 to 3 do read(x[i]);
writeln('vvedite y(4)');
for i:=1 to 4 do read(y[i]);
If dlin(x,3)>dlin(y,4) then A:=true
else A:=false;
writeln('A=', A);
readkey;
end.
|
Категория: Статьи | Добавил: galinko (15 Ноября 2007)
| Автор: Галина 
|
| Просмотров: 1801
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
