Запись в файл

@AkeellA · Регистрация: 28.01.2013

Author24 — интернет-сервис помощи студентам

Всем привет ! Помогите вывести введенную и полученную строку в файл. Результат работы проги - удаление символов длинна которых меньше заданной с клавы!

Pascal

var    s: string;
    len, i,si, j: integer;
begin
    write('Напишите строку ');
    readln(s);
    write('Количество символов: ');
    readln(si);
    len:= length(s);
    i:= 1;
    j:= 0;
    while i<=len do begin
        if s[i] <> ' ' then begin
            j:= j+1;
            i:= i+1;
        end
        else begin
            if j < si then begin
                delete(s,i-j,j+1);
                len:= length(s);
                i:= i-j;
                j:= 0;
            end
            else begin
                i:= i+1;
                j:= 0;
            end;
        end;
    end;
    if j < si then delete(s,i-j,j);
    writeln(s);
readln
end.

@Puporev · 28.01.2013, 19:50

Сообщение от AkeellA

удаление символов длинна которых меньше заданной с клавы!

А что, все символы разной длины? (Кстати слово длина пишется с одной н)

@AkeellA · 28.01.2013, 19:53 **[ТС]**

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

@Puporev · 28.01.2013, 20:17

Сообщение от AkeellA

вывести введенную и полученную строку в файл

Pascal

var    s: string;
       len, i,si, j: integer;
       f:text;
begin
    assign(f,'text.txt');
    rewrite(f);
    write('Напишите строку ');
    readln(s);
    writeln(f,s);
    write('Количество символов: ');
    readln(si);
    len:= length(s);
    i:= 1;
    j:= 0;
    while i<=len do begin
        if s[i] <> ' ' then begin
            j:= j+1;
            i:= i+1;
        end
        else begin
            if j < si then begin
                delete(s,i-j,j+1);
                len:= length(s);
                i:= i-j;
                j:= 0;
            end
            else begin
                i:= i+1;
                j:= 0;
            end;
        end;
    end;
    if j < si then delete(s,i-j,j);
    writeln(s);
    writeln(f,s);
    close(f);
    readln
end.

@AkeellA · 28.01.2013, 20:20 **[ТС]**

благодарю то, что доктор прописал=))

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.01.2013, 19:50	2
	Сообщение от AkeellA удаление символов длинна которых меньше заданной с клавы! А что, все символы разной длины? (Кстати слово длина пишется с одной н) 0

@AkeellA 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 4
	28.01.2013, 19:53 [ТС]	3
	В заданном предложении удалить все слова, длина которых короче заданной -условие. Суть не в том мне бы разобраться с записью ! 0

@AkeellA 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 4
	28.01.2013, 20:20 [ТС]	5
	благодарю то, что доктор прописал=)) 0