• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Задача на Паскале АБС

F

farejoker

Новые
Регистрация
26 Апр 2013
Сообщения
20
Реакции
0
Баллы
0
Задача на Паскале АБС

Скопировать строки текстового файла F, не превышающие заданную длину в текстовый файл G.
Сделайте плиииз
 
сделал так но эт не правильно точно
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.
 
farejoker написал(а):
пробовал все так же
Нажмите для раскрытия...
Ой, вот только этого не надо! Такого просто не может быть по определению. Впрочем, с этим уродским АВС никогда дела не имел и не собираюсь, а потому не знаю, где он хранит транслированную программу. Скорее всего, у Вас в каких-то кэшах/темпах застрял старый вариант.
 
Vladimir_S написал(а):
Ой, вот только этого не надо! Такого просто не может быть по определению. Впрочем, с этим уродским АВС никогда дела не имел и не собираюсь, а потому не знаю, где он хранит транслированную программу. Скорее всего, у Вас в каких-то кэшах/темпах застрял старый вариант.
Нажмите для раскрытия...
турбо паскаль поставил норм теперь) спасибо
Помоги сделать блок схему пожалуйста)
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху