VPF::[Pascal] Программирование задач с одномерными массивами

andreis459

Дата 26.3.2011, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.3.2011

Репутация: нет
Всего: нет

Поменять местами первый и максимальный по модулю отрицательный элементы массива.

Код

program EXAMPLE_6;
uses crt;
var m : array [1..50] of integer;
 n, i : byte;
 a, z: integer;
begin
clrscr;
writeln('Задание 6. Вариант  5');
write('задайте длину массива  ( <= 50 ):');
readln (n);
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m[i]);
end;
writeln ('исходный массив');
for i := 1 to n do write(m[i]:6);


writeln;
writeln ('Программа завершена .Нажмите  Enter.');
readln;
end.

помогите дописать

Это сообщение отредактировал(а) volvo877 - 4.4.2011, 10:36

ФедосеевПавел

Дата 27.3.2011, 01:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Ну дык, почти всё готово.
Дальше:
1. Ищешь Imax - индекс элемента с масимальным по модулю отрицательным значением. Т.е проверяешь два условия - а) элемент отрицателен, 2) его модуль больше текущего Mmax. Если условие выполняется, то запоминаешь Imax:=i и Mmax:=abs(m[i]). Чтобы было проще, начальное значение индекса берешь равным 0 (т.к. массив индексируется от 1 до 50), текущее максимальное значение (Mmax) - также 0.
2. Меняещь местами элементы массива с индексами 1 и Imax.

При поиске можно проверять не два условия, а одно - (m[i]<Mmax). Это чуть упростит вид условия, но добавит вопросов преподавателя.

MetalFan

Дата 13.5.2011, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

There are always someone smarter than you...

LeraMiller

Дата 26.6.2011, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.6.2011

Репутация: нет
Всего: нет

Cформировать квадратную матрицу порядка n по заданому образцу :

1      2       3   . . .   n-2   n-1    n
n    n-1    n-2  . . .   3       2      1
1      2       3    . . .  n-2   n-1    n
.         .        .     .       .        .        .
.         .        .       .     .        .        .
.         .        .          .  .        .        .
1        2      3    . . .   n-2   n-1  n
n      n-1   n-2  . . .    3        2   1

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »