1 Востаннє редагувалося Replace (17.10.2012 00:27:17)

Тема: Робота з абзацами

Доброї ночі!

Допоможіть, будь ласка, написати програму . Я ніяк не можу зробити цю програму вже 3 тижні. Потрібно в тексті 2  абзаци поміняти місцями, абзаци розділені пустим рядочком.

Наперед вдячна!

2

Re: Робота з абзацами

А як текст задається? Відбувається читання з файлу чи константа?

3

Re: Робота з абзацами

відбувається читання з файлу

4

Re: Робота з абзацами

Код:
[code=pas]program p_exchange;

var f:text; path:string; s, result1, result2, result:string; flag:boolean;

begin
   
    path := '/Users/leo/leo2.txt';
    assign(f, path);
    reset(f);
   
    flag := false;
    result := '';
    result1 := '';
    result2 := '';
    while not eof(f) do
    begin
        readln(f, s);
       
        if s = '' then
            flag := true
        else
            if flag then
                result2 := result2 + s + #13#10
            else
                result1 := result1 + s + #13#10;
    end;
   
    result := result2 + #13#10 + result1;
   
    write(result);
   
    close(f);
   
end.[/code]

Приклад файлу:

line1
line2

line4
line5

5

Re: Робота з абзацами

дякую але не можна якось без цього : #13#10?просто ми не вчили такого

6

Re: Робота з абзацами

#13#10 - символи переходу на новий рядок

можна так як варіант:

program p_exchange;

var f:text; path:string; s:string; flag:boolean;

begin
    
    path := '/Users/leo/leo2.txt';
    assign(f, path);
    
    reset(f);
    flag := false;
    while not eof(f) do
    begin
        readln(f, s);
        
        if flag then
            writeln(s);
        
        if s = '' then
            flag := true;
            
    end;
    
    writeln();
    
    reset(f);
    flag := true;
    while not eof(f) and flag do
    begin
        readln(f, s);
        
        write(s);
        if s = '' then
            flag := false
        else
            writeln();
            
    end;
    
    
    write(result);
    
    close(f);
    
end.

7

Re: Робота з абзацами

Якийсь ви не практичний Replace. У вас була така чудова нагода розжитися снікерсом чи пивом, а ви... ;)

8 Востаннє редагувалося d4rkc10ud (17.10.2012 14:41:55)

Re: Робота з абзацами

@Torbins
Ви не розумієте - це вдалий маркетинговий хід ;) Спочатку він заманює жертву, а коли та розівчиться програмувати - він буде косити бабло.

А може гусари з дам грошей не беруть :)

9

Re: Робота з абзацами

Насправді просто люблю допомагати людям.
Думаю дівчина програмістом вже не стане. І то не факт, що вона на програміста вчиться. =)