Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

задача по pascal

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> задача по pascal
Имя
Сообщение << Старые топики   Новые топики >>
задача по pascal - 2008-11-19 22:02:25.743333   
buhjr

Сообщений: 292
Оценки: 0
Присоединился: 2008-07-31 09:38:22.840000
 Дан массив array[1..n] . не используя длугих массивов переставить элементы в ОБРАТНОМ порядке….

помогите плз…
Post #: 1
RE: задача по pascal - 2008-11-19 22:39:56.803333   
N9!

Сообщений: 490
Оценки: 0
Присоединился: 2008-06-25 19:28:54.930000
 ахах) была у меня такая… покапался.. пытался найти)))) не нашёл) с год назад было)))
Post #: 2
RE: задача по pascal - 2008-11-19 22:44:27.493333   
N9!

Сообщений: 490
Оценки: 0
Присоединился: 2008-06-25 19:28:54.930000
 нашёл.. мне лень искать саму задачу…
так что я скину те всё архивом…
http://slil.ru/26350136
с тя ++ ибо это все работы какие были в шараге))))))
Post #: 3
RE: задача по pascal - 2008-11-19 23:01:43.483333   
buhjr

Сообщений: 292
Оценки: 0
Присоединился: 2008-07-31 09:38:22.840000
 да но там нет такой проги…
Post #: 4
RE: задача по pascal - 2008-11-19 23:41:57.310000   
N9!

Сообщений: 490
Оценки: 0
Присоединился: 2008-06-25 19:28:54.930000
 оу… печально… она одна из первых вроде должна быть… ну серовно.. малоли пригодиться….
Post #: 5
RE: задача по pascal - 2008-11-20 06:51:17.746666   
Sunzer

Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
 Приду домой помогу,задача легкая. И писать надо было в другом разделе.
Post #: 6
RE: задача по pascal - 2008-11-20 10:55:21.670000   
JPlayer

Сообщений: 31
Оценки: 0
Присоединился: 2008-08-24 18:54:12.910000
 Лови ссылку:
http://slil.ru/26351100
Post #: 7
RE: задача по pascal - 2008-11-20 15:04:04.593333   
Sunzer

Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
 program FFF;
const
N = 5;
var
A:array[1..N]of integer;
i,t:integer;
label Q;
begin
A[1]:=1;
A[2]:=2;
A[3]:=3;
A[4]:=4;
A[5]:=5;

{ Если число элементов четное }
if(N mod 2=0)Then
begin
for i:=1 to round(N/2) do
begin
t:=A;
A:=A[N-i+1];
A[N-i+1]:=t;
end;
end
else
{ Если число элементов не четное }
begin
for i:=1 to round((N-1)/2) do
begin
t:=A;
A:=A[N-i+1];
A[N-i+1]:=t;
end;
end;

for i:=1 to N do WriteLn(A);
end.

Более быстрый вариант. :)
Post #: 8
RE: задача по pascal - 2008-11-20 17:34:20.870000   
gotoxardas

Сообщений: 842
Оценки: 0
Присоединился: 2007-05-25 08:15:21.840000
 Самый правильный вариант без использования дополнительной памяти.
var a:array[1..100] of longint; i,n:longint; BEGIN read(n); for i:=1 to n do read(a[i]); for i:=1 to (n div 2) do begin a[i]:=a[i]+a[n+1-i]; a[n+1-i]:=a[i]-a[n+1-i]; a[i]:=a[i]-a[n+1-i]; end; for i:=1 to n do write(a[i]); END.
Post #: 9
RE: задача по pascal - 2008-11-20 17:34:53.526666   
buhjr

Сообщений: 292
Оценки: 0
Присоединился: 2008-07-31 09:38:22.840000
 ОО спс . а вот запарили - если кто с МОДУЛЕМ сделает на ввод и вывод.
и надо 2 функции 1- от руки заполнить 2-рэндом. СПС
Post #: 10
RE: задача по pascal - 2008-11-20 17:56:35.050000   
Sunzer

Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
quote:

ORIGINAL: buhjr

ОО спс . а вот запарили - если кто с МОДУЛЕМ сделает на ввод и вывод.
и надо 2 функции 1- от руки заполнить 2-рэндом. СПС


Не понял конкретнее)
Post #: 11
RE: задача по pascal - 2008-11-20 18:05:42.600000   
_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
 Ещё через xor можно обменивать элементы :).
Post #: 12
RE: задача по pascal - 2008-11-20 18:07:32.023333   
buhjr

