Паскаль. Расстояние от точки до начала координат с использованием массивов.

[OFFSET]

Всем привет, помогите с программой, у меня тут где-то ошибка, я не пойму где. Мне надо чтобы программа вычисляла расстояние от заданной точки до начала координат и определяла квадрант в котором она расположена. Исходные данные вводятся в одномерный массив, сообветственно Х и У. А результат S- расстояние, должен быть в виде двумерного массива.
Выдавать он должен результаты вот так:
x[1]=.... y[1]=.... S[1,1]=.... <комментарий>
x[1]=.... y[2]=.... S[1,2]=.... <комментарий>
n - количество столбцов (кол-во У)
m -количество строк (кол-во Х)
одному значения Х подставляются все знаения У. Например:
исх. данные: n=3
m=2
Элементы массива(Y):1
0
2
Элементы массива(X):2
3
Мне выдает результат, все бы хорошо, но каждую строчку он мне выдает по 6 раз... а если в исх. данных задать соответственно n=5 a m=6 то он мне выдаст по 30 строк каждого решения. Подскажите как избавиться от этого.

program Kuzmin;
   Var y:array[1..100] of real;
       x:array[1..100] of real;
       a:array[1..100,1..100] of real;
       s:real;
       n,i,j,l,k,m:integer;
begin
write('Лабораторная работа №6');
write('Студента группы 11-ВТ');
writeln('Кузьмина Юрия Валерьевича');
   Write('n= '); readln(n);
   Write('m= '); readln(m);
   Write('Элементы массива(Y): '); for i:=1 to n do readln(y[i]);
   Write('Элементы массива(X): '); for j:=1 to m do readln(x[j]);
   For j:=1 to m do
   for i:=1 to n do begin
           s:=sqrt(x[j]*x[j]+y[i]*y[i]);
           For l:=1 to m do
               for k:=1 to n do begin
               a[l,k]:=s;
           write(' x[',j:2,']= ',x[j]:3:2);
           write(' y[',i:2,']= ',y[i]:3:2);
           write(' S[',l:2,k:2,']=',a[l,k]:2:2);
        If (x[j]=0) and (y[i]=0) then writeln(' точка лежит в начале координат ')
        else If (x[j]>0) and (y[i]>0) then writeln('  1-квадрант ')
        else If (x[j]<0) and (y[i]>0) then writeln('  2-квадрант ')
        else If (x[j]<0) and (y[i]<0) then writeln('  3-квадрант ')
        else If (x[j]>0) and (y[i]<0) then writeln('  4-квадрант ')
        else If (x[j]=0) and (y[i]>0) or (y[i]<0) then writeln('  точка лежит на оси y ')
        else writeln('  точка лежит на оси x ');
        end;
        end; end.

[vovk]

Сообщение от OFFSET

program Kuzmin;
   Var y:array[1..100] of real;
       x:array[1..100] of real;
       a:array[1..100,1..100] of real;
       s:real;
       n,i,j,l,k,m:integer;
begin
write('Лабораторная работа №6');
write('Студента группы 11-ВТ');
writeln('Кузьмина Юрия Валерьевича');
   Write('n= '); readln(n);
   Write('m= '); readln(m);
   Write('Элементы массива(Y): '); for i:=1 to n do readln(y[i]);
   Write('Элементы массива(X): '); for j:=1 to m do readln(x[j]);
   For j:=1 to m do
   for i:=1 to n do begin
           s:=sqrt(x[j]*x[j]+y[i]*y[i]);
           For l:=1 to m do
               for k:=1 to n do begin
               a[l,k]:=s;
           write(' x[',j:2,']= ',x[j]:3:2);
           write(' y[',i:2,']= ',y[i]:3:2);
           write(' S[',l:2,k:2,']=',a[l,k]:2:2);
        If (x[j]=0) and (y[i]=0) then writeln(' точка лежит в начале координат ')
        else If (x[j]>0) and (y[i]>0) then writeln('  1-квадрант ')
        else If (x[j]<0) and (y[i]>0) then writeln('  2-квадрант ')
        else If (x[j]<0) and (y[i]<0) then writeln('  3-квадрант ')
        else If (x[j]>0) and (y[i]<0) then writeln('  4-квадрант ')
        else If (x[j]=0) and (y[i]>0) or (y[i]<0) then writeln('  точка лежит на оси y ')
        else writeln('  точка лежит на оси x ');
        end;
        end; end.

