1 Востаннє редагувалося Replace (12.04.2013 01:04:30)

Тема: Читання і запис в файл із заміною символів

Допоможіть написати програму, яка з файлу на комп'ютері зчитує текстовий рядок, заміняє кожен символ на інший (а заміняє на р, б на у, в на з і т.д.) та даний текст зберігає в іншому текстовому документі. Наперед щиро дякую...

2

Re: Читання і запис в файл із заміною символів

Напрацювання в студію!Якщо нема, то йдіть на фрілан.сру/до найближчого задрота.

Бодай вас Бог любив, а мене – молодиці!
Подякували: miroslav.chandler1

3

Re: Читання і запис в файл із заміною символів

Очі.завидющі написав:

Напрацювання в студію!Якщо нема, то йдіть на фрілан.сру/до найближчого задрота.

Якщо Ви не можете мені допомогти через певні обставини чи нестачу знань, то це не привід показувати свою нечемність даним чином чи, зрештою, будь-яким іншим. Я потребую допомоги і тому звернулась, а Вам очевидно нема чим зайнятись, окрім того, щоб намагатись когось образити.

Подякували: Torbins1

4

Re: Читання і запис в файл із заміною символів

А ви на програміста вчитесь?

5

Re: Читання і запис в файл із заміною символів

Replace написав:

А ви на програміста вчитесь?

Вчусь на фізматі. На вчителя математики, але паралельно маю пари з інформатики. В ній не сильна, от і намагаюсь розібратись.

6

Re: Читання і запис в файл із заміною символів

А хоч якісь напрацювання є? Хоча б зчитування з файлу та вивід вмісту на екран.

7

Re: Читання і запис в файл із заміною символів

У мене сьогодні хороший настрій:

var 
    input:text;
    output:text;
    line:string;
    
function change(line:string):string;
    var i,n:integer;
    begin
        
        n := length(line);
        
        for i := 1 to n do
        begin
            if (line[i] = 'а') then
                line[i] := 'б'
            else if (line[i] = 'б') then
                line[i] := 'у'
            else if (line[i] = 'в') then
                line[i] := 'з'
        end;
    
        change := line;
    end;

begin
    
    assign(input, '/Users/leo/input.txt');
    reset(input);
    
    assign(output, '/Users/leo/output.txt');
    rewrite(output);
    
    while (not eof(input)) do
    begin
        readln(input, line);
        writeln(output, change(line));
    end;
    
    close(input);
    close(output);
    
end.

P.S. Змінив назву теми згідно правил.

Подякували: Yanka1

8

Re: Читання і запис в файл із заміною символів

Дуже вдячна:)

9

Re: Читання і запис в файл із заміною символів

Yanka написав:

Якщо Ви не можете мені допомогти через певні обставини чи нестачу знань, то це не привід показувати свою нечемність даним чином чи, зрештою, будь-яким іншим. Я потребую допомоги і тому звернулась, а Вам очевидно нема чим зайнятись, окрім того, щоб намагатись когось образити.

Очі.завидющі не прагнув вас образити. На форум по допомогу звертаються часто, але хтось виключно за готовим рішенням (халявщики), а хтось із метою ще й розібратися. У вашому випадку проблема була озвучена характерніше до першої категорії, оскільки про

Yanka написав:

Вчусь на фізматі. На вчителя математики, але паралельно маю пари з інформатики. В ній не сильна, от і намагаюсь розібратись.

ви вказали лише згодом.
:)

I belong to the Dead Generation.

10

Re: Читання і запис в файл із заміною символів

Зрозуміло. Мені прикро, що я не правильно зрозуміла... Дякую за конкретніше пояснення.

11

Re: Читання і запис в файл із заміною символів

Yanka написав:

Зрозуміло. Мені прикро, що я не правильно зрозуміла... Дякую за конкретніше пояснення.

Ласкаво просимо до гурту. :)

I belong to the Dead Generation.
Подякували: Yanka1