Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы в Паскале...

Автор: gryzlik 9.11.2006 20:14

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

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

Автор: volvo 9.11.2006 20:18

blink.gif

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

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

Автор: gryzlik 9.11.2006 20:33

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


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 9.11.2006 20:38

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


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

Автор: gryzlik 9.11.2006 20:58

Цитата(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;

Автор: volvo 9.11.2006 21:10

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

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;
...

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

Автор: gryzlik 9.11.2006 21:47

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

Автор: ддд 3.03.2016 12:41

Цитата(gryzlik @ 9.11.2006 17:47) *

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

а можно полную программу посмотреть?