Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл

@edvard_sergeev · Регистрация: 02.10.2012

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

Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл.

ещё одна задачка в паскале, помогите пожалуйста ребят

@Leshak · 01.11.2012, 12:16

Pascal

Uses crt;
const n = 100;
var
 Arr: array [ 1 .. n ] of integer;
 input, output: text;
 i, j, m, temp, number: integer;
begin
clrscr;
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
m:=1;
 
while not eoln(input) do begin
      read(input,Arr[m]);
      inc(m);
end;
 
close(input);
m:=m-1;
 
for i:=1 to m do begin
    write(Arr[i],' ');
end;
 
writeln;
 
for j:=1 to m-1 do
 for i:=1 to m-1 do
   if arr[i] > arr[i+1] then begin
    temp:=arr[i];
    arr[i]:=arr[i+1];
    arr[i+1]:=temp;
   end;
 
for i:=1 to m do begin
    write(output,Arr[i],' ');
    write(Arr[i],' ');
end;
close(output);
readkey;
end.

Новые блоги и статьи
Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .	[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .
КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .	Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .

@edvard_sergeev 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 18
		1
	Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл 01.11.2012, 11:41. Показов 1706. Ответов 1 Метки нет (Все метки) Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл. ещё одна задачка в паскале, помогите пожалуйста ребят 0

	01.11.2012, 12:16

Отсортировать по возрастанию набор чисел, находящийся в одном файле, и записать его в другой файл

Решение