Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
2 / 2 / 0
Регистрация: 24.11.2010
Сообщений: 26
1

Напечатать первую строку, пятую строку текстового файла

24.11.2010, 18:42. Просмотров 1481. Ответов 5
Метки нет (Все метки)

имеется текстовый файл , напечатать
а) его первую строку
б) его пятую строку
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2010, 18:42
Ответы с готовыми решениями:

Напечатать пятую строку текстового файла
Имеется текстовый файл. Напечатать: его пятую строку.Ошибся в названии*

Напечатать пятую строку файла
Имеется текстовый файл. Напечатать: его пятую строку.

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

Получить строку, которая дублирует первую строку таким образом:
Получить строку, которая дублирует первую строку таким образом: торт(исходная строка),...

5
2853 / 1982 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.11.2010, 19:17 2
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
Uses
 CRT;
var
 f:text;
 x,i:integer;
s:string;
begin
clrscr;
Assign(f,'C:\1.txt');
reset(f);
i:=0;
while not eof(f) do
begin
readln(f,s);
if i=0 then
begin
writeln(s);
end;
if i=4 then
begin
readln(f,s);
writeln(s);
end;
inc(i);
end;
close(f);
end.
проверьте
1
2 / 2 / 0
Регистрация: 24.11.2010
Сообщений: 26
24.11.2010, 19:27  [ТС] 3
пятую строку не показывает((( но спасибо
0
2853 / 1982 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
24.11.2010, 19:31 4
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
Uses
 CRT;
var
 f:text;
 x,i:integer;
s:string;
begin
clrscr;
Assign(f,'C:\1.txt');
reset(f);
i:=0;
while not eof(f) do
begin
readln(f,s);
inc(i);
if i=1 then
begin
writeln(s);
end;
if i=4 then
begin
readln(f,s);
writeln(s);
end;
end;
close(f);
end.
2
2 / 2 / 0
Регистрация: 24.11.2010
Сообщений: 26
24.11.2010, 19:33  [ТС] 5
спасибо!!!выручил меня
0
2 / 2 / 1
Регистрация: 16.06.2011
Сообщений: 29
16.06.2011, 12:39 6
Спасибо Хакер )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2011, 12:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поменять местами первую строку матрицы и строку с нулевым элементом
Поменять местами первую строку и строку в которой находиться первый нулевой элемент.Приняв, что...

Даны две строки. Вставить в первую строку вторую строку, перед каждым знаком препинания ,.:!?;
Ребята помогите решить пожалуйста вот такую задачу. Даны две строки. Вставить в первую строку...

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

Найти порядковый номер максимального элемента и записать его в первую строку файла, во 2-ю строку сам массив
var f, r: file of char; c: char; i, n,k: integer; max:char; x: array of char; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.