Массивы в Паскале... Опции

[gryzlik]

[font=Arial][size=7]
Ребята,помогите! К завтрашнему дню нужна задача!!!Не могу сама решить...Сижу уже второй вечер,голову ломаю над ней!

В одномерном массиве размещены: в первых N элементах значения аргумента, в следующих — соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции).

[volvo]

for i := 1 to n do
  writeln(a[i]:10, a[n+i]:10);

(если массив - целочисленный, для вещественного придется добавить еще одну цифру к формату вывода...)

[gryzlik]

Спасибо большое....Только можно еще один вопрос: я уже попробовала прогу...

var a:array[1..10]of integer;
    x,y,n,i,j:integer;
Begin
Writeln('Vvedite kolichestvo elementov v massive',n);
Readln(n);
for i:=1 to n do
  begin
  write ('a(',i,')=');
  readln(a[i]);
  end;
writeln;
for j := 1 to n do
 writeln(a[i]:10, a[n+i]:10);
readln;
End.

Выводит примерно следующее 0 0
0 0
0 0
9 0
Но я же не ввожу одни 0....Простите я в массивах вообще не шарю...Да и Паскаль изучаю всего месяц!

М

Пользуемся тегами !

[volvo]

for j := 1 to n do
 writeln(a[i]:10, a[n+i]:10); { <--- У тебя цикл не по I а по J }

Кстати, ты вводишь только N значений аргумента. Где еще N значений функции?

[gryzlik]

for j := 1 to n do
 writeln(a[i]:10, a[n+i]:10); { <--- У тебя цикл не по I а по J }

Кстати, ты вводишь только N значений аргумента. Где еще N значений функции?

Ага,поняла...

Writeln('Vvedite kolichestvo znachenii argumenta v massive',n);
Readln(n);
Writeln('Vvedite kolichestvo znachenii funkcii v massive',k);
Readln(k);

Получается нужно так?
Тогда нужен и отдельный цикл на значения функциии?

for j:=1 to n do
  begin
  write ('a(',j,')=');
  readln(a[j]);
  end;

for m:=n to k do
  begin
  write ('a(',j,')=');
  readln(a[j]);
  end;

[volvo]

Тогда нужен и отдельный цикл на значения функциии?

Совсем не обязательно: логичнее предположить, что количество значений функции РАВНО количеству аргументов, правда?

const max_n = 10; { <--- Максимально возможное значение для N }
var a:array[1 .. 2 * max_n] of integer;
...
begin
  Writeln('Vvedite kolichestvo elementov v massive',n);
  Readln(n);
  for i:=1 to n do begin
    write ('a(',i,')='); readln(a[i]);
    write ('f(', a[i], ')='); readln(a[n+i]);
  end;
  writeln;
  ...

ну, и далее по тексту

[gryzlik]

Спасибо ОГРОМНЕЙШЕЕ!!!! Просто не представляете,как Вы мне помогли!!!