Сообщений: 292
Оценки: 0
Присоединился: 2008-07-31 09:38:22.840000
  • Получить задание
  • Для выбора задачи использовать меню:
  • Задача 1 (одномерные массивы)
  • Задача 2 (двумерные массивы)
  • Задача 3 (сортировки или алгоритм сжатия)[/ul]
  • Ввод массивов предусмотреть двумя способами (с клавиатуры и с помощью датчика случайных чисел).
  • Ввод и вывод массивов оформить в виде модуля.
  • Отчет должен содержать:
  • Титульный лист (автор, условие задачи)
  • Алгоритмы решения задач[/ul][/ol]
    • задача Дан массив x: array[1..n] of integer. Не используя других массивов, переставить элементы массива в обратном порядке.
    Post #: 13
    RE: задача по pascal - 2008-11-20 18:30:15.533333   
    _SaZ_

    Сообщений: 4329
    Оценки: 398
    Присоединился: 2008-01-30 02:18:05.553333
    		 Ну это по одномерным… Решение тебе уже написали.

    P.S. 5wmz зза прогу =)
    Post #: 14
    RE: задача по pascal - 2008-11-20 19:37:47.010000   
    Kolan4iK

    Сообщений: 258
    Оценки: 0
    Присоединился: 2007-09-28 20:23:45.553333
    		 =) мда вы вот народ помагаете , а он сам так не научитса надо просто дать какуето пораду а прогу пусть пишет сам!!
    Post #: 15
    RE: задача по pascal - 2008-11-20 19:48:47.606666   
    Denaturat

    Сообщений: 1741
    Оценки: 453
    Присоединился: 2008-10-27 20:50:06.380000
    quote:

    ORIGINAL: Kolan4iK

    =) мда вы вот народ помагаете , а он сам так не научитса надо просто дать какуето пораду а прогу пусть пишет сам!!


    есть мнение что он в любом случае ничему не научится. протест отклонён
    Post #: 16
    RE: задача по pascal - 2008-11-21 17:52:55   
    Kolan4iK

    Сообщений: 258
    Оценки: 0
    Присоединился: 2007-09-28 20:23:45.553333
    		 =) Ясна лови + 1
    Post #: 17
    RE: задача по pascal - 2008-11-21 21:04:55.746666   
    MEPOX

    Сообщений: 868
    Оценки: 0
    Присоединился: 2008-03-16 10:11:26.610000
    		 x = x XOR y
    y = y XOR x
    x = x XOR y

    Суть=) Только на паскаль переведи(мне лень писать, но эт фигня работает)
    Post #: 18
    RE: задача по pascal - 2008-11-21 22:18:33.993333   
    Unconnected

    Сообщений: 158
    Оценки: 0
    Присоединился: 2008-09-11 22:02:01.983333
    		 Задавайте ишшо,хочу попаскалить))
    Post #: 19
    RE: задача по pascal - 2008-11-21 23:08:23.420000   
    VaZoNeZ

    Сообщений: -6758
    Оценки: 0
    Присоединился: 2008-10-31 14:38:43.796666
    		 http://e-olimp.com.ua/
    регайся и паскаль на здоровье!
    Post #: 20
    RE: задача по pascal - 2008-11-21 23:34:08.476666   
    Jasmin

    Сообщений: 2320
    Оценки: 0
    Присоединился: 2007-05-03 23:08:53.390000
    		 а давайте все выкладывать варианты этой маленькой глупой проги

    int mas[] = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; for(int i = 0; i &lt; N/2; i++) { int * x = &mas[i]; int * y = &mas[N-1-i]; *x = *x ^ *y; *y = *y ^ *x; *x = *x ^ *y; }
    Post #: 21
    RE: задача по pascal - 2008-11-22 00:02:05.533333   
    kreol

    Сообщений: 823
    Оценки: 0
    Присоединился: 2007-03-08 03:13:06.876666
    quote:

    ORIGINAL: Jasmin

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

    (defun my-reverse (l) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (reverse l)) ^^

    P.S. Тему скоро уже закроют?
    Post #: 22
    RE: задача по pascal - 2008-11-22 13:21:14.093333   
    tt_andrey

    Сообщений: 213
    Оценки: 0
    Присоединился: 2007-07-03 13:54:36.440000
    		 На Питоне

    def reverse(a): &nbsp;&nbsp;&nbsp; return a[::-1]
    На Хаскелле

    reverse = foldl&nbsp;(flip&nbsp;(:))&nbsp;[]
    Post #: 23
    Страниц:  [1]
    Все форумы >> [Компилируемые языки] >> задача по pascal







    Связаться:
    Вопросы по сайту / xakep@glc.ru

    Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.