Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Как вывести индекс массива в данной задаче? program gdiagle ; uses crt; var i,j,max:integer; a:array of integer; s:array of integer; begin for i:=1 to 5 do begin for j:=1 to 10 do https://www.cyberforum.ru/ pascal/ thread1088468.html Pascal сортировка матрицы Pascal
Помогите пожалуйста решить задачу : Дана целочисленная квадратная матрица. Если максимальный элемент матрицы находится на главной диагонали, а минимальный – на побочной, то упорядочить элементы...
Pascal Работа с типизированные файлами! Задание: На диске пользователя (например E:\) даны 2 типизированных файла – L71.dat и L72.dat. В первом хранятся 361 значение аргумента arg в градусах (от 0 до 360), во втором – 361 значение функции... https://www.cyberforum.ru/ pascal/ thread1088370.html Pascal Результат выполнения https://www.cyberforum.ru/ pascal/ thread1088345.html
1)С клавиатуры вводится предложение. Изобразите графически алгоритм и напишите программу, распечатывающую все буквы этого предложения в алфавитном порядке Const bukv : Set Of 'A'..'я' = ; Var...
Pascal кондиционер задача
все классy пронумерованы последовательно от 1 до n . известно что для каждого класса с номером i,требуется один кондиционер мощность которого больше или равна а ватт был представлен список из m...
Pascal Кардиоида https://www.cyberforum.ru/ pascal/ thread1088105.html
Напишете код в паскаль =* :gwink: Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:
Pascal График функции y=sinx Напишите пожалуйста программу :flirt: Исследовать область определения функции и построить график функций: y=sin x https://www.cyberforum.ru/ pascal/ thread1088102.html Pascal Использование матриц в качестве параметров в функциях
В квадратной матрице A(n*n) найти наибольший элемент среди элементов, расположенных на главной и побочной диагоналях, после чего обменять его местами с наименьшим элементом, смежным с пересечением...
Pascal Работа с файлами https://www.cyberforum.ru/ pascal/ thread1087913.html
Создать файл и записать в него информацию Program Zad; Uses Crt; Type m=array of integer; F=file of m; h=file of integer; Var a:f; b:h;
Pascal Использование процедур. Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread1087891.html
Постановка задачи Даны целые числа m и n получить z=b(2m.{m}^{2})+3b(mn*2n)-b(2n,m),GDE b(x,y)=\prod_{x}^{i-1}\sqrt{y} Program zad; Uses Crt; Var n,z:real; t,h,l,m,i:integer;...
Составьте программу подсчета наименьшего количества имеющихся септимов для выплаты суммы М (1<М<10000) Pascal
Покупатель купил товаров у купца на М септимов, а купец предложил ему сделку: если он рассчитается за товары наименьшим количеством купюр, то купец подарит ему кошелек золотых монет. Имеются купюры...
Pascal Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3 https://www.cyberforum.ru/ pascal/ thread1087511.html
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3.
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
04.02.2014, 00:33 0

Дан текстовый файл. Вставить в начало файла его последнюю строку, а в конец первую строку. - Pascal - Ответ 5734865

04.02.2014, 00:33. Показов 1995. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено TaAccTikk как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var s, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  readln(i, s);
  while not(eof(i)) do
    begin
      readln(i, t);
      writeln(r, t)
    end;
  writeln(r, s);
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.
Добавлено через 2 часа 48 минут
Ох, нет. Это я первую строку поместил в конец файла. Так правильно:
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
const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var sf, sl, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  while not(eof(i)) do readln(i, sf);
  reset(i);
  readln(i, sl);
  writeln(r, sf);
  while not(eof(i)) do
    begin
      readln(i, t);
      if not(eof(i))
        then writeln(r, t)
        else writeln(r, sl)
    end;
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.


Вернуться к обсуждению:
Дан текстовый файл. Вставить в начало файла его последнюю строку, а в конец первую строку. Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2014, 00:33
Готовые ответы и решения:

Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец строку из пят
Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец...

Дан текстовый файл ( определить слово с наибольшим количеством букв и вставить его на начало и конец строки)
Дан текстовый файл определить слово с наибольшим количеством букв и вставить его на начало и конец...

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

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

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

Дана строка S и текстовый файл. Добавить строку S в начало и конец файла
Дана строка S и текстовый файл. Добавить строку S в начало и конец файла.

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

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

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

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