Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Паскаль, использование модулей https://www.cyberforum.ru/ pascal/ thread1583045.html Написать программу с помощью модулей. Должна содержать: 1) Процедура ввода матриц. 2) Процедура формирования матрицы, которая равняется сумме двух прямоугольных матриц. 3) Функция определения наибольшего элемента первого ряда матрицы. 4) Процедура вывода матрицы.	Написать программу, использующую функцию, которая вычисляет доход по вкладу Pascal Написать программу, использующую функцию, которая вычисляет доход по вкладу. Параметрами функции являются величина вклада, процентная ставка и срок вклада. Процентная ставка (% годовых) и время хранения (дней) задаются во время работы программы. Примерный вид выводимых данных: Величина вклада = Срок вклада = Процентная ставка = Доход: . Сумма по окончании срока вклада: .
Pascal Процедура Здравствуйте, помогите решить 1.Через процедуру 2.Через функцию 1. вычислить значение L=\sum_{i=1}^8 sin^2(x_1)/2 где x_1 заданы массивом; x_1=(0,2;0,46;0,33;0,97,0,15;0,61;0,54;0,77) 2. Вычислить t=(tan(xa)-b^3)/(cos^2(yb)+a) x=0.1; y=0.7; x=0.4; y=0.6; x=0.5; y=2.7; a=7.1; b=2.4 при всех значениях x,y. https://www.cyberforum.ru/ pascal/ thread1582660.html	Pascal Составьте программу определения стоимости покупки компьютеров в $ и в рублях по курсу https://www.cyberforum.ru/ pascal/ thread1582611.html В продаже имеются компактные компьютеры марки: TOSHIBA $500; SHARP $900; DELL $1350. Оптовым покупателям (>10) – скидка 17%. Составьте программу определения стоимости покупки компьютеров в $ и в рублях по курсу. Добавлено через 23 секунды Если можно то побыстрее.Через пол часа сдавать.Очень прошу
Pascal Получить файл g, образованный из файла f исключением повторных вхождении одного и того же числа Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f исключением повторных вхождении одного и того же числа. Спасибо.	Pascal Найти элементы которые есть в 3 массивах https://www.cyberforum.ru/ pascal/ thread1582355.html Найти элементы которые есть в 3 массивах
Pascal Найти минимальный элемент среди элементов, стоящих на четных позициях и его номер 2)Задан одномерный массив A. Найти минимальный элемент среди элементов, стоящих на четных позициях и его номер. https://www.cyberforum.ru/ pascal/ thread1582188.html	Определить среднее значение нечетных положительных элементов массива Pascal 1)Задан одномерный массив А. Определить среднее значение нечетных положительных элементов массива.
Pascal Циклические вычислительные процессы Program z2; var A,B,x: real; Begin writeln('Enter A,B,x,A>B'); readln(A,B,x); If x>B then y:= abs(sin (x))+1 else If (x>=a) and(x<=b) then y:= sqr(cos(x))+2; else y:=cos(sqr(x))/sin(sqr(x)); Writeln (y=',y); Redln; End. https://www.cyberforum.ru/ pascal/ thread1582158.html	Pascal Используя метод простого обмена упрядочить массив https://www.cyberforum.ru/ pascal/ thread1582027.html Массив записей полями которых являются фамилия и рост, используя метод простого обмена упорядочить этот массив, расположив элементы массива по убыванию роста. не нарушая порядок этого массива вставить в него новые значения вводимые с клавиатуры. P.S желательно через процедуры
Pascal Оставьте программу которая в слове «класс» две одинаковые буквы обозначались цифрой «1» нужна срочная помощь!!! Составьте программу которая в слове «класс» две одинаковые буквы обозначались цифрой «1»	Pascal Нарисовать 15 белых и 15 черных вертикальных чередующихся полос https://www.cyberforum.ru/ pascal/ thread1581877.html Нарисовать 15 белых и 15 черных вертикальных полос, которые чередуются. Осуществить имитацию их движения.

bormant

Модератор

7771 / 4600 / 2824

Регистрация: 22.11.2013

Сообщений: 13,080

Записей в блоге: 1

17.11.2015, 12:07

Массив: Переписать все нечетные значения в начало, а все четные в конец - Pascal - Ответ 8353174

17.11.2015, 12:07. Показов 4276. Ответов 2

Метки (Все метки)

Ответ

Поскольку сохранять порядок следования не требуется, можно не двигать остаток массива, только необходимые элементы:

Pascal

const n=80;
var
  a: array [1..n] of Integer;
  i, j, t: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=Random(100);
  WriteLn('A='); for i:=1 to n do Write(a[i]:4); WriteLn;
 
  i:=1; j:=n;
  while i<j do begin
    if Odd(a[i]) then Inc(i)
    else begin
      t:=a[j]; a[j]:=a[i]; a[i]:=t; Dec(j);
    end;
  end;
 
  WriteLn('A''='); for i:=1 to n do Write(a[i]:4); WriteLn;
end.

Вернуться к обсуждению:
Массив: Переписать все нечетные значения в начало, а все четные в конец Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.11.2015, 12:07

Готовые ответы и решения:

Дан одномерный массив А. Перенести в начало массива все четные элементы, а в конец - все нечетные
Помогите пожалуйста написать программу на языке "Си": Дан одномерный массив А состоящий из N...

Дан массив целых чисел. Переместить в начало все нечетные числа, а в конец все четные
Дан массив целых чисел.Переместить в начало все нечетные числа,а в конец все четные.(В паскале)

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Сколько значений...

	17.11.2015, 12:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.11.2015, 12:07

Помогаю со студенческими работами здесь

Поставить в начало массива все четные элементы, а конец – все нечетные
Всем доброго времени суток.Помогите написать процедуру, которая ставит в начало массива все четные...

Переместить в начало массива все нечетные числа, а в конец все четные
Переместить в начало все нечетные числа, а в конец все четные.

Дан числовой массив A размера N. Все четные его элементы поместить в начало массива B, а нечетные элементы - в конец
#include <stdio.h> #include <malloc.h> #include <stdlib.h> #include <locale.h> int main (int...

В заданной строке матрицы все четные элементы переместить в начало, а нечетные в конец
С клавиатуры вводится произвольная двумерная матрица (не более 5*5), после чего делается ее...

Наверх