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

Исправить ошибки в программе

09.03.2014, 22:24. Показов 410. Ответов 3
Метки нет (Все метки)

9.
Дан текстовый файл f . Преобразовать строки файла f по правилам, которые приведены в таблице. Преобразованные строки переписать в файл g. Заменить символ ‘0’ на ‘1’ и наоборот, в строках, длина которых меньше 12 символов.

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
var f, g : Text;
i, le, q : integer;
s : string;
 
begin
Assign(f, 'f.dat');
ReSet(f);
Assign(g, 'g.dat'); 
ReWrite(g);
 
while not eof(f) do 
begin
ReadLn(f, s);
le := length(s); 
q := 1; 
 
if le < 12 then 
begin 
for i:=1 to le do
if s[i]= '1' then s[i]:='0';
if s[i]= '0' then s[i]:='1';
end;
end;
 
Close(g);
Close(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2014, 22:24
Ответы с готовыми решениями:

Исправить ошибки в программе
помогите переписать программу, исправив ошибки! очень надо, а у меня чего-то всё время не то...

Исправить ошибки в программе
program test5b; type Person = record Name : record Name : world end; Degree : 1..3;...

Исправить ошибки в программе
Исправить ошибки в программе. program TEST; type Person = record Name: string;...

Исправить ошибки в программе
program Prnt; label 100; const LPg=10; LStr=80; NLen=20; var Prg, List: text; Name:...

3
0 / 0 / 0
Регистрация: 09.03.2014
Сообщений: 3
09.03.2014, 23:00 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
var f, g : Text;
i, le, q : integer;
s : string;
 
begin
Assign(f, 'f.dat');
ReSet(f);
Assign(g, 'g.dat'); 
ReWrite(g);
 
while not eof(f) do 
begin
ReadLn(f, s);
le := length(s); 
 
if le < 12 then 
begin 
for i:=1 to le do
if s[i]= '1' then s[i]:='0' else
if s[i]= '0' then s[i]:='1';
end;
end;
 
Close(g);
Close(f);
end.
0
0 / 0 / 1
Регистрация: 26.10.2013
Сообщений: 17
28.03.2014, 23:57  [ТС] 3
Цитата Сообщение от Levchenko Посмотреть сообщение
le := length(s);
можно пояснить этот момент?
0
Модератор
8611 / 4291 / 2953
Регистрация: 17.08.2012
Сообщений: 13,637
29.03.2014, 02:09 4
Перемменной le присваивается длина строки s. Ну, сколько там в этой строке s символов.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2014, 02:09

Исправить ошибки в программе
program qq; var Z:array of integer; B:array of integer; mas,kol,max,nmax,i,n:integer;...

Исправить ошибки в программе
помогите решить задачкууу!!! Program Prim; Var n,p:Integer; y:Real; Begin: p:=1; ...

Где исправить ошибки в программе??
задача такая написать программу в которой требуется &quot;Удалить все символы 'а' из слов, длина которых...

Сформировать 4 и 5 столбцы матрицы А(3, 3). Исправить ошибки в программе
Даны две матрицы А(3,3) и В(3,3). Сформировать 4 и 5 столбцы матрицы А(3,3) : в четвертом...


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

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

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