Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Массивы (turbo pascal)

Автор: Don_Pedro 25.12.2006, 17:43

Помогите пожалуйста:

        CONST N=100;
          var x: array [1..N] of real;
Преобразовать массив x по следующему правилу (x (к) - значение к-го элемента массива после преобразования):
          а)  x(k)=max (x(i))      при 1<=i<=k
          б) элементы массива распоожить в обратном порядке
          в) x(1)=x(1), x(N)=x(N), x(k)=(x(k)-1+x(k)+x(k)+1)/3   при k=2,3,...,n-1
          г) Элементы массива циклически сдвинуть на одну позицию влево: x(n)=-x(1), x(k) = x(k+1), при k=1,2,...,n-1
          д) Элементы массива циклически сдвинуть на две позиции влево.

Автор: Zero 25.12.2006, 18:16

Цитата

Правила форума "Паскаль"

Описывая свою проблему, не забывайте указывать компилятор и версию.

Студентам! Здесь помогают в решении проблем, а не делают работу за вас!

Если Вам нужно сделать работу, обращайтесь в Центр помощи

Автор: PrinceMike 25.12.2006, 18:18

к тому же один поста - один вопрос, а у тя их много)
И воообще все это не сложно!
Сядь, почитай книжку и сделай сам =)

Автор: comp 25.12.2006, 18:25

a.
for i = 2 to n do
     if (x[i - 1] > x[i])
        then x[i] := x[i - 1];

b.
for i = 1 to n div 2 do
     begin
             tmp := x[i];
             x[i] := x[n - i + 1];
             x[n - i + 1] := tmp;
     end;

c.
for i = 2 to n - 1 do
     x[i] = x[i];
//Хех... посмотри на свою формулу... по-видимому ты ошибся где-то...

d.
for i = 1 to n do
     x[i] = x[i mod (n + 1) +1];

e. по аналогии с пред. пунктом

Автор: PrinceMike 25.12.2006, 18:29

comp, а тег для ввода кода придумали для дураков?!

Автор: Zero 25.12.2006, 20:01

Цитата(PrinceMike @ 25.12.2006, 18:29