Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Алекс_67
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 6
1

Файл: занести в текстовый файл 5 строчек и вывести их из файла на экран

18.04.2012, 21:27. Просмотров 993. Ответов 5
Метки нет (Все метки)

Где ошибка???
Программа должна заносить в текстовый файл 5 строчек и потом выводить их же на экран. Но даже не компилируется, хотя все написал о моему правильно. Стреда-Borland Pascal for windows 7.0

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
28
29
program text;
uses wincrt;
var i:integer;
    s:string;
    ft:text;   { В этом месте просит поставить точку... }
 
begin
assign(ft,'c:\textus\textus.txt');
rewrite(ft);
for i:=1 to 5 do
begin
writeln('Введите ',i,'-й рядок');
readln(s);
writeln(ft,s);
end;
close(ft);
 
writeln('Конец записи в файл. для продолжения нажмите [ENTER]');
readln;
clrscr;
writeln('Вывод текста из файла:');
assign(ft,'c:\textus\textus.txt');
reset(ft);
while eof(ft) do
begin
readln(ft,s);
writeln(s);
end;
end.
Заранее благодарю за помощь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2012, 21:27
Ответы с готовыми решениями:

Прочитать все записи из файла и вывести их на экран и в текстовый файл
найти max sin, min cos, 2ой минимум и максимум и вывести их на экран

Занести в текстовый файл h из текстового файла t только латинские буквы
В текстовом файле t записаны буквы латинского алфавита и цифры. Занести в...

Занести в текстовый файл h из текстового файла t целые числа, упорядоченные по возрастанию
В текстовом файле t записаны целые числа, упорядоченные по убыванию. Занести в...

Дан текстовый файл. Используя очередь, вывести на экран все строки исходного файла, начинающиеся с символа (*) в том же порядке.
SOS!!! Задача 1. Дан текстовый файл. Используя очередь, вывести на экран...

Создать файл чисел и вывести эти числа из файла в обратном порядке в другой файл и на экран
Создать файл чисел и вывести эти числа из файла в обратном порядке в другой...

5
qnak
58 / 58 / 45
Регистрация: 19.02.2012
Сообщений: 118
18.04.2012, 21:30 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
28
29
30
program text;
uses crt;
 
var i:integer;
    s:string;
    ft:text;   { В этом месте просит поставить точку... }
 
begin
assign(ft,'c:\textus\textus.txt');
rewrite(ft);
for i:=1 to 5 do
begin
write('Введите ',i,'-й рядок');
readln(s);
writeln(ft,s);
end;
close(ft);
 
writeln('Конец записи в файл. для продолжения нажмите ENTER');
readln;
clrscr;
writeln('Вывод текста из файла:');
assign(ft,'c:\textus\textus.txt');
reset(ft);
while eof(ft) do
begin
readln(ft,s);
writeln(s);
end;
end.
0
Алекс_67
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 6
18.04.2012, 21:36  [ТС] 3
Цитата Сообщение от qnak Посмотреть сообщение
а так?
Pascal
1
uses crt;
нет, в Борланд-wincrt !
0
Алекс_67
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 6
18.04.2012, 22:13  [ТС] 4
Где ошибка?
Программа должна заносить в текстовый файл 5 строчек и потом выводить их же на экран. Но даже не компилируется, хотя все написал о моему правильно. Стреда-Borland Pascal for windows 7.0

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
28
29
program text;
uses wincrt;  {именно wincrt}
var i:integer;
    s:string;
    ft:text;   { В этом месте просит поставить точку... }
 
begin
assign(ft,'c:\textus\textus.txt');
rewrite(ft);
for i:=1 to 5 do
begin
writeln('Введите ',i,'-й рядок');
readln(s);
writeln(ft,s);
end;
close(ft);
 
writeln('Конец записи в файл. для продолжения нажмите [ENTER]');
readln;
clrscr;
writeln('Вывод текста из файла:');
assign(ft,'c:\textus\textus.txt');
reset(ft);
while eof(ft) do
begin
readln(ft,s);
writeln(s);
end;
end.
Заранее благодарю за помощь.

Добавлено через 1 минуту
Решено! имя программы тоже называется text.

Добавлено через 2 минуты
еще одна проблема... теперь не хочет выводить на экран.
0
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
18.04.2012, 23:53 5
..while not eof..
readln в предпоследней строке (если не abc pascal)
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
19.04.2012, 01:21 6
Алекс_67, в Borland TurboPascal есть и модуль crt...
программа qnak работает в ТР 7.1 (проверено), только, пожалуй, не стоит использовать text- описание типа текстового файла - в качестве названия программы...
0
19.04.2012, 01:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2012, 01:21

Создать текстовый файл. Вывести его на экран
Здравствуйте! Пожалуйста, помогите решить задание Создать текстовый файл....

Дан текстовый файл. Вывести его на экран.
Дан текстовый файл. Вывести его на экран.

Вывести на экран и в текстовый файл n первых чисел Фибоначчи
Вывести на экран и в текстовый файл n первых чисел Фибоначчи(n вводится с...


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

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

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