Выполнить перестановку элементов массива

@userr · Регистрация: 10.11.2014

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

1)рабочее задание

Составить схему алгоритма и разработать программу, выполняют следующие действия :
- Введение одномерного массива ( вектора ) ;
- Вывод значений одномерного массива вместе с их именами ;
- Вывод значений одномерного массива с p -го по q -й элемент ;
- Введение двухмерного массива ( матрицы ) ;
- Вывод строки матрицы с номером r ;
- Вывода колонки матрицы с номером s ;
- Вывод всех элементов массива в виде матрицы с заданным интервалом k между элементами .
одномерный массив............. двухмерный массив
имя массива(1) размер массива(2) p q формат вывода(3) (1) (2) r s k (3)
D17 4 2 3 5:1 AII 5×3 4 2 2 5:3
это условие , помогите пожалуйста( заранее спасибо)

2)рабочее задание

Составить алгоритм и разработать программу, осуществляют:
- Ввод исходных данных ;
- Выполнение действий , согласно варианта индивидуального задания ;
- Вывод исходных данных и результатов сортировки массива .

Выполнить перестановку элементов массива X размерности l , что являются большими числа r , по убыванию , используя сортировку выбором .
и спасибо за ет тоже

@Puporev · 10.11.2014, 09:00

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

Выполнить перестановку элементов массива X размерности l , что являются большими числа r , по убыванию , используя сортировку выбором .

А все что выше это сам разбирайся.

Pascal

const max=100;
var x:array[1..max] of real;
    l,i,j,k,p:integer;
    r,buf:real;
begin
randomize;
repeat
write('Ðàçìåð ìàññèâà äî ',max,' l=');
readln(l);
until l in [1..max];
writeln('Ìàññèâ X');
for i:=1 to l do
 begin
  x[i]:=10*random;
  write(x[i]:5:1);
 end;
writeln;
write('Ââåäèòå ÷èñëî äëÿ ñðàâíåíèÿ r=');
readln(r);
p:=0;
for i:=1 to l do
if x[i]>r then
 begin
  inc(p);//åñòü 1 ÷èñëî >r
  k:=i;
  for j:=i+1 to l do
  if (x[j]>r)and(x[j]>x[k]) then
   begin
    inc(p); //åñòü ÷èñëî äëÿ îáìåíà
    k:=j;
   end;
  buf:=x[i];
  x[i]:=x[k];
  x[k]:=buf;
 end;
if p<2 then write('Íåò ÷èñåë äëÿ ïåðåñòàíîâêè')
else
 begin
  writeln('Ïåðåñòàíîâêà ýëåìåíòîâ áîëüøèõ ',r:0:1,' ïî óáûâàíèþ:');
  for i:=1 to l do
  write(x[i]:5:1);
 end;
end.

@userr · 11.11.2014, 02:08 **[ТС]**

Спасибо

@userr 0 / 0 / 0 Регистрация: 10.11.2014 Сообщений: 2
		1
	Выполнить перестановку элементов массива 10.11.2014, 01:28. Показов 1260. Ответов 2 Метки нет (Все метки) 1)рабочее задание Составить схему алгоритма и разработать программу, выполняют следующие действия : - Введение одномерного массива ( вектора ) ; - Вывод значений одномерного массива вместе с их именами ; - Вывод значений одномерного массива с p -го по q -й элемент ; - Введение двухмерного массива ( матрицы ) ; - Вывод строки матрицы с номером r ; - Вывода колонки матрицы с номером s ; - Вывод всех элементов массива в виде матрицы с заданным интервалом k между элементами . одномерный массив............. двухмерный массив имя массива(1) размер массива(2) p q формат вывода(3) (1) (2) r s k (3) D17 4 2 3 5:1 AII 5×3 4 2 2 5:3 это условие , помогите пожалуйста( заранее спасибо) 2)рабочее задание Составить алгоритм и разработать программу, осуществляют: - Ввод исходных данных ; - Выполнение действий , согласно варианта индивидуального задания ; - Вывод исходных данных и результатов сортировки массива . Выполнить перестановку элементов массива X размерности l , что являются большими числа r , по убыванию , используя сортировку выбором . и спасибо за ет тоже 0

@userr 0 / 0 / 0 Регистрация: 10.11.2014 Сообщений: 2
	11.11.2014, 02:08 [ТС]	3
	Спасибо 0

Опции темы

Выполнить перестановку элементов массива

Решение