|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
07.12.2011, 01:09 | #1 (permalink) | ||
Member
Регистрация: 07.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Три задачи на массивы
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 количество анализируемых элементов и выводя содержимое массива. Буду очень благодарна!!! завтра это мне срочно нужно..не успеваю(((
|
||
07.12.2011, 01:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же множество важных аспектов тут Массивы. Паскаль Три задачи на массивы Паскаль, три задачи на массивы Паскаль. Задача на массивы Задачки на массивы. Паскаль |
07.12.2011, 12:56 | #2 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
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. Цитата:
Код:
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. |
|||
07.12.2011, 14:13 | #3 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента Aк-ого." |
07.12.2011, 14:41 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
07.12.2011, 14:51 | #5 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо Вам большое! вы замечательные!! очень меня выручили...я только поражаюсь вашим умом и добротой... хочу тоже быть такой же умненькой и щелкать как орешки такие задачки)))
научииите, а))) еще раз, спасибо вам огромное! замечательный форум с замечательными людьми! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|