дан тесктовый файл f (созданный в блокноте, где каждая строка – совокупность слов).
Сформировать по нему новый файл g, состоящий из симметричных слов.
вот код:
var f,g:text;
psl,sl:string[20];
simv:char;
i,n,dl:integer; flag:boolean;
Begin clrscr; textcolor(15);
assign(f,'d:\user\fmf\525rs\lab2_2.txt');
assign(g,'d:\user\fmf\525rs\lab2_22.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
while not eoln(f) do begin
read(f,simv);
while simv<>' ' do begin
sl:=sl+simv;
read(f,simv);end;
i:=1;Flag:=TRUE;
dl:=length(sl);
While (i<=Dl/2) and Flag do
begin
Flag:=(Sl[i]=Sl[Dl-i+1]);
i:=i+1
end;
If Flag then writeln(g,sl);
sl:=''; end;
readln(f);end;
close(f);
close(g);
reset(g);
while not eoln(g) do begin
read(g,sl);writeln(sl);readln(g);end;
close(g);
readln
End.
выводит только последнее симметричное слово.
ferty juki fggf
ghhg frtyhy rtbd
qweg bvvb dtgert
выводит
bvvb
как сделать чтоб выводил все симметричные слова?
fggf
ghhg
bvvb
6 ноября 2008 в 19:05
Спасибо!
почитаю как-нидь;)
6 ноября 2008 в 15:01
И почитай на досуге:
//ru.wikipedia.org/wiki/%D0%A1%D1%82%D0%B8%D0%B...
И посмотри, как тут код оформлен
//en.wikipedia.org/wiki/Pascal_(programming_lan...
6 ноября 2008 в 15:00
Лови:
//codespace.awardspace.com/index.php?act=2&...
Чему вас там только на втором курсе учат…
6 ноября 2008 в 9:04
[подписка на новую версию от Евгения]
6 ноября 2008 в 0:02
Тогда ты нифига не видел индуского кода…
6 ноября 2008 в 0:01
Ну, во-первых, в конце ты только одну строку на экран выводишь. Меняй еолн на еоф. Во вторых, это реально самый индусский код, который я когда-либо видел. Завтра напишу нормально и выложу.
5 ноября 2008 в 23:02
upd? чё это?
//codespace.awardspace.com/index.php?id=EA3JQ0R...
5 ноября 2008 в 23:00
while simv<>' ' do begin
заменить на
while simv<>' ' do begin
upd
блин, короче, пробел там нужен
upd
и вообще, если хочешь, чтобы твой код читать можно было, надо заливать его на хранилки типа //codespace.awardspace.com/ и кидать вконтакт ссылку