Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal вычислить значение функции при произвольных значениях параметров a и b(ввод с клавиатуры) Помогите пожалуйста с задачей и по возможности составьте блок схему.Зараннее благодарен.Вот задача: вычислить значение функции при произвольных значениях параметров a и b(ввод с клавиатуры):... https://www.cyberforum.ru/ pascal/ thread158142.html Pascal Матрицы
Помогите решить задачу. Задача: Заполнить прямоугольный массив последовательными натуральными числами по спирали: 1 2 3 4 12 13 14 5
Pascal рисунок на футбольную тему в модуле grapf https://www.cyberforum.ru/ pascal/ thread158071.html
люди добрые, помогите нарисовать с помощью модуля grapf в паскалюшке футбольное поле с воротами парочкой футболистов мячиком и таблом) можно еще болельщиков засунуть. ато что-то время поджимает а у... 		Pascal Текст заканчивающийся точкой занести в динамический кольцевой список. https://www.cyberforum.ru/ pascal/ thread157987.html
Текст заканчивающийся точкой занести в динамический кольцевой список. вывести на экран монитора текст из кольцевого списка n раз, n ввести с клавиатуры
Pascal пробные контрольные по программированию
1. описать функцию RootCount (A,B,C),определяющую по дискриминанту количество корней квадратного уравнения. используя ее, определить количество корней для каждого из 5 уравнений, заданных своими... 		Pascal процедуры https://www.cyberforum.ru/ pascal/ thread157945.html
задача: Преобразовать исходную матрицу A= в такую матрицу B = , в которой элементы в строках и столбцах расположены по возрастанию, т.е. и при . Вычислить сумму элементов...
Pascal Оптимизация https://www.cyberforum.ru/ pascal/ thread157875.html
Помогите,пожалуйста,с решением задачи. Методом случайного поиска вычислить минимум функции F=(4*x-5)*x-x*y+(4*y-1)*y+72 с начальным шагом h=4, начальная точка M0=(5;1). заданная область определения... 		Меню "пуск" на Паскале Pascal
Создать меню похожее на меню "Пуск" с расположением на левом нижнем углу.
Pascal работа с массивами! Здравствуйте! Помогите найти ошибку в программе. Вот задача: Дана прямоугольная матрица А, состоящая из нулей и единиц. Посчитать в ней “веса” строк, т.е. отношение числа единиц в... https://www.cyberforum.ru/ pascal/ thread157866.html Pascal Упорядочить массив, состоящий из 40 элементов, по не возрастанию. https://www.cyberforum.ru/ pascal/ thread157863.html
Здравствуйте помогите составить блок схему:Упорядочить массив, состоящий из 40 элементов по не возрастанию. Program mas_40; uses crt; const n=40; Var a:array of integer; k,I,j:integer; Begin...
Проверка контрольной суммы штрих-кода Pascal
Помогите править код. Есть условный алгоритм, дан 13-значный штрих-код, необходимо сумму четных позиций умноженное на 3 прибавить к сумме нечетных позиций program strikh; uses crt; var... 		Pascal Сортировка двумерного массива с записью значений в одномерный: положительных затем отрицательных https://www.cyberforum.ru/ pascal/ thread157715.html
Есть матрица с целыми числами (положительными и отрицательными). Нужно отсортировать значения в одномерный массив сначала положительные затем отрицательные значения. У меня получилось только в два...
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.08.2010, 09:51 0

Сортировка элементов файла с записью в другой файл. - Pascal - Ответ 896725

09.08.2010, 09:51. Показов 1944. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено temp1234567 как решение

Решение

Например так по возрастанию.
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

var f:file of integer;
    a,b,i,j,x:integer;
begin
...............................
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,x);
      end;
   end;
close(f);


Вернуться к обсуждению:
Сортировка элементов файла с записью в другой файл. Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 09.08.2010, 09:51
Готовые ответы и решения:

Произвести выборку из файла с записью в другой файл
Суть в следующем: Имеется лог файл содержащий информацию в следующем виде дан - какие-то данные ...

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

Сделать функции заполнения исходного файла и обработки массива с записью в другой файл
Здравствуйте! Требуется: Считать все числа из файла (количество чисел - произвольное) в...

Сортировка по убыванию из файла с выводом в другой файл
Требуется написать программу, с использованием 2 мерного массива, без процедур. Исходные данные:...

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

Сортировка с записью в файл
Помогите решить задачку. Дан одномерный массив A. Необходимо: -все отрицательные элементы...

Сортировка имен с записью в файл
надо записать имена(Алина,Игорь, Василий,Елена,Борис) в файл , затем отсортировать их в алфавитном...

Сортировка номеров машин с записью в файл
Задание было такое: Составить программу, определяющую вид регистрационного номера автомобиля....

Заполнение файла случайными числами и перенос элементов в другой файл
Напишите пожалуйста программу. Заполнить текстовый файл целыми числами, полученными с помощью...

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