farejoker

Скопировать строки текстового файла F, не превышающие заданную длину в текстовый файл G.
Сделайте плиииз

farejoker

сделал так но эт не правильно точно
var
s:string;
f,f2:text;
dl:integer;
begin
readln(dl);
assign(f,'kot.txt');
reset(f);
assign(f2,'kot2.txt');
rewrite(f2);
while not eof(f) do begin
readln(f,s);
if length(s) > dl then writeln(f2,s);
end;
close(f);
close(f2);
end.

Vladimir_S

По-моему, "эт" абсолютно правильно. Я, во всяком случае, никаких ошибок не вижу. А в чем проблема?

farejoker

"не превышающие" надо а я сделал превышающие.

Vladimir_S

А, это... самостоятельно поменять значок ">" на "<=" - не? Совсем никак?

farejoker

пробовал все так же

Vladimir_S

Ой, вот только этого не надо! Такого просто не может быть по определению. Впрочем, с этим уродским АВС никогда дела не имел и не собираюсь, а потому не знаю, где он хранит транслированную программу. Скорее всего, у Вас в каких-то кэшах/темпах застрял старый вариант.

farejoker

турбо паскаль поставил норм теперь) спасибо
Помоги сделать блок схему пожалуйста)

farejoker

все не надо)

Vladimir_S

Увы - блок-схемами не занимаюсь. Поищи по форуму - где-то выкладывались ссылки на программы, которые их сами строят.

Вот, нашел: Помогите сделать блок-схему, Паскаль