Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 25.12.2008, 17:55   #1
ZloyGenii2008
 
Регистрация: 25.12.2008
Сообщений: 6
Репутация: 10
По умолчанию Программа на текстовый файл

Помогите плиз - я не знаю как это сделать: "Создать текстовый файл, который состоит из 10 строк. В файле поменять местами 1-ую и последнюю строчку". Заранее благодарю!!!
ZloyGenii2008 вне форума   Ответить с цитированием
Старый 25.12.2008, 18:28   #2
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию Кажется так

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.
Tkirill вне форума   Ответить с цитированием
Старый 25.12.2008, 21:39   #3
ZloyGenii2008
 
Регистрация: 25.12.2008
Сообщений: 6
Репутация: 10
По умолчанию

спасибо!!!!
ZloyGenii2008 вне форума   Ответить с цитированием
Старый 25.12.2008, 22:16   #4
pomoshnic
Форумчанин
 
Аватар для pomoshnic
 
Регистрация: 16.11.2008
Адрес: http://antiautorun.ucoz.ru/
Сообщений: 192
Репутация: 43

icq: 415889952
Лампочка

Только нужно
Код:
for i:=2 to 8 do
writeln(fil,mas[i]);
заменить на
Код:
for i:=2 to 9 do
writeln(fil,mas[i]);
pomoshnic вне форума   Ответить с цитированием
Старый 25.12.2008, 23:00   #5
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию

Цитата:
Сообщение от pomoshnic Посмотреть сообщение
Только нужно
Код:
for i:=2 to 8 do
writeln(fil,mas[i]);
заменить на
Код:
for i:=2 to 9 do
writeln(fil,mas[i]);



Опечатка
Tkirill вне форума   Ответить с цитированием
Старый 27.12.2008, 11:26   #6
ZloyGenii2008
 
Регистрация: 25.12.2008
Сообщений: 6
Репутация: 10
По умолчанию

слухай а он не правильный!!!! препод сказал что тут нет замены строк!!!! напиши кодом как поменять строки!!!!!!!!!=))
ZloyGenii2008 вне форума   Ответить с цитированием
Старый 27.12.2008, 11:57   #7
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Сначала введи в новй файл s[10], потом с s[2] до s[9], потом s[1].
puporev вне форума   Ответить с цитированием
Старый 27.12.2008, 15:01   #8
ZloyGenii2008
 
Регистрация: 25.12.2008
Сообщений: 6
Репутация: 10
По умолчанию

puporev ты можешь тоже самое кодом????
ZloyGenii2008 вне форума   Ответить с цитированием
Старый 27.12.2008, 15:20   #9
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

А зачем тебе, если ты даже такое не умеешь и код тебе написали, чуть подделать? Что тебе легче станет? Меньше зеаешь, лучше спишь.
puporev вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
текстовый файл werser Общие вопросы Delphi 3 06.06.2008 08:42
Текстовый файл subsonic Общие вопросы Delphi 5 09.03.2008 22:20
текстовый файл Var17 Общие вопросы Delphi 1 22.12.2007 03:20
Текстовый файл в текстовый массив Kimimaru Общие вопросы C/C++ 1 02.12.2007 12:55
Консольная программа на Си: ввод, вывод, сортировка, сохранение в текстовый файл. zerg Помощь студентам 8 16.11.2007 13:57


16:37.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.