Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить значение выражения Нужна помощь по решении этого примера https://www.cyberforum.ru/ turbo-pascal/ thread328704.html	Turbo Pascal Вычислить систему неравенств Помощь в решении
Turbo Pascal Школьная. Пожалуйста помогите, учусь в девятом классе, не врубаюсь: Определите периметры треугольников, заданных координатами их вершин А(5,2); В(5,2); С(5,2). Длину стороны треугольника вычислить в подпрограмме-функции. 20:47:26 Точки вместо (5,2) как я понял подставлять любые свои. Добавлено через 16 минут Если кто-то может помочь - пожалуйста помогите, задачу сдавать завтра при любых... https://www.cyberforum.ru/ turbo-pascal/ thread328668.html	Turbo Pascal Вычислить значение выражения r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y)) https://www.cyberforum.ru/ turbo-pascal/ thread328654.html
Изобразить летящего комара Turbo Pascal Ребят даны такие задачи: 1.Циссоида: x3+(x-a)y2=0, a>0. Воспользуйтесь параметрическим представлением: x=at^2/1+t^2,y=at^3/1+t^2,-∞ < t < +∞. 2.Изобразить летящего комара Заранее спасибо.	Turbo Pascal Ввывод на экран Помогите прописатьв программе чтобы после ввода матриц они выводились на экран) Зарание спс) Текст программы: Program Fellix; uses crt; type mas=array of integer; mas1=array of integer; Var a,b,xn:mas; z1, z2, a1:mas1; j,i,k,n1,m1,n2,m2:integer; Procedure sum (n,m:integer; xn:mas; var a1:mas1); var i,j,k:integer; https://www.cyberforum.ru/ turbo-pascal/ thread328606.html
Turbo Pascal график функции построение графика функции f(x)=a+b+c^dx+f https://www.cyberforum.ru/ turbo-pascal/ thread328562.html	Turbo Pascal Изменить информацию в поле <оклад> для записей с заданным табельным номером 1.Создать набор данных содержащих сведения о сотрудниках учреждения. Записи упорядочить по табельному номеру. Структура записи: __________________________________________________________________________________ \|Табельный номер___\|___Фамилия___\|___Должность___\|___Оклад___\|____Стаж работы\| \|____________________\|______________\|________________\|____________\|________________\| 2.Изменить...
Turbo Pascal Меньшее из чисел умножить на 3 https://www.cyberforum.ru/ turbo-pascal/ thread328517.html Написать программу создания 2-х динамических целочисленных переменных.ввести их значения с терминала и меньшее из них умножить на 3	Turbo Pascal Определить сумму цифр числа дано натуральное число N.Определить: а)сумму цифр; б)есть ли в записи числа цифра "5". https://www.cyberforum.ru/ turbo-pascal/ thread328478.html
Turbo Pascal Организовать поиск наибольшего элемента массива из н вещественых чисел рекурсианвм способом Организовать поиск наибольшего элемента массива из н вещественых чисел рекурсианвм способом	Turbo Pascal Паскаль Графика Нарисовать на фоне пейзажа периодически движущийся закрашенный прямоугольник. Движение из точки с координатами (0,0) в точку с координатами (640, 400). Размеры прямоугольника ввести с клавиатуры. Движение прерывается после нажатия клавиши “F2”. Не получается реализовать движение квадрата именно в точку (640, 400), так как размеры квадратов разные и вводятся с клавиатуры....подскажите,... https://www.cyberforum.ru/ turbo-pascal/ thread328464.html

sa_

0 / 0 / 0

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

Сообщений: 19

02.07.2011, 08:21 [ТС]

Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания - Turbo Pascal - Ответ 1811820

02.07.2011, 08:21. Показов 1392. Ответов 14

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

Ответ

Pascal

1	reset(f2);

вот я открываю файл
вставляю сортировку

Pascal

for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
writeln('Fail chetnih chisel:');
while not eof(f2) do
begin
read(f2,a[i]);
write(a[i],' ');
end;
close(f2);

но все равно сортировка не работает

Вернуться к обсуждению:
Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания Turbo Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.07.2011, 08:21

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

Все четные элементы файла записать во второй файл и отсортировать их в порядке возрастания
Помогите пожалуйста не могу сделать сортировку в файлах. помогите пожалуйста не знаю как это...

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Все четные числа файла записать во второй файл, а нечетные — в третий
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Заменить все отрицательные элементы вектора на их квадраты и отсортировать в порядке возрастания
Буду очень благодарна,если напишите программу. Дан вещественный вектор А . Заменить все...

	02.07.2011, 08:21

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.07.2011, 08:21

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

Записать во второй файл только отрицательные четные элементы первого
Создать типизированный файл из целых чисел в диапазоне . Записать во второй файл только...

Четные цифры отсортировать в порядке возрастания
в одномерном числовом массиве четные цифры отсортировать в порядке возрастания. массив должен...

Массив. Вывести все четные в порядке возрастания их индексов,все нечетные в порядке их убывания
помогите, пожалуйста, решить задачи по массивам. очень нужно. полностью пропустила эту тему( 1.дан...

Записать в файл С все четные числа файла F, а в файл N - все нечетные.
сформировать файл F, компонентами которого являются целые числа. записать в файл С все четные числа...

Наверх