Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Файл. Вставка слова перед заданным Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 7. Составьте текстовый файл p. Составьте программу вставляющую слово "Красивый" перед каждым заданным словом. Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread770594.html	Turbo Pascal Нахождение минимальной компоненты файла f кратной 11 Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 6. Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения минимальной компоненты файла f кратной 11 и определите, совпадает ли данная компонента с максимальной компонентой файла. Заранее спасибо.
Turbo Pascal Строки. Замена букв на сочетание https://www.cyberforum.ru/ turbo-pascal/ thread770591.html Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 5. Составьте программу, меняющую в слове Х все буквы "а" и "я" на сочетание "йа" Заранее спасибо.	Turbo Pascal Строки. Проверка вхождения букв Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 4. Составьте программу выясняющую, имеются ли в слове Х те буквы, что используются при написании слова Y Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread770590.html
Turbo Pascal Строки. Вычеркнуть буквы, стоящие на четвертых местах Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 3. Составьте программу вычеркивающие из слова Х буквы, стоящие на четвертых местах. Заранее спасибо.	Turbo Pascal Двумерный массив. Подсчет строк, имеющих два нулевых элемента https://www.cyberforum.ru/ turbo-pascal/ thread770587.html Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 2. Составьте программу подсчета строк двухмерного массива A(N,N), в которых имеются два нулевых элемента. Заранее спасибо.
Turbo Pascal Строки. Составить программу нахождения гласных, отсутствующих в слове X. Здравствуйте у меня с паскалем дикие проблемы и поэтому прошу помочь. 1. Составьте программу нахождения гласных, отсутствующих в слове X. Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread770580.html	Удалить столбцы в двумерном массиве Turbo Pascal дан двумерный массив удалить столбцы в которых первый элемент больше последнего
Turbo Pascal Отсортировать элементы массива, начиная со второго https://www.cyberforum.ru/ turbo-pascal/ thread770575.html Отсортировать элементы массива (10 элементов) начиная со 2	Turbo Pascal Вычислите сумму S и произведение P всех целых чисел от N1 до N2 https://www.cyberforum.ru/ turbo-pascal/ thread770525.html Пример: n1=3, n2=7, получим S=25, P=2520
Turbo Pascal Выведите на экран в три столбца список чисел от 1 до n, их квадратов и кубов. Число n вводите с клавиатуры. Например для n=5 на экране должно быть: 1 1 1 2 4 8 3 9 27 4 16 64 5 25 125	Turbo Pascal Выведите на экран список квадратов чисел от 1 до 20 (1,4,9,16..) https://www.cyberforum.ru/ turbo-pascal/ thread770510.html

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

24.01.2013, 14:00

Текстовый файл: Удалить из него последнюю строку - Turbo Pascal - Ответ 4046998

24.01.2013, 14:00. Показов 2603. Ответов 1

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

Сообщение было отмечено erte как решение

Решение

Pascal

Uses crt;
Var
  f,buf,buf2: Text;
  nam,s: String;
  i,n: Integer;
BEGIN
Clrscr;
Writeln('Vvedite imya faila: '); Readln(nam);
Assign(f,nam+'.txt');
{$I-} Reset(f); {$I+}
If IOResult=0 Then
begin
  Assign(buf,'buf.txt');
  Rewrite(buf);
  While not Eof(f) do
  begin
    Readln(f,s);
    Writeln(buf,s);
    Inc(n);
  end;
  Assign(buf2,'buf2.txt');
  Rewrite(buf2);
  Reset(buf);
  For i:=1 to n-1 do
  begin
    Readln(buf,s);
    Writeln(buf2,s);
  end;
  Close(f);
  Close(buf);
  Close(buf2);
  Erase(f);
  Erase(buf);
  Rename(buf2,nam+'.txt');
  Writeln('Gotovo');
end
Else Writeln('Fail ne naiden');
Readln
END.

Вернуться к обсуждению:
Текстовый файл: Удалить из него последнюю строку Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.01.2013, 14:00

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

Дан непустой текстовый файл. Удалить из него первую строку
Дан непустой текстовый файл. Удалить из него первую строку.

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

Дан текстовый файл. удалить в каждом слове последнюю букву
помогите...

Имеется текстовый файл. Удалить из него последнюю строку
Имеется текстовый файл. Удалить из него последнюю строку. Результат записать в другой файл.

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.01.2013, 14:00

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

Имеется текстовый файл.Нужно удалить из него последнюю строку
Помогите пожалуйста))Задача на файлы: Имеется текстовый файл.Нужно удалить из него последнюю...

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

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

Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл
Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

Наверх