Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2017, 11:29   #1
KariLex
Пользователь
 
Регистрация: 01.04.2017
Сообщений: 27
По умолчанию Работа с файлами. Строка с цифры = скобка

Помогите пожалуйста. Только начал проходить файлы, не могу понять еще полностью.
ТурбоПаскаль

Требуется написать программу, считывающую данные из текстового файла; затем данные записываются в файл прямого
доступа (компоненты файла являются целого или вещественного типа (если входные данные символы, то сначала нужно перевести их в коды, а потом записать в файл)); обработать данные (использовать прямой доступ к компонентам файла) и записать результат в текстовый файл.

После обработки файла создать его копию, путем записи его содержимого в другой файл с использованием механизма «бестиповых файлов».

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

Спасибо большое заранее!

Последний раз редактировалось KariLex; 01.04.2017 в 11:31.
KariLex вне форума Ответить с цитированием
Старый 01.04.2017, 11:31   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 01.04.2017, 12:50   #3
KariLex
Пользователь
 
Регистрация: 01.04.2017
Сообщений: 27
По умолчанию

Вот наработки. Работает, когда в документе одна строка. А как сделать для всех строк в документе не могу понять. Где-то нужно сделать repeat until только как его расписать не пойму.

Код:
var f1,f2:text;
    str1: string;
    
begin

assign(f1, 'flayf.txt');
assign(f2, 'kopy.txt');
reset(f1);

 readln(f1,str1);
 If str1[1] in ['0'..'9'] Then
begin
  Insert('(',str1,1);
  Insert(')',str1,Length(str1)+1);
end;

append(f2);
writeln(f2,str1);
close(f2);
close(f1);
end.
______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.
KariLex вне форума Ответить с цитированием
Старый 01.04.2017, 12:53   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

http://www.freepascal.org/docs-html/rtl/system/eof.html
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вводится строка произвольного текста, в котором есть и цифры. Удвоить каждую цифру.(PascalABCNET) FlayGlam Помощь студентам 0 03.12.2016 09:56
Visual Basic. Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка.Вывести текст между скобками Nember Помощь студентам 3 21.12.2013 22:04
строка содержит цифры и пробелы. перевести числа в двоичную систему kloffelin Помощь студентам 5 16.05.2010 21:01
Дана строка символов. Удалить из исходной строки все цифры. Striker14 Помощь студентам 4 26.02.2009 15:50
Дана строка символов. Задача: удалить из строки все цифры. Striker14 Помощь студентам 1 25.02.2009 20:23