|
Вопрос # 3 695/ вопрос открыт / |
|
Здравствуйте! помогите с задачкой. Написать програму цыкличной перестановки елементов таблиц, при которих A[i] перемещаеться A[i+1] для i=1,2...n. а A[n] перемещаеться в A[1]
Ответ #1. Отвечает эксперт: Паровоз
Здравствуйте, Дементьев Евгений Владимирович!
var
i:Integer;
x:Real;
begin
x:=a[n];
for i:=n downto 2 do
begin
a[i]:=a[i-1];
end;
a[1]:=x;
end;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 27 января 2010, 09:35
Оценка за ответ: -1
|
Ответ #2. Отвечает эксперт: Жикльор
Здравствуйте, Дементьев Евгений Владимирович!
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n = 10;
var
mas: array [1..n] of integer;
i,tmp,first: integer;
begin
Randomize;
writeln('Isshodniy masiv:');
for i:=1 to n do
begin
mas[i]:=Random(20);
write(mas[i],' ');
end;
writeln;
first:=mas[n];
for i:=n downto 1 do
begin
tmp:=mas[i+1];
mas[i+1]:=mas[i];
mas[i+2]:=tmp;
end;
mas[1]:=first;
for i:=1 to n do
write(mas[i],' ');
readln;
end.
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 27 января 2010, 22:12
Оценка за ответ: 5
Комментарий к оценке: Спасибо Жека с меня пиво)
|
Мини-форум вопроса
Всего сообщений: 11; последнее сообщение — 27 января 2010, 23:32; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 27 января 2010, 08:15 [#1]:
Не знаю, как у тебя, а у меня слово "таблица" прочно ассоциируется с чем-то двухмерным, типа A[i, j]. Что ты на это скажешь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Паровоз (статус: 10-ый класс), 27 января 2010, 17:16 [#4]:
To: Дементьев Евгений Владимирович
Так, что не то?
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 27 января 2010, 17:25 [#5]:
во первых ты масив не описал, забыл описать несколько переменых,понимаешь мне нужен код который работать будет, а не который так наброс лижбы сделать.
|
|
|
min@y™ (статус: Доктор наук), 27 января 2010, 19:26 [#6]:
Цитата (Дементьев Евгений Владимирович):
во первых ты масив не описал, забыл описать несколько переменых,понимаешь мне нужен код который работать будет, а не который так наброс лижбы сделать.
2Паровоз: ПОНЯЛ, ДА???!!! Нукабыстра на!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Паровоз (статус: 10-ый класс), 27 января 2010, 19:40 [#7]:
Понял. Осталось только спросить у препода чем кончать программу - точкой или тире?
|
|
|
min@y™ (статус: Доктор наук), 27 января 2010, 20:03 [#8]:
Цитата (Паровоз):
Понял. Осталось только спросить у препода чем кончать программу - точкой или тире?
Вспоминаю времена методичек, свою "Искру", пень-233 и отсутствие интернета!.. Были времена...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Паровоз (статус: 10-ый класс), 27 января 2010, 21:58 [#9]:
Да, были времена, когда бездарности не хамили.
|
|
|
Жикльор (статус: 5-ый класс), 27 января 2010, 22:16 [#10]:
А ты относись с уважением к тем "бездарам"! Не каждому дано программирование как семечки, хотел бы я видеть тебя в танцах, наверняка та же "бездара"!!
Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.
|
|
|
Паровоз (статус: 10-ый класс), 27 января 2010, 23:32 [#11]:
У Вас, Жикльор, что то не впорядке с головой. Пока, что нахамили мне Вы и автор вопроса.
1) Я старше вас более чем на 40 лет и никто не давл Вам право говорить мне "ты". Это Вы могли посмотреть в данных - они открыты.
2) Если Вы внимательно прочтете вопрос, то увидите, что там написано следующее "помогите с задачкой". Слово помогите означает, что работают оба. Это даже не дважды два - четыре, а одинажды один - один. Если нужно было не помочь написать, а написать, так нужно было сразу так и говорить.
3) Если Вы хотите посмотреть как я танцую, то Вам не сюда. Вы немного ошиблись адресом. Форум -это место совсем для других целей.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
