Помощь - Поиск - Пользователи - Календарь
Полная версия: Посмотрите пожалуйста
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
appleee
Отношение Sx/Sy , где Sx,Sy-средние арифметические элементво вектора X и Y соответственно.


uses CRT;
type
mas=array[1..50] of real;
var
c,c1:char;
x,y,Sx,Sy,r:real;
kk, nn, n, i, k:byte; a1,b1,s:real;
A:mas;
f,ff:integer;
begin
clrscr;
Sx:=0;
Sy:=1;
writeln('vvedite n');
readln(ff);
for f:=1 to ff do
begin
write('A[',f,']=');
readln(A[f]);
end;

begin
for f:=1 to ff do
begin
Sx:=(Sx+(A[f])/f);
Sy:=(Sy+(A[f])/f);
end;
if Sy=0 then writeln('delenie na 0')
else
begin
r:=(Sx/Sy);
writeln®;
readln
end;
end;
end.

Добавлено через 9 мин.
или вот так только всё равно результат не тот
uses CRT;
type
mas=array[1..50] of real;
mas2=array[1..50] of real;
var
c,c1:char;
x,y,Sx,Sy,r:real;
kk, nn, n, i, k:byte; a1,b1,s:real;
A:mas;
B:mas2;
f,ff:integer;
begin
clrscr;
Sx:=0;
Sy:=1;
writeln('vvedite n');
readln(ff);
for f:=1 to ff do
begin
write('A[',f,']=');
readln(A[f]);
write('B[',f,']=');
readln(B[f]);
end;

begin
for f:=1 to ff do
begin
Sx:=(Sx+(A[f])/f);
Sy:=(Sy+(B[f])/f);
end;
if Sy=0 then writeln('delenie na 0')
else
begin
r:=(Sx/Sy);
writeln®;
readln
end;
end;
end.
compiler
вот, на основе первого твоего кода...
uses CRT;
type
mas=array[1..50] of real;
var
Sx,Sy,r:real; //средние для каждого вектора и ресультат
X,Y:mas; //векторы
f,ff:integer; //счетчик / количество элементов векторов
begin
clrscr;

Sx:=0;
Sy:=0; //почему у тебя была единица?
writeln('vvedite n');
readln(ff);
for f:=1 to ff do begin //читаем первый вектор
write('X[',f,']=');
readln(X[f]);
end;

for f:=1 to ff do begin //второй вектор
write('Y[',f,']=');
readln(Y[f]);
end;

for f:=1 to ff do begin //находим средне арифмитич.
Sx:=(Sx+(X[f])/ff); //делим на количество ВСЕХ членов
Sy:=(Sy+(Y[f])/ff);
end;

if Sy=0 then writeln('delenie na 0')
else begin
r:=(Sx/Sy);
writeln®
end;
end.

обрати внимания что у векторов одинаковый размер...

Michael_Rybak
 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги

Исправляем

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.