[font=Arial][size=7]
Ребята,помогите! К завтрашнему дню нужна задача!!!Не могу сама решить...Сижу уже второй вечер,голову ломаю над ней!
В одномерном массиве размещены: в первых N элементах значения аргумента, в следующих — соответствующие им значения функции. Напечатать элементы этого массива в виде двух параллельных столбцов (аргумент и значения функции).
Полная версия: Массивы в Паскале...
for i := 1 to n do(если массив - целочисленный, для вещественного придется добавить еще одну цифру к формату вывода...)
writeln(a[i]:10, a[n+i]:10);
Спасибо большое....Только можно еще один вопрос: я уже попробовала прогу...
Выводит примерно следующее 0 0
0 0
0 0
9 0
Но я же не ввожу одни 0....Простите я в массивах вообще не шарю...Да и Паскаль изучаю всего месяц!
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....Простите я в массивах вообще не шарю...Да и Паскаль изучаю всего месяц!
| М | Пользуемся тегами ! |
for j := 1 to n do
writeln(a[i]:10, a[n+i]:10); { <--- У тебя цикл не по I а по J }
Кстати, ты вводишь только N значений аргумента. Где еще N значений функции?
Цитата(volvo @ 9.11.2006 16:38) 
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;
Цитата
Тогда нужен и отдельный цикл на значения функциии?
Совсем не обязательно: логичнее предположить, что количество значений функции РАВНО количеству аргументов, правда?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 @ 9.11.2006 17:47)
Спасибо ОГРОМНЕЙШЕЕ!!!! Просто не представляете,как Вы мне помогли!!!
а можно полную программу посмотреть?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.