динамическая память; сортировка

@funnybunny · Регистрация: 24.05.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте. Безумно нуждаюсь в вашей помощи:
1. С клавиатуры вводится число, которое заполняет массив случайными числами в диапазоне от нуля до введенного числа.
- нужно отсортировать по возрастанию
- вывести на экран исходный массив и полученный массив;

2.Есть массив, заполнить его случайными числами, вывести в текстовый файл, отсортировать по возрастанию пузырьковым методом
и вывести полученное в другой текстовый файл.

@STGE · 25.05.2010, 10:44

1.

Pascal

uses crt;
const m=10;
var a: array[1..m] of ^integer; i,j: byte; n: integer;
begin
randomize;
clrscr;
write('введите значение параметра n: ');
readln(n);
writeln;
writeln('исходный массив: ');
for i:=1 to m do
begin
new(a[i]);
if n>=0 then a[i]^:=random(n+1)
else a[i]^:=-random(abs(n)+1)-1;
write(a[i]^:4);
end;
writeln;
writeln('отсортированный массив: ');
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i]^>a[j]^ then
begin
a[i]^:=a[i]^+a[j]^;
a[j]^:=a[i]^-a[j]^;
a[i]^:=a[i]^-a[j]^;
end;
for i:=1 to m do
write(a[i]^:4);
for i:=1 to m do
dispose(a[i]);
end.

@funnybunny · 25.05.2010, 12:11 **[ТС]**

спасибо) но мне еще добавили задачу: написать программу, которая по списку строит три новых списка: один-из элементов, делящихся на 2, другой-элементов, делящихсч на три, третий- из остальных элементов.
Желательно упрощенно

Добавлено через 39 минут
это не подходит?
if (x mod2=0) then
M:=m+1;
writeln('chisel kratnih 2: ', m);

Добавлено через 1 минуту
это не подходит?
if (x mod2=0) then
M:=m+1;
writeln('chisel kratnih 2: ', m);

Добавлено через 32 минуты
помогите, пжл, у нас зачет до 13.00

@funnybunny 0 / 0 / 0 Регистрация: 24.05.2010 Сообщений: 6
		1
	динамическая память; сортировка 25.05.2010, 07:26. Показов 1119. Ответов 2 Метки нет (Все метки) Здравствуйте. Безумно нуждаюсь в вашей помощи: 1. С клавиатуры вводится число, которое заполняет массив случайными числами в диапазоне от нуля до введенного числа. - нужно отсортировать по возрастанию - вывести на экран исходный массив и полученный массив; 2.Есть массив, заполнить его случайными числами, вывести в текстовый файл, отсортировать по возрастанию пузырьковым методом и вывести полученное в другой текстовый файл. 0

@funnybunny 0 / 0 / 0 Регистрация: 24.05.2010 Сообщений: 6
	25.05.2010, 12:11 [ТС]	3
	спасибо) но мне еще добавили задачу: написать программу, которая по списку строит три новых списка: один-из элементов, делящихся на 2, другой-элементов, делящихсч на три, третий- из остальных элементов. Желательно упрощенно Добавлено через 39 минут это не подходит? if (x mod2=0) then M:=m+1; writeln('chisel kratnih 2: ', m); Добавлено через 1 минуту это не подходит? if (x mod2=0) then M:=m+1; writeln('chisel kratnih 2: ', m); Добавлено через 32 минуты помогите, пжл, у нас зачет до 13.00 0

Опции темы

динамическая память; сортировка

Решение