Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [pascal] массивы, Нахождение минимального элемента массива 
V
    Опции темы
xF1x
Дата 20.3.2008, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 0
Всего: 0
Всем доброго времени суток! Парни! Помогите! нужно составить программу для нахождения минимального элемента массива. сегодня только что начали изучать одномерные массивы, так что если вам не сложно, помогите как можно попроще.
PM MAIL   Вверх
VICTAR
Дата 20.3.2008, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 80
тут
PM MAIL   Вверх
xF1x
Дата 20.3.2008, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 0
Всего: 0
Да там все вместе сразу, я и прошу попроще если не сложно, просто я там путаюсь. 
PM MAIL   Вверх
VICTAR
Дата 20.3.2008, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 80
Куда уж проще =)
Код

program MaxMin;
const
  MAX = 5;

type
  TArray = array[1..MAX] of integer;

function MinElement(iArray : TArray) : integer;
var
  i : integer;
  MinE : integer;
begin
  MinE := iArray[1];
  for i := 2 to MAX do
    if iArray[i] < MinE then
      MinE := iArray[i];
  MinElement := MinE;
end;

var
  a : TArray;
  i : integer;
begin
  for i := 1 to MAX do
    begin
      Write('Enter next element: ');
      ReadLn(a[i]);
    end;
  WriteLn(MinElement(a));
  readln;
end.
PM MAIL   Вверх
xF1x
Дата 20.3.2008, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 0
Всего: 0
Во первых. мы не изучали (const. не писали type 
TArray =..., не писали   function MinElement(iArray : TArray) ) вообщем что такое Tarray  я не знаю, мы пишем Program ... дальше Var все переменные и сразу делали, присваивали имя массиву var имя массива: array[n1..n2] of и тип элементов. МОжно как нибудь что бы этому алгоритму соовтетствовала программа? а то половину я еще не учил.
PM MAIL   Вверх
THandle
Дата 20.3.2008, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372
Код

program MaxMin;

var
  a : array [1..5] of integer;
  i : integer;
  MinE : integer;
begin
  for i := 1 to 5 do
    begin
      Write('Enter next element: ');
      ReadLn(a[i]);
    end;
  MinE := iArray[1];
  for i := 2 to 5 do
    if iArray[i] < MinE then
      MinE := iArray[i];
  WriteLn(MinEl);
  readln;
end.



не проверял, но по идее работает. 

Это сообщение отредактировал(а) THandle - 20.3.2008, 20:04
PM   Вверх
xF1x
Дата 20.3.2008, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 0
Всего: 0
[B]откуда взялось IArray если в Var нет такого? Ошибся? и пишет ошибку Erorr in expression. MinE :=Array[1]
PM MAIL   Вверх
VICTAR
Дата 20.3.2008, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 80
Замени 
Код

var
  a : array [1..5] of integer;

на 
Код

var
  iArray : array [1..5] of integer;

Можно же немногу самому подумать головой
PM MAIL   Вверх
THandle
Дата 20.3.2008, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372
Код

program MaxMin;
var
  a : array [1..5] of integer;
  i : integer;
  MinE : integer;
begin
  for i := 1 to 5 do
    begin
      Write('Enter next element: ');
      ReadLn(a[i]);
    end;
  MinE := a[1];
  for i := 2 to 5 do
    if a[i] < MinE then
      MinE := a[i];
  WriteLn(MinE);
  readln;
end.



Работает. Находит минимальный элемент введенного массива.

Это сообщение отредактировал(а) THandle - 20.3.2008, 20:35
PM   Вверх
xF1x
Дата 20.3.2008, 20:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 0
Всего: 0
Спасибо ВАМ БОЛЬШОЕ! ВСЕ РАБОТАЕТ! ВСЕ ОТЛИЧНО! СПАСИБО!!!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0800 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.