Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла

@DimaKAA · Регистрация: 16.12.2011

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

Есть две задачи, ломал голову над ними около двух дней. неудачно)
1). Даны имена двух файлов вещественных чисел. Известно, что один из них (не обязательно первый) существует и является непустым, а другой в текущем каталоге отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке).
2). Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех убывающих последовательностей элементов исходного файла. Например, для исходного файла с элементами 1.7, 4.5, 3.4, 2.2, 8.5, 1.2 содержимое результирующего файла должно быть следующим: 3, 2.

@WebMax 2.0 · 21.12.2011, 14:52

Сообщение от DimaKAA

1). Даны имена двух файлов вещественных чисел. Известно, что один из них (не обязательно первый) существует и является непустым, а другой в текущем каталоге отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке).

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
31
32
33
34
var f: text;
    name1, name2: string;
    num, num2: real;
begin
write('<Имя 1-го файла>.формат : ');readln(name1);
write('<Имя 2-го файла>.формат : ');readln(name2);
if FileExists (name1) then
    begin
    assign(f,name1);
    reset(f);
    read(f,num);
        while not eof (f) do
        read(f,num2);
    close(f);
    assign(f,name2);
    rewrite(f);
    write(f,num2,' ',num);
    close(f);
    end else
 
    begin
    assign (f,name2);
    reset (f);
    read (f,num);
        while not eof (f) do
        read (f,num2);
    close(f);
    assign(f,name1);
    rewrite(f);
    write(f,num2,' ',num);
    close(f);
    end;
    Writeln('Операция выполнена ! ');
end.

@DimaKAA · 22.12.2011, 00:06 **[ТС]**

Большое тебе спасибо, о гуру программирования.) но ето он немного выдает ошибку
Program10.pas(23) : Ошибка времени выполнения: Could not find file 'C:\PABCWork.NET\dg.txt'.

@WebMax 2.0 · 22.12.2011, 00:12

Извини . У меня простой PascalABC , не .net версии . Всё работает .

Добавлено через 2 минуты
В файле вещественные числа записаны в таком порядке: 1.29 1.23 1.21 1.125

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@DimaKAA 1 / 1 / 1 Регистрация: 16.12.2011 Сообщений: 52

	Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла 21.12.2011, 11:21. Показов 4037. Ответов 3 Метки нет (Все метки) Есть две задачи, ломал голову над ними около двух дней. неудачно) 1). Даны имена двух файлов вещественных чисел. Известно, что один из них (не обязательно первый) существует и является непустым, а другой в текущем каталоге отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке). 2). Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех убывающих последовательностей элементов исходного файла. Например, для исходного файла с элементами 1.7, 4.5, 3.4, 2.2, 8.5, 1.2 содержимое результирующего файла должно быть следующим: 3, 2. 0

@DimaKAA 1 / 1 / 1 Регистрация: 16.12.2011 Сообщений: 52
	22.12.2011, 00:06 [ТС]
	Большое тебе спасибо, о гуру программирования.) но ето он немного выдает ошибку Program10.pas(23) : Ошибка времени выполнения: Could not find file 'C:\PABCWork.NET\dg.txt'. 0

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	22.12.2011, 00:12
	Извини . У меня простой PascalABC , не .net версии . Всё работает . Добавлено через 2 минуты В файле вещественные числа записаны в таком порядке: 1.29 1.23 1.21 1.125 0

Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла

Решение