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

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

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

> Тема: Массивы, Циклический сдвиг
Dr. Ra
сообщение 12.04.2005 18:39
Сообщение #1





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

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


Дана задача:
Элементы заданого вектора циклически сдвинуть на К позиций влево.

Я программу-то написал, но так и не понял, что значит: сдвинуть циклически.
Можете обьяснить?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 13.04.2005 21:43
Сообщение #2


Гость






Ну так Freeman же дал правильное решение... Чем оно не устраивает?

Добавлено:
Не нравится ассемблер, тогда вот Паскаль:
function rol(x: word; const k: byte): word;
var
 i: byte;
begin
 for i := 1 to k do begin
   x := (x shl 1) or
     byte(((x and $8000) = $8000));
 end;
 rol := x
end;

const
 n = 10;
 k = 2;
 a: array[1 .. n] of word =
   (32000, 2, 3, 4, 5, 6, 7, 8, 9, 10);

var
 i, T: integer;
begin
 for i := 1 to n do begin
   a[i] := rol(a[i], k);
   write(a[i]:4);
 end;
 writeln;
end.
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Dr. Ra   Тема: Массивы   12.04.2005 18:39
volvo   Как же ты программу написал, если не понял, что о...   12.04.2005 18:55
Dr. Ra   АААА....понятно, а я решил что просто надо из...   12.04.2005 19:14
-Павел-   Как же ты программу написал, если не понял, что о...   27.11.2006 17:10
FreeMan   asm mov ax,chislo ror ax,5 {циклический сдвиг впр...   12.04.2005 19:17
Dr. Ra   :no: Ничего не разобрал, а что такое mov и ror?...   12.04.2005 21:45
volvo   Dr. Ra, может Freeman и прав... Можно задание уточ...   12.04.2005 21:51
Dr. Ra   Необходимо, ЭЛЕМЕНТЫ заданого вектора циклически...   12.04.2005 23:06
Dr. Ra   Интересно, на меня, что все забили??? :(   13.04.2005 21:42
volvo   Ну так Freeman же дал правильное решение... Чем он...   13.04.2005 21:43
Dr. Ra   Спасибо, конечно, :) но вот проблемма - мы еще ...   14.04.2005 18:58
volvo   :yes: Легко... const  n = 10;  k = 2;  a: arr...   14.04.2005 19:07
volvo   size - размер массива A ... for i := 1 to K do beg...   27.11.2006 17:25
-Павел-   size - размер массива A ... for i := 1 to K do be...   27.11.2006 23:01
Гость   У меня похожая задача. Над сдвинуть циклически впр...   8.12.2007 15:29
volvo   T := a[size]; for j := size downto 2 do A[j] := A[...   8.12.2007 15:38
Гость   пасиб! все работает.   9.12.2007 3:38


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

 



- Текстовая версия 20.07.2025 14:38
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"