Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
зайка444
3 / 3 / 2
Регистрация: 20.05.2011
Сообщений: 57
1

Обработка текстовых файлов

11.07.2011, 19:14. Просмотров 1112. Ответов 2
Метки нет (Все метки)

Пусть на МД имеется текстовый файл ID.DAT, который содержит числовые значения вещественного типа по два числа в каждой строке - значения аргумента и функции соответственно. Количество пар чисел не более 20. Составить программу, которая читает файл, значения аргумента и функции записывает в одномерные массивы и создает 2 файла: отдельно для аргумента arg.dat и отдельно для функции fun.dat
помогите мне
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2011, 19:14
Ответы с готовыми решениями:

Обработка текстовых строк
Задание: Дан текстовый файл с расширением «.txt», содержащий несколько строк текста (не менее 5)....

Опознавание текстовых файлов
Помогите написать процедуру. Объясню, в чем проблема. Пытаюсь написать процедуру типа ЗАГРУЗИТЬ....

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

Чтение и запись текстовых файлов.
1.С помощью тестового редактора БЛОКНОТ создать файл INFO.txt ("вручную") Вывести первую и...

Чтение и запись текстовых файлов
Строки исходного файла записать в новый файл, добавив знак "?" после первого слова строки.

2
SuPeR XaKer
2848 / 1977 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.07.2011, 20:03 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

А массив зачем?Вот без массивов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var
 i,j:real;
 f,f2,f3:text;
begin
Assign(f,'D:\3.txt');
reset(f);
Assign(f2,'D:\f2.txt');
rewrite(f2);
Assign(f3,'D:\f3.txt');
rewrite(f3);
while not eof(f) do
begin
 read(f,i,j);
 writeln(i:2:4,' ',j:2:4);
 writeln(f2,i);
 writeln(f3,j);
end;
Close(f);
Close(f2);
Close(f3);
end.
А если всё таки нужны массивы то вот:
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
Var
 n,m:byte;
 a,b:array[1..10] of real;
 f,f2,f3:text;
begin
Assign(f,'D:\3.txt');
reset(f);
Assign(f2,'D:\f2.txt');
rewrite(f2);
Assign(f3,'D:\f3.txt');
rewrite(f3);
n:=0;
m:=0;
while not eof(f) do
begin
 inc(n);
 inc(m);
 read(f,a[n],b[m]);
 writeln(a[n]:2:4,' ',b[m]:2:4);
 writeln(f2,a[n]);
 writeln(f3,b[m]);
end;
Close(f);
Close(f2);
Close(f3);
end.
Имена файлов и расширения смените на те что вам даны только.
1
Puporev
Модератор
57279 / 43708 / 30197
Регистрация: 18.05.2008
Сообщений: 104,223
11.07.2011, 20:18 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Примерное содержание исходного файла.
Код
1.10	1.21
1.20	1.44
1.30	1.69
1.40	1.96
1.50	2.25
1.60	2.56
1.70	2.89
1.80	3.24
1.90	3.61
2.00	4.00
2.10	4.41
2.20	4.84
2.30	5.29
2.40	5.76
2.50	6.25
2.60	6.76
2.70	7.29
2.80	7.84
2.90	8.41
3.00	9.00
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
31
uses crt;
var f,g,h:text;
    x,y:array[1..20] of real;
    n,i:integer;
begin
assign(f,'id.dat');
reset(f);
assign(g,'arg.dat');
rewrite(g);
assign(h,'fun.dat');
rewrite(h);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,x[n]);
  write(g,x[n]:5:2);
  read(f,y[n]);
  write(h,y[n]:5:2);
 end;
close(f);
close(g);
close(h);
writeln('Массив аргумента:');
for i:=1 to n do
write(x[i]:5:2);
writeln;
writeln('Массив функции:');
for i:=1 to n do
write(y[i]:5:2);
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2011, 20:18

Форматированный вывод из текстовых файлов
var f,g,q:text; n,s:string; a,k,p:integer; begin assign(f,'family.txt'); reset(f);...

чтение и запись текстовых файлов в паскаль
1)Определить содержится ли в строках файла запись отрицательного числа. следущая программа: 2)В...

Как извлекать числа из текстовых файлов
Дан какой-то текстовый файл примерно такого вида: x=4 y=5 x=2 y=4.13 ... x=n ...


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

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

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