Задача на одномерный массив

@Daniloff91 · Регистрация: 07.04.2009

Студворк — интернет-сервис помощи студентам

Заполнить массив из 8 элементов таким образом, чтобы значения элементов при просмотре массива слева на право образовали:
а) убывающую последовательность
б) возрастающую последовательность
--------Помогите решить, буду очень благодарен-------

@kdslg · 08.04.2009, 18:09

Какими значениями их заполнять?
1,2,3 .... и 8,7,6,....
Или как-то по другому?

@Daniloff91 · 08.04.2009, 18:14 **[ТС]**

kdslg,
Допутим ввожу я хаотично 8 чисел
5 4 3 6 8 2 8 23
Вывеси должно например в убывающей-23 8 8 6 5 4 3 2
Так бы я сам сделал как ты говоришь 87654321...

@kdslg · 08.04.2009, 18:23

ОК, сейчас напишу

@yanyk1n · 08.04.2009, 18:24

А посмотреть faq не дано? зачем же изобретать велосипед? Pascal FAQ

@Daniloff91 · 08.04.2009, 18:45 **[ТС]**

k1ry4,
Там конечно много чего полезного, но пока не изученного мной!
Но что то похожее на свою задачу я не нашел

(

@kdslg · 08.04.2009, 18:45

ЛОВИ!!!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Const
    N=8;
Type
    T=Array[1..N] of Real;
    T1=Record
                X:Real;
                I:Integer;
          end;
Var
    X,A,B:T;
    I:Integer;
    Min,Max:T1;
                
Function Max(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]>Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
end;
 
 
Function Min(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]<Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
end;
 
Procedure Swap(Var X:T; I,J:Integer);
Var Prom:Real;
begin
   Prom:=X[I];
   X[I]:=X[J];
   X[J]:=Prom;
end;
 
 
begin
   For I:=1 to N do Readln(X[I]); {Считывание данных}
 
 
{Заполнение массива условия А}
A:=X;
For I:=1 to N-1 do Swap(A,I,Max(A,I).I);
 
 
{Заполнение массива условия Б}
B:=X;
For I:=1 to N-1 do Swap(A,I,Min(B,I).I);
 
 
end.

@Puporev · 08.04.2009, 19:01

Заполнить массив из 8 элементов таким образом,

Если Вам нужно отсортировать массив, то так и пишите., чего мозги пудрить "Заполнить".

@kdslg · 08.04.2009, 19:08

Puporev, Ну да, условие вначале стояло некорректно!

@Daniloff91 · 08.04.2009, 19:27 **[ТС]**

kdslg,
Насчет условия я не виноват так переписал...
Вах!!!!!!!!
Ниче себе она огромная!
Спасибо!

Добавлено через 13 минут 12 секунд
kdslg,
Pascal выдает ошибку
Function Max(X:T;K:Integer):T1;
Показывает на max и пишет одинаковые идентификаторы!
Странно...

Добавлено через 1 минуту 35 секунд
kdslg,
Duplicate identifier

@kdslg · 08.04.2009, 19:30

Sorry, нашел ошибку - попробуй так!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Const
    N=8;
Type
    T=Array[1..N] of Real;
    T1=Record
                X:Real;
                I:Integer;
          end;
Var
    X,A,B:T;
    I:Integer;
    Min,Max:T1;
                
Function Maximum(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]>Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
Maximum:=Zn;
end;
 
Function Minimum(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]<Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
Minimum:=Zn;
end;
 
Procedure Swap(Var X:T; I,J:Integer);
Var Prom:Real;
begin
   Prom:=X[i];
   X[i]:=X[J];
   X[J]:=Prom;
end;
 begin
   For I:=1 to N do Readln(X[i]); {Считывание данных}
 {Заполнение массива условия А}
A:=X;
For I:=1 to N-1 do Swap(A,I,Maximum(A,I).I);
 {Заполнение массива условия Б}
B:=X;
For I:=1 to N-1 do Swap(A,I,Minimum(B,I).I);
 end.

@<Norton> · 08.04.2009, 19:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a:array[1..8]of longint;
d,i,j:longint;
begin
for i:=1 to 8 do begin
read(a[i]);end;
for i:=1 to 8 do begin
for j:=1 to 8-i do begin
if a[j]>a[j+1] then
begin d:=a[j];a[j]:=a[j+1];a[j+1]:=d;end;end;end;
for i:=1 to 8 do begin
write(a[i],' ');end;writeln;
repeat until keypressed
end.

Добавлено через 1 минуту 16 секунд
чтоб по убыванию в 9-ой строке ">=" на '<=' заменяешь

@kdslg · 08.04.2009, 19:47

Сообщение от Daniloff91

kdslg,
Насчет условия я не виноват так переписал...
Вах!!!!!!!!
Ниче себе она огромная!
Спасибо!

Добавлено через 13 минут 12 секунд
kdslg,
Pascal выдает ошибку
Function Max(X:T;K:Integer):T1;
Показывает на max и пишет одинаковые идентификаторы!
Странно...

Добавлено через 1 минуту 35 секунд
kdslg,
Duplicate identifier

Я нашел ошибку

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Const
    N=8;
Type
    T=Array[1..N] of Real;
    T1=Record
                X:Real;
                I:Integer;
          end;
Var
    X,A,B:T;
    I:Integer;
    Min,Max:T1;
                
Function Maximum(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]>Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
Maximum:=Zn;
end;
 
 
Function Minimum(X:T;K:Integer):T1;
var
   Zn:T1;
   J:Integer;
begin
    Zn.X:=X[K];
    Zn.I:=1;
    For J:=K+1 to N do
          If X[J]<Zn.X then 
                     begin
                        Zn.X:=X[J];
                        Zn.I:=J;
                     end;
Minimum:=Zn;
end;
 
Procedure Swap(Var X:T; I,J:Integer);
Var Prom:Real;
begin
   Prom:=X[i];
   X[i]:=X[J];
   X[J]:=Prom;
end;
 
 
begin
   For I:=1 to N do Readln(X[i]); {Считывание данных}
 
 
{Заполнение массива условия А}
A:=X;
For I:=1 to N-1 do Swap(A,I,Maximum(A,I).I);
 
 
{Заполнение массива условия Б}
B:=X;
For I:=1 to N-1 do Swap(A,I,Minimum(B,I).I);
 
 
end.

Попробуй так

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

@Daniloff91 1 / 1 / 0 Регистрация: 07.04.2009 Сообщений: 57

	Задача на одномерный массив 08.04.2009, 18:04. Показов 1406. Ответов 12 Метки нет (Все метки) Заполнить массив из 8 элементов таким образом, чтобы значения элементов при просмотре массива слева на право образовали: а) убывающую последовательность б) возрастающую последовательность --------Помогите решить, буду очень благодарен------- 0

@kdslg 19 / 19 / 6 Регистрация: 06.04.2009 Сообщений: 73
	08.04.2009, 18:09
	Какими значениями их заполнять? 1,2,3 .... и 8,7,6,.... Или как-то по другому? 0

@Daniloff91 1 / 1 / 0 Регистрация: 07.04.2009 Сообщений: 57
	08.04.2009, 18:14 [ТС]
	kdslg, Допутим ввожу я хаотично 8 чисел 5 4 3 6 8 2 8 23 Вывеси должно например в убывающей-23 8 8 6 5 4 3 2 Так бы я сам сделал как ты говоришь 87654321... 0

@kdslg 19 / 19 / 6 Регистрация: 06.04.2009 Сообщений: 73
	08.04.2009, 18:23
	ОК, сейчас напишу 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	08.04.2009, 18:24
	А посмотреть faq не дано? зачем же изобретать велосипед? Pascal FAQ 0

@Daniloff91 1 / 1 / 0 Регистрация: 07.04.2009 Сообщений: 57
	08.04.2009, 18:45 [ТС]
	k1ry4, Там конечно много чего полезного, но пока не изученного мной! Но что то похожее на свою задачу я не нашел ( 0

@kdslg 19 / 19 / 6 Регистрация: 06.04.2009 Сообщений: 73
	08.04.2009, 19:08
	Puporev, Ну да, условие вначале стояло некорректно! 0

@Daniloff91 1 / 1 / 0 Регистрация: 07.04.2009 Сообщений: 57
	08.04.2009, 19:27 [ТС]
	kdslg, Насчет условия я не виноват так переписал... Вах!!!!!!!! Ниче себе она огромная! Спасибо! Добавлено через 13 минут 12 секунд kdslg, Pascal выдает ошибку Function Max(X:T;K:Integer):T1; Показывает на max и пишет одинаковые идентификаторы! Странно... Добавлено через 1 минуту 35 секунд kdslg, Duplicate identifier 0