Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal В целочисленном массиве определить количество серий. В целочисленном массиве определить количество серий, элементы которых представляют собой целые степени чисел 2 или 5. наработка program MyProgram; uses crt; const n=5; var A:array of integer; i,k,p,d:integer; Begin https://www.cyberforum.ru/ pascal/ thread111224.html Pascal В файле F1 найти произведение последних пяти элементов
В файле F1 найти произведение последних пяти элементов. Полученным значением заменить каждую вторую компоненту файла. Результат вывести на экран
Pascal Вычислить значение функции составить программу для вычисления значений ф-и F(X) в зависимости от заданного с клавиатуры значения x: F(X)=-x при 44<=x<56, x (в квадрате), при 3<=x<9, 30-x, при 33>x>24, -x-10, при 18>x>=9 . https://www.cyberforum.ru/ pascal/ thread111214.html Pascal Вставить элементы в строку https://www.cyberforum.ru/ pascal/ thread111209.html
Дана строка, состоящая из чисел в диапазоне и заглавных латинских букв. Например, 22D7AC18FGD QWERTY Вставить цифру 1 перед теми буквами, где нет числа. То есть 22D7A1C18F1G1D 1Q1W1E1R1T1Y Что нужно изменить, чтобы программа вставляла единицы и в конце строки? var s:string; i,a:integer;
составить с помошью процедуры вектор Pascal
задать матрицы ,. Элементы их определите как случайные числа из диапазонов,. Сформируйте с помощью процедуры вектор, состоящий из минимальных элементов столбцов матрицы. Примените указанную процедуру к матрицам А и В, сформируйте два новых массива x(i) (i=1,...,4) и y(k) (k=1,...,5).
Pascal Поиск подмассива в массиве. Поиск значения Помогите исправить программу. вот условие и текст Даны два целочисленных массива X(n) и Y(m) .(m<=n). Определить, является ли массив Y подмассивом массива X и, если это так, то отпечатать значение k , при котором выполняются равенства x(k)=y(1), x(k+1)=y(2),... Program Zadacha; uses crt; const Nmax=100; type mas=array of integer; var i,j:integer; n,m:integer; https://www.cyberforum.ru/ pascal/ thread111182.html
Pascal Нахождение наименьшего числа https://www.cyberforum.ru/ pascal/ thread111177.html
Помогите перевести эту программу находящую максимальное число n-го размера из данного числа, так что бы она находила минимальное число Uses wincrt; const z=100; Var i, k, f, j, max, imax: byte; n, m: longint; a: array of integer; b: array of integer; Begin
Арифметический пример Pascal
Здрасти.Просьба помочь составить формулу и набросать код программы. http://pics.kz/s4/29/e3/da/01/29e3da01dca1c74a199f0f696c84180c.jpg
Pascal Площадь Помогите)) Составить программу... Даны длины сторон 4-угольника(x,y,z,m). вычислить его площадь, если угол между сторонами длиной x и y прямой. нужно решить через подпрограммы... процедуру или функцию))) всем с заранее спасиба...буду ждать ответа))) https://www.cyberforum.ru/ pascal/ thread111154.html Pascal Комплексные числа в тригонометрической форме Привет усем, нашол программу для знахождения +, -,/ и * комплексных чисел, Нужно тоже токо для их комплексной формы. Помогите пожалуйста. Заранее благодарен. https://www.cyberforum.ru/ pascal/ thread111148.html
Pascal программа с записями
помогите), нужно определить и вывести ФИО покупателя с минимальной ценой покупки program lab5; uses Crt; type g=record fio:string; cena:integer; data:real; end;
Pascal Составить тест. https://www.cyberforum.ru/ pascal/ thread111107.html
Составить программу тестирования, вопросы должны выбираться из списка хранящегося в файле и не должны повторятся.
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
31.03.2010, 20:44 0

Сортировка массивов - Pascal - Ответ 633725

31.03.2010, 20:44. Показов 1124. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено sv_dell_sv как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program zad;
type m=array[1..100] of integer;
var
m1:m;
i,n:integer;
procedure chet(mas:m;kol:integer);
var
m2:m;
k,i:integer;
begin
  k:=0;
  for i:=1 to kol do
  begin
    if m1[i] mod 2=0 then
    begin
      k:=k+1;
      m2[k]:=m1[i];
    end;
  end;
  for i:=1 to k do
  write(m2[i]:3);
end;
 
begin
 
  write('введите кол-во элементов ');readln(n);
  writeln('исходный массив');
  for i:=1 to n do
  readln(m1[i]);
  for i:=1 to n do
  write(m1[i]:3);
  writeln;
  writeln('преобразованный массив');
  chet(m1,n);
  readln;
end.


Вернуться к обсуждению:
Сортировка массивов Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2010, 20:44
Готовые ответы и решения:

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...

Сортировка массивов. Сортировка выбором
Помогите пожалуйста, я что-то совсем запуталась при составлении данной программы... Сортировка...

Сортировка массивов
Помогите, я уже не могу ничего придумать.. 1)Сортировать вставкой рядки массива по возрастанию...

сортировка массивов
дана квадратная матрица N*M, состоящая из натуральных чисел. зеркально отразить ее элементы...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2010, 20:44
Помогаю со студенческими работами здесь

Сортировка массивов
осуществить сортировку заданного массива указанными двумя методами( поразрядная сортировка, Быстрая...

Сортировка массивов
Люди помогите, пожалуйста, написать программу для сортировки массивов по возрастанию методом выбора...

Сортировка массивов
Для значений i=1,2,...,n вычислить число сочетаний из n по i и занести результаты в массив с=(с1,...

Сортировка массивов
Даны целые числа а1,а2,...аn.Получить в пордке возрастания все различные числа,входящие в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru