Паскаль. Три задачи на массивы

Margosham-k · 07.12.2011, 01:09

люююди, помогите пожалуйста!!!! нужно решить!!
Array65. Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A в степени K.
Array91. Дан массив размера N и целые числа K и L (1< либо = K < L < либо = N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое.
Array113. Дан массив A размера N (< либо = 6). Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N ¡1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива.

Буду очень благодарна!!! завтра это мне срочно нужно..не успеваю(((

Замечание:

У нас не принято цепляться к чужим темам. Создавайте свои!
Модератор

Vladimir_S · 07.12.2011, 12:56

Цитата:

Сообщение от Margosham-k

Array65. Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A в степени K.

Тут я, извините, не очень понимаю. Из каких чисел состоит массив? Какова максимальная его длина? Дело в том, что тут запросто можно вылететь в такие огромные числа, что никакой разрядной сетки не хватит. Так что требуется уточнение условия.

Цитата:

Сообщение от Margosham-k

Array91. Дан массив размера N и целые числа K и L (1< либо = K < L < либо = N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое.

Код:

VAR
 N,N1,K,L,D,i:Byte;
 A:Array[1..255] of Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 Write('K (<N) = ');
 Readln(K);
 Write('L (>K, <=N) = ');
 Readln(L);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 D:=L-K+1;
 N1:=N-D;
 Writeln('N1 = ',N1);
 For i:=1 to N do
  If i>L then A[i-D]:=A[i];
 For i:=1 to N1 do
  Write(A[i]:4);
 Readln;
END.

Цитата:

Сообщение от Margosham-k

Array113. Дан массив A размера N (< либо = 6). Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N ¡1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива.

Код:

VAR
 N,i,j,k,Mx,Imax:Byte;
 A:Array[1..6] of Word;
 Dummy:Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 writeln;
 For i:=N downto 2 do
  begin
   Mx:=A[i];
   Imax:=i;
   For j:=i-1 downto 1 do
    if A[j]>Mx then
     begin
      Mx:=A[j];
      Imax:=j;
     end;
   Dummy:=A[i];
   A[i]:=A[Imax];
   A[Imax]:=Dummy;
   for k:=1 to N do write(A[k]:4);
   Writeln;
  end;
 Readln;
END.

Margosham-k · 07.12.2011, 14:13

ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать
массив, увеличив каждый его элемент на исходное значение элемента
Aк-ого."

Vladimir_S · 07.12.2011, 14:41

Цитата:

Сообщение от Margosham-k

ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать
массив, увеличив каждый его элемент на исходное значение элемента
Aк-ого."

Ну тогда-то что...

Код:

VAR
 N,K,D,i:Byte;
 A:Array[1..255] of Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 Write('K (<=N) = ');
 Readln(K);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 writeln;
 D:=A[K];
 For i:=1 to N do
  begin
   A[i]:=A[i]+D;
   Write(A[i]:4);
  end;
 Readln;
END.

Margosham-k · 07.12.2011, 14:51

спасибо Вам большое! вы замечательные!! очень меня выручили...я только поражаюсь вашим умом и добротой... хочу тоже быть такой же умненькой и щелкать как орешки такие задачки)))
научииите, а)))

еще раз, спасибо вам огромное! замечательный форум с замечательными людьми!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

07.12.2011, 01:09
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же множество важных аспектов тут Массивы. Паскаль Три задачи на массивы Паскаль, три задачи на массивы Паскаль. Задача на массивы Задачки на массивы. Паскаль

07.12.2011, 14:13	#3 (permalink)
Margosham-k Member Регистрация: 07.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ой, извините пожалуйста!! там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента Aк-ого."

07.12.2011, 14:51	#5 (permalink)
Margosham-k Member Регистрация: 07.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо Вам большое! вы замечательные!! очень меня выручили...я только поражаюсь вашим умом и добротой... хочу тоже быть такой же умненькой и щелкать как орешки такие задачки))) научииите, а))) еще раз, спасибо вам огромное! замечательный форум с замечательными людьми!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070