убрать помеченное красным

[TinMan]

Ничего не понимаю.. А где же мой пост?? Вроде, я его отсылал..
Придется повторить...

Сообщение от OFFSET

Мне выдает результат, все бы хорошо, но каждую строчку он мне выдает по 6 раз... а если в исх. данных задать соответственно n=5 a m=6 то он мне выдаст по 30 строк каждого решения. Подскажите как избавиться от этого.

Ты внутри двойного цикла сделал ЕЩЕ ОДИН двойной цикл. Зачем? Может, штук десять насажать - чего остановился?

Короче, вот исправленный код. Я только не совсем понял, зачем ты переставил нормальный порядок иксов и игреков, но это дело твое..

program Kuzmin_and_TinMan;
Var
  y:array[1..100] of real;
  x:array[1..100] of real;
  a:array[1..100,1..100] of real;
  s:real;
  i,j,m,n: integer;

begin
  write('Лабораторная работа №6');
  write('Студента группы 11-ВТ');
  writeln('Кузьмина Юрия Валерьевича');
  Write('n= '); readln(n);
  Write('m= '); readln(m);
  Write('Элементы массива(Y): '); for i:=1 to n do readln(y[i]);
  Write('Элементы массива(X): '); for j:=1 to m do readln(x[j]);
  For j:=1 to m do
    for i:=1 to n do begin
      s:=sqrt(x[j]*x[j]+y[i]*y[i]);
      a[j,i]:=s;
      write(' x[',j:2,']=',x[j]:5:2);
      write(' y[',i:2,']=',y[i]:5:2);
      write(' S[',j:2,i:2,']=',a[j,i]:5:2);
      If (x[j]=0) and (y[i]=0) then writeln(' точка лежит в начале координат ')
      else If (x[j]>0) and (y[i]>0) then writeln('  1-квадрант ')
      else If (x[j]<0) and (y[i]>0) then writeln('  2-квадрант ')
      else If (x[j]<0) and (y[i]<0) then writeln('  3-квадрант ')
      else If (x[j]>0) and (y[i]<0) then writeln('  4-квадрант ')
      else If (x[j]=0) and (y[i]>0) or (y[i]<0) then writeln('  точка лежит на оси y ')
      else writeln('  точка лежит на оси x ');
    end;
end.

[OFFSET]

TinMan, спасибо большое.
Реально что-то тупанул там конкретно.

[vovk]

Сообщение от TinMan

Ничего не понимаю.. А где же мой пост?? Вроде, я его отсылал..
Придется повторить...

Ты внутри двойного цикла сделал ЕЩЕ ОДИН двойной цикл. Зачем? Может, штук десять насажать - чего остановился?

Короче, вот исправленный код. Я только не совсем понял, зачем ты переставил нормальный порядок иксов и игреков, но это дело твое..

program Kuzmin_and_TinMan;
......

ну и зря разжевали. ТС вместо того чтобы самому разбиратся в коде, за 4 дня только 2 темы наплодил с жалобами на то что ему не помогают.
Это значит что код не его, либо ему неинтерестно. Поэтому я только вывел из лишних циклов вывод результатов, что вобщем то он и хотел.

Мне выдает результат, все бы хорошо, но каждую строчку он мне выдает по 6 раз... а если в исх. данных задать соответственно n=5 a m=6 то он мне выдаст по 30 строк каждого решения. Подскажите как избавиться от этого.

[OFFSET]

Сообщение от vovk

ну и зря разжевали. ТС вместо того чтобы самому разбиратся в коде, за 4 дня только 2 темы наплодил с жалобами на то что ему не помогают.

ага, а еще Земля плоская, и вода сухая.