![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 25.12.2008
Сообщений: 6
|
![]()
Помогите плиз - я не знаю как это сделать: "Создать текстовый файл, который состоит из 10 строк. В файле поменять местами 1-ую и последнюю строчку". Заранее благодарю!!!
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
![]()
uses crt;
var mas:array[1..10] of string; i,j:integer; s:string; fil:text; begin clrscr; assign(fil,'c:\x.txt'); rewrite(fil); for i:=1 to 10 do begin readln(s); writeln(fil,s); end; close(fil); assign(fil,'c:\x.txt'); reset(fil); for i:=1 to 10 do begin readln(fil,mas[i]); end; close(fil); assign(fil,'c:\x.txt'); rewrite(fil); writeln(fil,mas[10]); for i:=2 to 8 do writeln(fil,mas[i]); writeln(fil,mas[1]); close(fil); readln; end.
@(o_0)@
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 25.12.2008
Сообщений: 6
|
![]()
спасибо!!!!
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
![]()
Только нужно
Код:
Код:
![]() |
![]() |
![]() |
![]() |
#5 | |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
![]() Цитата:
Опечатка ![]() ![]() ![]()
@(o_0)@
|
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 25.12.2008
Сообщений: 6
|
![]()
слухай а он не правильный!!!! препод сказал что тут нет замены строк!!!! напиши кодом как поменять строки!!!!!!!!!=))
|
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Сначала введи в новй файл s[10], потом с s[2] до s[9], потом s[1].
|
![]() |
![]() |
![]() |
#8 |
Регистрация: 25.12.2008
Сообщений: 6
|
![]()
puporev ты можешь тоже самое кодом????
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
А зачем тебе, если ты даже такое не умеешь и код тебе написали, чуть подделать? Что тебе легче станет? Меньше зеаешь, лучше спишь.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
текстовый файл | werser | Общие вопросы Delphi | 3 | 06.06.2008 08:42 |
Текстовый файл | subsonic | Общие вопросы Delphi | 5 | 09.03.2008 21:20 |
текстовый файл | Var17 | Общие вопросы Delphi | 1 | 22.12.2007 02:20 |
Текстовый файл в текстовый массив | Kimimaru | Общие вопросы C/C++ | 1 | 02.12.2007 11:55 |
Консольная программа на Си: ввод, вывод, сортировка, сохранение в текстовый файл. | zerg | Помощь студентам | 8 | 16.11.2007 12:57 |