Если это ваш первый визит, рекомендуем почитать справку по форуму. Для размещения своих сообщений необходимо зарегистрироваться. Для просмотра сообщений выберите раздел. |
двумерные массивы!нужна помощь!!! |
Философия, технологии, алгоритмы! |
|
Опции темы |
12.09.2005, 23:38 | #1 |
Форумец
Сообщений: 1
Регистрация: 12.09.2005
Возраст: 31
Не в сети |
двумерные массивы!нужна помощь!!!
У МЕНЯ НЕСКОЛЬКО ЗАДАЧ! пожалуйста, помогите!!!
I)Создать массив всеми способами, вывести его на экран и в файл!(использовав все данные(операторы, процедуры), которые я написала.)) 1)Для первого способа надо использовать(может понадобиться read(n,m)) Program имя; Const nmax=10; mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin n:=3; m:=4; for i:=1 to n do for j:=1 to m do read(a[i,j]); и надо довести эту пограмму до конца!!!Пожалуйста помогите!(n-количество строк, m-количество столбцов!) 2)Для второго способа(генератор случайных членов) надо использовать(может понадобиться read(n,m)): Program имя; Const nmax=10; mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin n:=3; m:=4; for i:=1 to n do for j:=1 to m do randomize a[i,j]:=random(200) И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!) 3)Для третьего способа надо использовать(может понадобиться read(n,m)): Program имя; Const nmax=10; mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin n:=3; m:=4; for i:=1 to n do for j:=1 to m do a[i,j]:=i+j; И надо довести эту программу до конца!(n-количество строк, m-количество столбцов!) 4)Для четвертого способа надо использовать(может понадобиться read(n,m)): Program имя; Const nmax=10; mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin n:=3; m:=4; for i:=1 to n do for j:=1 to m do a[i,j]:=i+j; begin assign(input, ’in.txt’); reset(input); read(n,m); read(a[i,j]); close(input); Из элементов четвертого способа надо составить(продолжить иди кое-где изменить) программу! Для всех четырех способов для вывода массива на экран использовать: write(a[i,j], ’ ’); writeln; Для всех четырех способов для вывода массива в файл надо использовать: Begin Assign(output, ’ out.txt’); Rewrite(output); II)Найти максимальный и минимальный элемент массива. III)Выяснить, есть ли в данном массиве данный элемент. Ответ сделать Yes или No.(можно ввести в файле). Помогите пожалуйста!!! |
13.09.2005, 12:07 | #7 |
Приди и попробуй сама
Сообщений: 2,884
Регистрация: 16.07.2003
Не в сети |
эх... неужели за такое еще и деньги берут??? стоко денех мимо проплыло...
alina если еще нужны - пиши... вечерком начеркаю.. всего то пара минут воспоминаний... а вообще, самой-то не стыдно с такой ерундой на форум обращаться... что ж дальше то будет.... |
14.09.2005, 11:26 | #10 | |
Альдо Апачи
Сообщений: 11,183
Регистрация: 21.06.2005
Возраст: 44
Не в сети |
Цитата:
|
|
16.09.2005, 13:22 | #13 | |
Альдо Апачи
Сообщений: 11,183
Регистрация: 21.06.2005
Возраст: 44
Не в сети |
Цитата:
|
|
16.09.2005, 16:53 | #14 |
Noldor
Сообщений: 1,815
Регистрация: 22.12.2004
Не в сети |
Xtnshtcgjkjdbyjq
Ты сразу родился умным и разбирающимся в языках программирования? По-моему подраздел, создан не только для обмена опытом в области кодинга, но и для помощи чайникам... опускать и глумится - дело простое. |
17.09.2005, 00:15 | #16 |
Noldor
Сообщений: 1,815
Регистрация: 22.12.2004
Не в сети |
Const nmax=10;
mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin n:=3; m:=4; Assign(output, ’ out.txt’); Rewrite(output); for i:=1 to n do begin for j:=1 to m do begin write('Введите элемент массива ',i,' строки и',j,' столбца'); read(a[i,j]); write(output,a[i,j]); end; writeln; end; потом делаешь обычный цикл на вывод инфы, она у тебя уже в массиве и в файле... откуда хочешь оттуда и читаешь. это было к первому случаю... Const nmax=10; mmax=10; var a:array[1..nmax, 1..mmax] of integer; i,j,n,m :integer; begin randomize; Assign(output, ’ out.txt’); Rewrite(output); n:=3; m:=4; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(200) Write(a[i,j]); write(output,a[i,j]); end; writeln; end; тоже самое - простеший цикл на вывод по числу элементов в массиве... Третье и четвертое - по аналогии... тут все просто - писать не охота, честно говоря... да и боюсь чего-нибудь из С++ вставить =)) |