VPF::[паскаль]массив - Форум программистов

niqo

Дата 18.4.2009, 23:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите написать простейшую прогу на паскале с массивами.я просто совсем не шарю паскаль.
а практическую надо сдать:)
суть задачи:
С элементов массива F(12) создать массив D(12) ,элементы которого упорядочить по увеличению значений. В массиве,что упорядочили, найти минимальный отрицательное значение и его координаты.
в итоге должно вывести : заданный и массив, который упорядочили, минимальный отрицательный элемент и его координаты.
Понимаю,что это простейшая задача, но повторяю - я совсем не шарю этот язык программирования.

TrЭin3e

Дата 19.4.2009, 11:46 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Цитата(niqo @ 18.4.2009, 23:26

)

С элементов массива F(12) создать массив D(12) ,элементы которого упорядочить по увеличению значений

а нельзя ли просто отсортировать исходный массив без создания нового. И еще

Цитата(niqo @ 18.4.2009, 23:26

)

найти минимальный отрицательное значение и его координаты

а если в массиве нет отрицательных элементов, что делать тогда? и минимальное по модулю?

Код


program P1;
var A: array [1..12] of integer;
    i, j, k: integer;
begin
//если элементы вводятся пользователем
  for i := 1 to 12 do
  begin
    write('Vvedite ', i, ' element massiva:  ');
    readln(A[i]);
//или задаются рандомно компьютером
    randomize;
    A[i] := random(100) - 50;//от -50 до 50
  end;
  for i := 1 to 12 do
    write(A[i], '  ');
  for j := 1 to 11 do
    for i := 1 to n-j do
      if A[i] > A[i+1] then
      begin
        k := A[i];
        A[i] := A[i+1];
        A[i+1] := k;
      end;
//уже упорядоченный массив
  for i := 1 to 12 do
    write(A[i], '  ');
//минимальное - т.е. самое большое по модулю отрицательное значение
  if A[1] < 0 then writeln('минимальное отрицательное значение: ', A[1], ' и его индекс: 1');
end.

Здесь используется всего один(!) массив

niqo

Дата 19.4.2009, 12:01 (ссылка)

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

Загрузка ...

Новичок

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

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

та ладно.спасибо и на этом smile

оч помог

п.с.я бы уже нажал "+",но не могу - меньше 100 постов:(

Это сообщение отредактировал(а) niqo - 19.4.2009, 12:22

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