Работа с файлами ...

@SorryItsGg · Регистрация: 30.08.2009

Author24 — интернет-сервис помощи студентам

Помогите пожалуйсто сделать 2 лабораторные в паскале дабы сдать ссесию...готов отблагодарить ...
1)Требуется написать программу считывающую данные из текстового файла, затем файлы записываются в файл прямого доступа компоненты файла являются целого или вещественного типа (если входные данные символы, то сначала нужно перевестиих в коды, а потом записать в файл)); об-
работать данные (использовать прямой доступ к компонентам файла) и записать результат
в текстовый файл. Задание: Оставить в слове только первые вхождения каждой буквы.
2) Тоже самое только с помощью динамических переменных т.е сначала из файла считываются все данные в память, обрабатываются и оттуда записываются в файл

помогите........пожалуйстоо

@schdub · 31.08.2009, 11:19

Задание можно, как в лабе написано, а не так, как Вы его понимаете.

в файл прямого доступа компоненты файла являются целого или вещественного типа

Осбенно вот это. Поясние, вот этот фрагмент, т.е. выходной файл должен быть типизированный или нет??? И что Вы понимаете, под файлом прямого доступа?

@SorryItsGg · 31.08.2009, 12:22 **[ТС]**

блин извиняюсь за беспокойство я повнимательней полазил по форуму и нашел решение моей задачи....

Pascal

usescrt;
var f:text;
    g:file of string;
    s:string;
    i,j:integer;
begin
clrscr;
assign(f,'slovo.txt');
reset(f);
readln(f,s);
write('Ishodnoe slovo:  ');//
writeln(s);//
writeln;//
i:=1;
while i<=length(s) do
  begin
     j:=i+1;
     while j<=length(s) do
       begin
         if s[j]=s[i] then delete(s,j,1)
         else j:=j+1;
       end;
     i:=i+1;
  end;
write('Obrabotannoe slovo:  ');//
writeln(s);//
writeln;//
close(f);
assign(g,'slovo1.dat');
rewrite(g);
write(g,s);
close(g);
write('Proverka soderzania fajla:  ');//
reset(g);//
read(g,s);//
write(s);//
readln
end.

помогите пожалуйсто переделать программу чтобы была динамическая переменная заранее благодарю

@lexus_ilia · 31.08.2009, 13:45

А у Вас так интересно записано во втором задании:

Сообщение от SorryItsGg

т.е сначала из файла считываются все данные в память, обрабатываются и оттуда записываются в файл

А в первом случае как будто s не в памяти храниться...

Добавлено через 11 минут
сделайте вот так:

Pascal

uses
  crt;
var f:text;
    g:file of string;
    s:^string;
    i,j:integer;
begin
  clrscr;
  assign(f,'slovo.txt');
  reset(f);
  new(s);
  readln(f,s^);
  write('Ishodnoe slovo:  ');//
  writeln(s^);//
  writeln;//
  i:=1;
  while i<=length(s^) do
  begin
     j:=i+1;
     while j<=length(s^) do
       if s^[j]=s^[i] then 
         delete(s^,j,1)
       else 
         j:=j+1;
     i:=i+1;
  end;
  write('Obrabotannoe slovo:  ');//
  writeln(s^);//
  writeln;//
  close(f);
  assign(g,'slovo1.dat');
  rewrite(g);
  write(g,s^);
  close(g);
  write('Proverka soderzania fajla:  ');//
  reset(g);//
  read(g,s^);//
  write(s^);//
  dispose(s);
  readln
end.

@Puporev · 31.08.2009, 14:15

Да ерунда это все. И в задании все напутано и решение вообще никакого отношения к этим задачам не имеет.

@lexus_ilia · 31.08.2009, 14:44

Ну если ему нравиться такое решение, то переделать под динамическую переменную мне сложности не составило.
Ведь заказчик доволен решением поставленной задачи (найденное им самим), так зачем в данном случае его переубеждать?

@SorryItsGg · 31.08.2009, 15:50 **[ТС]**

Извините конечно но в задание напутать я ничего не мог так как я просто скопировал его из лабароторной работы...я думаю врятли при операции Copy-Past что либо может измениться..

@SorryItsGg 0 / 0 / 0 Регистрация: 30.08.2009 Сообщений: 11
		1
	Работа с файлами ... 31.08.2009, 09:10. Показов 1879. Ответов 6 Метки нет (Все метки) Помогите пожалуйсто сделать 2 лабораторные в паскале дабы сдать ссесию...готов отблагодарить ... 1)Требуется написать программу считывающую данные из текстового файла, затем файлы записываются в файл прямого доступа компоненты файла являются целого или вещественного типа (если входные данные символы, то сначала нужно перевестиих в коды, а потом записать в файл)); об- работать данные (использовать прямой доступ к компонентам файла) и записать результат в текстовый файл. Задание: Оставить в слове только первые вхождения каждой буквы. 2) Тоже самое только с помощью динамических переменных т.е сначала из файла считываются все данные в память, обрабатываются и оттуда записываются в файл помогите........пожалуйстоо 0

@schdub 3071 / 1409 / 425 Регистрация: 19.01.2009 Сообщений: 3,880
	31.08.2009, 11:19	2
	Задание можно, как в лабе написано, а не так, как Вы его понимаете. в файл прямого доступа компоненты файла являются целого или вещественного типа Осбенно вот это. Поясние, вот этот фрагмент, т.е. выходной файл должен быть типизированный или нет??? И что Вы понимаете, под файлом прямого доступа? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	31.08.2009, 14:15	5
	Да ерунда это все. И в задании все напутано и решение вообще никакого отношения к этим задачам не имеет. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	31.08.2009, 14:44	6
	Ну если ему нравиться такое решение, то переделать под динамическую переменную мне сложности не составило. Ведь заказчик доволен решением поставленной задачи (найденное им самим), так зачем в данном случае его переубеждать? 1

@SorryItsGg 0 / 0 / 0 Регистрация: 30.08.2009 Сообщений: 11
	31.08.2009, 15:50 [ТС]	7
	Извините конечно но в задание напутать я ничего не мог так как я просто скопировал его из лабароторной работы...я думаю врятли при операции Copy-Past что либо может измениться.. 0