h1

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

Июль 2, 2009

Программа вычисляет длины векторов, используя функцию. Затем сравнивает их.

program gg;
uses crt;
const m=99;
type vek=array[1..m] of integer;
var x,y:vek;
i,j,rvx,rvy:1..m;
a:byte;

function dlina(c:vek;r:integer):real;
var q,u:integer;
begin
for q:=1 to r do begin
u:=0+c[q];
end;
dlina:=sqrt(u)
end;

BEGIN
clrscr;
writeln(‘vvedite kolichestvo koordinat vektorov x i y’);
readln(rvx,rvy);

for i:=1 to rvx do begin
x[i]:=random(95-49);
end;
writeln(‘vektor x’);
for i:=1 to rvx do begin
write(x[i]:2,’ ‘);
end; writeln;

for j:=1 to rvy do begin
y[j]:=random(88-17);
end;
writeln(‘vektor y’);
for j:=1 to rvy do begin
write(y[j]:2,’ ‘);
end; writeln;

if dlina(x,rvx)>dlina(y,rvy) then writeln(‘vektor x dlinee’) else
writeln(‘vektor y koroche’);
readkey;
end.

Advertisements

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: