mAveRik1990
|
|
1 | |
2 задачи, двумерный массив, процедуры&функции18.12.2008, 18:31. Показов 2051. Ответов 2
Метки нет (Все метки)
Люди добрые, срочно нужна ваша помощь, вопрос жизни и смерти, надо до завтра сделать. Я как говорится в Pascal ни бум-бум И еще бы желательно блок-схемы
ICQ: два74-031_44два Могу в ответ помочь вам с прогоном сайтов например (кому это нужно есессно), с сателлитами. Чем могу, тем помогу... Вот первая: Общее задание В задаче требуется написать, отладить и протестировать программу, обеспечивающую выполнение следующих действий: 1. Ввод массива целых чисел с клавиатуры A[N][M], 1<=N<=10, 1<=M<=10. 2. Вывод исходного массива. 3. Обработка массива в соответствии с заданием. 4. Вывод параметров массива, которые требуется найти по заданию. Например, в задаче требуется найти максимальный элемент массива и удалить строку и столбец, на пересечении которых стоит этот элемент. В этом случае перед удалением требуется вывести значение и индексы найденного максимального элемента. 5. Вывод массива после внесенных изменений. использовать двумерный массив Вариант A7: В массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от максимального элемента массива, заменить на 0. ------- и вот вторая задача : использовать одномерный массив В программе обязательно использовать процедуры и функции с параметров. Использование глобальных переменных запрещено. По возможности в программе использовать все типы параметров – параметры-значения, параметры-переменные и параметры-константы. Обязательно создать как минимум одну процедуру и как минимум одну функцию. Вариант A8 В массиве все элементы, стоящие после максимального, уменьшить на 1. Пример: из массива A[5]: 3 2 1 5 4 должен получиться массив 3 2 1 5 3. Пожалуйста, буду очень вам благодарен!) Надо сделать сегодня. |
18.12.2008, 18:31 | |
Ответы с готовыми решениями:
2
2 задачи с использованием функции и процедуры массив, процедуры и функции Двумерный массив как параметр функции или процедуры Дан двумерный массив, найти среднее арифметическое значение используя процедуры |
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
|
|
18.12.2008, 23:35 | 2 |
Код
Program xa; const m=10; type mac=array[1..m] of integer; var a:mac; procedure BBod(var a:mac); var i,max,k:integer; begin Writeln('BBedute MaccuB'); for i:=1 to m do begin Write('A[' ,i, ']='); readln(a[i]) end; Writeln('MaccuB do u3MeHeHUu'); for i:=1 to m do Write(a[i], ' '); max:=a[1]; k:=1; for i:=2 to m do if a[i]>max then begin max:=a[i]; k:=i end; for i:=k+1 to m do a[i]:=a[i]+1; end; procedure bubod(a:mac); var i,n:integer; begin writeln; writeln('noLy4uBLLIEuC9 maccuB'); for i:=1 to m do write(a[i], ' '); readln end; begin bbod(a); bubod(a); end.
0
|
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
|
|
19.12.2008, 00:38 | 3 |
блин, странное условие у второй
0
|
19.12.2008, 00:38 | |
19.12.2008, 00:38 | |
Помогаю со студенческими работами здесь
3
Переделать массив через процедуры и функции Двумерный массив. Ввести двумерный массив, найти сумму элементов каждого столбца Процедуры и функции. Дан массив латинских букв. Отсортировать методом «пузырька». Вычислить сумму кодов нечетных элементов Задачи решать с использованием процедуры или функции Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |