16.12.2011, 16:32
|
#1 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Паскаль, файлы
Вот, что есть у меня! Код:
var
s:string;
i,k,o,z:integer;
f:text;
begin
k:=0;
o:=0;
z:=0;
assign (f,'c:/program.pas');
reset(f);
while not(eof(f)) do begin
while not(eoln(f)) do begin
read(f,s);
inc(k);
for i:=1 to length(s) do begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(z);
end;
if o<>z then write(k:3);
end;
s:='';
end;
close(f);
readln
end.
|
|
|
|
16.12.2011, 16:32
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на содержимое данных ссылок, это может раскрыть глаза на решение проблемы Задача на файлы, Паскаль АВС Паскаль, файлы Паскаль, типизированные файлы, помогите доделать Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Файлы в паскаль Паскаль, текстовые файлы |
|
16.12.2011, 19:13
|
#2 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Вопрос снят! Вот ошибки:
Код:
var
s:string;
i,k,o,z:integer;
f:text;
begin
k:=0;
o:=0;
z:=0;
assign (f,'c:/program.pas');
reset(f);
while not(eof(f)) do begin
while not(eoln(f)) do begin
readln(f,s);
inc(k);
for i:=1 to length(s) do begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(z);
end;
if o<>z then write(k:3);
o:=0;
z:=0;
end;
s:='';
end;
close(f);
readln
end.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
