Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Возвести в квадрат некоторые числа файла https://www.cyberforum.ru/ pascal/ thread1384565.html
Ввести файл F . Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат (индексом считать позицию элемента, увеличенную на единицу). Файл... 		Определить в файле произведение остатков от деления на 4 Pascal
Ввести файл F из 13 элементов. Определить в нём произведение остатков от деления на 4 тех элементов, которые не кратны четырём.
Pascal Удалить из списка все элементы с нечетными номерами https://www.cyberforum.ru/ pascal/ thread1384539.html
Можете переделать эту програму так : дано указатель Р1 на первый элемент двухсвязного списка, содержащего не менее двух элементов. Удалить из списка все элементы с нечетными номерами и вывести... 		Pascal Сортировка методом вставки чётных и нечётных чисел Организовать массив, что состоит из 20 целых чисел. Упорядочить отдельно чётные элементы по возрастанию, а после - нечётные по убыванию. Признаюсь, даже простая сортировка методом вставки не... https://www.cyberforum.ru/ pascal/ thread1384234.html
Pascal Сортировка значений в файле
яямсс см 		Pascal Программа нахождения решения линейного уравнения https://www.cyberforum.ru/ pascal/ thread1383981.html
Составьте программу нахождения решения линейного уравнения ах + b = 0. Заранее спасибо)
Pascal Определение максимального (наибольшего) из введённых чисел https://www.cyberforum.ru/ pascal/ thread1383969.html
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте... 		Понятие трудоёмкости алгоритма Понятие эффективного алгоритма Pascal
Понятие трудоёмкости алгоритма. Классификация алгоритмов на основе функции трудоёмкости. Методика анализа трудоёмкости основных алгоритмических (базовых) конструкций. Понятие эффективного...
Pascal Разработать модуль для работы с матрицей https://www.cyberforum.ru/ pascal/ thread1383601.html
Модуль, который включает описание типа матрицы целых чисел, типа матрицы логических значений того же размера и процедуры: замены знаков всех чисел действительной матрицы на противоположные;... 		Pascal Сформировать одномерный массив логического типа https://www.cyberforum.ru/ pascal/ thread1383457.html
Дано двумерный массив целых чисел размером 3x4. Сформировать одномерный массив логического типа в котором элемент равен True, если в соответствующем столбце массива есть парные элементы и равен...
Pascal Найти первый положительный элемент каждой строки двумерного массива
Помогите! Дано двумерный массив действительных чисел размером 3x4. Найти первым положительный элемент каждой строки двумерного массива (считаем, что положительные элементы есть в каждой строке).... 		Pascal Реализовать англо-русский словарь https://www.cyberforum.ru/ pascal/ thread1383451.html
Англо-русский словарь построен в виде двоичного дерева. Каждый компонент содержит английское слово, соответствующее ему русское слово и счетчик количества обращений к данному компоненту....
6 / 6 / 10
Регистрация: 30.01.2015
Сообщений: 25
28.02.2015, 19:22 0

Переписать с сохранением порядка следования компоненты файла F1 в файл F2 - Pascal - Ответ 7283119

28.02.2015, 19:22. Показов 2597. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено xersin как решение

Решение

Вот. Если есть ошибки или, я что-то не так понял, то напишите. И да, я не использовал вспомогательный файл (посчитал лишним). Это не смертельно?
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

Var
a, b :array[1..100] of integer;
F1, F2 :text;
max1, max2, i, n, m :integer;
Begin
assign(F1, 'F1.txt');
assign(F2, 'F2.txt');
reset(F1); reset(F2);
n:=0; m:=0;
while not eof(F1) do begin
   n:=n+1;
   read(F1, a[n]);
   end;
while not eof(F2) do begin
   m:=m+1;
   read(F2, b[m]);
   end;
close(F1); close(F2);
max1:=a[1]; max2:=b[1];
for i:=1 to n do if a[i]>max1 then max1:=a[i];
for i:=1 to m do if b[i]>max2 then max2:=b[i];
assign(F1, 'F1(new).txt');
assign(F2, 'F2(new).txt');
rewrite(F1); rewrite(F2);
for i:=1 to m do write(F1, b[i], ' ');
writeln(F1); write(F1, max2*max2);
for i:=1 to n do write(F2, a[i], ' ');
writeln(F2); write(F2, max1*max1);
close(F1); close(F2);
end.


Вернуться к обсуждению:
Переписать с сохранением порядка следования компоненты файла F1 в файл F2 Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.02.2015, 19:22
Готовые ответы и решения:

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
1, Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следова-ния компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования...

Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты файла 1 F в файл 2...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в...

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

Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот.
Плиз прошу помочь с задачами: 1)Из введенного текста распечатать только те слова, которые...

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... Вариант 5 1. Даны...

Переписать с сохранением порядка следования компоненты файла f1 — в файл f2
Здравствуйте, помогите пожалуйста , с помощу процедуры. Сформировать файлы f1 и f2. Формулу для...

Файл: Переписать с сохранением порядка следования компоненты файлы f1 в файл f2, а компоненты файла f2 - в файл f1.
При открытии и сохранении файла необходимо использовать файловые диалоги. 1. Даны...

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