IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> 2 задачи по массивам
сообщение
Сообщение #1


Гость






Вот 2 задачи на массивы:

Даны произвольных массива X, Y и Z размера k, n и m соответсвенноо. Найти в каждом массиве X, Y и Z минимальный элемент. Исходные данные взять самостоятельно.

Дан произвольный массив G размера n. Упорядочить в порядке убывания элементы этого массива, стоящие на нечетных мечтах. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно.

Очень прошу решите пожалуйста, уже все мозги сжёг.

P.S. если нетрудно то выложите пожалуйста сразу решение, ато я в паскале почти ничего не смыслю.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


Цитата(xammer23 @ 6.06.2008 8:05) *

Вот 2 задачи на массивы:

Даны произвольных массива X, Y и Z размера k, n и m соответсвенноо. Найти в каждом массиве X, Y и Z минимальный элемент. Исходные данные взять самостоятельно.

Дан произвольный массив G размера n. Упорядочить в порядке убывания элементы этого массива, стоящие на нечетных мечтах. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно.

Очень прошу решите пожалуйста, уже все мозги сжёг.

P.S. если нетрудно то выложите пожалуйста сразу решение, ато я в паскале почти ничего не смыслю.

Первя задача очень простая
Код

const n=10;
var x:array[1..n] of integer;
      i,min:integer;
begin
for i:=1 to n do
   begin
       Write('x[',i,']=');
       Readln(x[i]);
   end;
min:=x[1]
for i:=1 to n do
    if x[i]<min then min:=x[i]
end.

И так для всех трёх массивов

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Telepat, спасибо огромное, а никто незнает как вторую решить, без вашей помощи мне грозит угроза вылета из универа sad.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


А самому попытаться слабо .Она тоже очень простая:находишь все элементы с индексом i mod 2 <>0 ,скидывая
их вотдельный массив ,а потом отсортировываешь этот массив по убыванию .Попытайся сделать сам ,ибо она просто ,будут конкретн. вопросы спрашивай.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


Ну раз сессия гоит решил тебе помочь
Код

uses crt;
const n=10;
      m=5;
var i,x,j,y:integer;
    a:array[1..n] of integer;
    b:array[1..m] of integer;
begin
   clrscr;
   x:=1;
   for I:=1 to n do
      begin
         Write('Vvedite a[',i,']=');
         Readln(a[i]);
      end;
   clrscr;
   Writeln('Do sortirovki');
   for i:=1 to n do Writeln(a[i]);
   for i:=1 to m do
      begin
         B[I]:=A[X];
         x:=x+2;
      end;
   for i:=2 to m do
      for j:=m downto i do
         if b[j-1]>b[j] then
            begin
               y:=b[j-1];
               b[j-1]:=b[j];
               b[j]:=y;
            end;
   x:=1;
   for i:=1 to m do
      begin
         a[x]:=b[i];
         x:=x+2;
      end;
      Writeln('Posle sortirovki:');
      for i:=1 to n do Writeln(a[i]);
      readln;
end.

Бери пожалуйста и начинай учится))) yes2.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Еще раз всем спасибо, особенно Telepat'y
Вот сессия закончится и буду постигать азы Паскаля.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Эдуард

Репутация: -  0  +


Давай давай постигай) smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Telepat, зачем понадобилось вводить столько лишних переменных, и делать рутину в виде копирования данных в другой массив только для его сортировки? Или у тебя тоже стиль "программа не надорвется" ?

Все прекрасно делается и в том же массиве:
uses crt;
const n=10;
var i,j,y:integer;
a:array[1..n] of integer;
begin
clrscr;
for I:=1 to n do begin
Write('Vvedite a[',i,']=');
Readln(a[i]);
end;

clrscr;
Writeln('Do sortirovki');
for i:=1 to n do Write(a[i]:4);
writeln;

i := 1;
while i <= n do begin
for j := n downto i + 2 do
if odd(j) then begin
Y := a[j]; a[j] := a[j - 2]; a[j - 2] := Y;
end;
inc(i, 2);
end;
Writeln('Posle sortirovki');
for i:=1 to n do Write(a[i]:4);
writeln;
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  -1  +


Цитата
Или у тебя тоже стиль "программа не надорвется" ?

У тебя видемо стиль: программа станет меньше жрать памяти и я просвящу народ, тем самым покажу, что я крутой чел, который может всех унижать!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Alex J'Root, простите, кого унизили? Вас? Дайте, пожалуйста, ссылку - все нарушившие правила форума будут наказаны в соответствии с правилами.
Пока что я вижу грубость только с Вашей стороны.
Цитата
У тебя видемо стиль: программа станет меньше жрать памяти и я просвящу народ

На этом следовало остановиться.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Цитата
Дайте, пожалуйста, ссылку - все нарушившие правила форума будут наказаны в соответствии с правилами.
Не верю, но все-же вот тебе даже две ссылки:
Раз: Alеx J'Root
Два: Alex J'Root

 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.01.2021 5:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name