Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Пример 2.5. Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.




Тест

Данные Результат
N=7 X=(-1, 2, 0, 4, -3,-2,0) Y=(2, 4, 0, 0, -1, -3, -2)

Алгоритмический язык

алг Новый Порядок (арг цел N, арг вещ таб Х[1:N], рез вещ таб Y[1:N])

нач цел i, k | k - индекс массива Y

k:= 0

нц для i от 1 до N | Занесение в Y положительных чисел из X

если X[i] > 0

то k:= k+1; Y[k]:= X[i]

Все

Кц

нц для i от 1 до N | Занесение в Y чисел, равных нулю, из X

если X[i] = 0

то k:= k+1; Y[k]:= X[i]

Все Блок-схема

кц (фрагмент)

нц для i от 1 до N | Занесение в Y отрицательных чисел из X

если X[i] < 0

то k:= k+1; Y[k]:= X[i]

Все

Кц

Кон

Turbo Pascal

Program NewOrder;

Uses Crt;

Var N, i, k: Integer;

X, Y: Array [1..20] of Real;

BEGIN

ClrScr;

Write('Введите N = '); ReadLn(N);

For i:= 1 to N do

begin

Write('X[ ', i, ' ] = '); ReadLn(X[i])

end;

k:=0;

For i:= 1 to N do

If X[i]>0 then

begin

k:=k+1; Y[k]:=X[i];

end;

For i:= 1 to N do

If X[i]=0 then

begin

k:=k+1; Y[k]:=X[i];

end;

For i:= 1 to N do

If X[i]<0 then

begin

k:=k+1; Y[k]:=X[i];

end;

Write('О т в е т: полученный массив');

For i:= 1 to N do Write(Y[i]: 5: 1);

WriteLn; ReadLn;

END.






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных