0 / 0 / 1
Регистрация: 16.11.2009
Сообщений: 39
1

Текстовый файл

14.03.2010, 18:56. Показов 342. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
ВЫвести те слова , отличные отпоследнего слова и удовлетворяющие условию, слова четные. (критерии:файлы тестовые есть заранее, необходимо множество определяющие запятые,пробелы, точки и тд.)
Просмотрите программу, мб какую либо переменную я не описал в области описания, проблема ниже в начале процедуры, описанной мною.
Вот программа:
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
var f,f1:text;
i,k:integer;
s,s1,s2,t:string;
mn:set of char;
 
 procedure VIV(var ff:text; t:string);
 begin
 writeln(t);
 reset (ff);
 while not seekeof(ff) do
 begin readln(ff,t);
 writeln(t);
 end;
 end;
 
procedure Slo(var ff:text);
begin
reset (ff);  mn:=[',',' ','.'];
rewrite (f1);
clrscr;
While not seekeof (ff) do begin
readln(ff,s);s:=s+' ';
kb:=0;
 
 for i:=length(s) downto 1 do If not(s[i] in mn) then break; -----------Здесь началась проблема, как же 
delete(s,i+1,length(s));                                                                правильно прописать?
for i:=length(s) downto 1 do
If not (s[i] in mn)
then inc (kb)
else if kb>0 then
begin
sbuf:=copy(s,i-kb,kb);
kb:=0;
break;
end
 
         For i:=1 do length(s)-length(sbuf) do
         if copy(s,1,kb)<>sbuf and (copy(s,1,kb) mod 2=0)
 
{if s[i]in mn then
   begin
    k:=i;
    break;
   end;} --------------------собственно здесь конец ее)
 
{s1:=copy(s,k+1,length(s)-k);}
{while pos(' ',s)>0 do}
   begin  }
    { s2:=copy(s,1,pos(' ',s)-1);
     if (s2<>s1)and(length(s2)mod 2=0)}
     then writeln(f1,s2);
     delete(s,1,pos(' ',s));
   end;
                          end;
 
 
 
 
 
readln
end;
 
begin
 
assign(f,'ishodn.txt');
{assign(f3,'perem.txt'); }
 
assign(f1,'wiwod.txt');
{$I-}reset(f);{$I+}
if IOresult<>0 then
begin writeln('sozd file');
readkey;
exit
end
else begin
{Reset(f);}
Slo(f);
 
end;
VIV(f,'ishodn.txt');
ViV(f1,'wiwod.txt');
 
 
close(f);
close(f1);
readkey;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2010, 18:56
Ответы с готовыми решениями:

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

Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g
Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g.Порядок строк в файле п...

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

Файл: занести в текстовый файл 5 строчек и вывести их из файла на экран
Где ошибка??? Программа должна заносить в текстовый файл 5 строчек и потом выводить их же на...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.03.2010, 18:56
Помогаю со студенческими работами здесь

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

Имеется текстовый файл. Открыть этот файл и каждое из чисел возвести в куб
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Создать или открыть текстовый (типизированный,...

Дан текстовый файл. Найти сумму всех чисел, входящих в этот файл.
Дан текстовый файл. Найти сумму всех чисел, входящих в этот файл. uses crt; var f:text;...

Текстовый файл. Написать процедуру, записывающую в текстый файл все положительные числа из исходного
Текстовый файл. В текстовом файле t1 записана последовательность целых чисел,разделенных пробелами...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru