Переставить местами первую и последнюю цифры числа

@m00nlight · Регистрация: 29.01.2017

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

Дано натуральное число n (записано в изначальном файле на диске). Переставить местами первую и последнюю цифры этого числа.

@m00nlight · 31.01.2017, 14:01 **[ТС]**

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

Добавлено через 1 минуту
Это связано с тем, что я год не программировал совсем и был в академе (были на то причины), но это ни к месту уже.
Спасибо, что помогаете мне вспоминать азы написания кода.

Добавлено через 3 минуты

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

Да при чем тут файлы, если в голове вакуум как в заднице.

И ещё: не будь таким злым, если действительно хочешь кому-то помочь)

@droider · 31.01.2017, 15:31

Не по теме:

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

если в голове вакуум как в заднице

сильнейшее определение отсутствия способности мыслить самостоятельно :rofl:

@m00nlight · 31.01.2017, 16:44 **[ТС]**

Ребят, в общем, тут такое дело.
Оказывается, ещё и в файл потом все данные вывести надо было.

Добавил в ваш код вот это:

Delphi
1
2
3
4
5
 Append(f);
 Writeln(f, Label1.Caption);
 Writeln(f, Label2.Caption);
 Flush(f);
 CloseFile(f);

Правда, по условию задания не сказано - надо ли перед этим очищать сам файл.
Поэтому не стал.
А вы говорите сам не могу ничего написать :D

@D1973 · 31.01.2017, 17:33

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

Вот так бы сразу

А кто тебе сразу мешал сказать, что ты делаешь окошки, а не консоль

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

А вы говорите сам не могу ничего написать

вот это-то на кой ляд???

Delphi
1
Flush(f);

И вообще, раз ты работаешь не в консоли и не с типизированными файлами - зачем тогда все это паскалевское наследство (Assign, Read, Write)?
Есть же нормальные средства работы с файлами в Дельфи (версию своей ты так и не указал). Не надо упираться в старье...

@m00nlight · 31.01.2017, 18:16 **[ТС]**

Просто методички годов хрен знает каких, а делаем мы всё именно по ним.
А "нормальные средства работы с файлами" - для слабаков.
Настоящий программист должен уметь всё)

p.s. Изначально мы начинали работать на Delphi 7 (данную программу пишу именно на нём, на стареньком стационарном ПК с 2 Гб оперативы всего); а так, по месту учёбы - не так давно перешли на Delphi XE3.

@D1973 · 01.02.2017, 08:06

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

Просто методички годов хрен знает каких, а делаем мы всё именно по ним.

Даже в них должно быть написано, что использовать совместно Flush(f) и CloseFile(f) - просто бессмысленно.

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

А "нормальные средства работы с файлами" - для слабаков.
Настоящий программист должен уметь всё)

ну-ну...

@droider · 01.02.2017, 09:04

Не по теме:

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

Настоящий программист должен уметь всё

Настоящий программист должен рационально подобрать решение, и сделать так, чтобы программа работала стабильно, а не через <простонародное название ягодиц>

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@m00nlight 0 / 0 / 0 Регистрация: 29.01.2017 Сообщений: 70

	Переставить местами первую и последнюю цифры числа 29.01.2017, 11:06. Показов 4045. Ответов 26 Метки работа с файлами, файл (Все метки) Дано натуральное число n (записано в изначальном файле на диске). Переставить местами первую и последнюю цифры этого числа. 0

@m00nlight 0 / 0 / 0 Регистрация: 29.01.2017 Сообщений: 70
	31.01.2017, 18:16 [ТС]
	Просто методички годов хрен знает каких, а делаем мы всё именно по ним. А "нормальные средства работы с файлами" - для слабаков. Настоящий программист должен уметь всё) p.s. Изначально мы начинали работать на Delphi 7 (данную программу пишу именно на нём, на стареньком стационарном ПК с 2 Гб оперативы всего); а так, по месту учёбы - не так давно перешли на Delphi XE3. 0