Из заданного текстового файла создать новый файл при помощи циклической замены Заглавных гласных на «+1»

@Valter5631 · Регистрация: 12.07.2010

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

помогите исправить ошибку, не правильно работает(

Из заданного текстового файла создать новый файл при помощи циклической замены Заглавных гласных на «+1», строчных гласных на «–1», согласных на «+2», прочих символов на «+5».

Pascal

var f,g:text;
    i:integer;s:string;
    begin
    assign(f,'text.txt');
    assign(g,'text2.txt');
    reset(f);
    while not eof(f) do
        begin
        rewrite(g);
        readln(f,s[i]);
        if (s[i]='А') or (s[i]='Е') or (s[i]='И') or (s[i]='О') or (s[i]='У') or (s[i]='Ы')
        or (s[i]='Э') or (s[i]='Ю') or (s[i]='Я') then
           writeln(g,'+1')
        else
            begin
            if (s[i]='а') or (s[i]='е') or (s[i]='и') or (s[i]='о') or (s[i]='у') or (s[i]='ы') or
            (s[i]='э') or (s[i]='ю') or (s[i]='ё') or (s[i]='я') then
            writeln(g,'-1')
            else
                begin
                if (s[i]='б') or (s[i]='в') {....все строчные согласные...} then
                write(g,'+2')
                else
                    writeln(g,'+5');
                end;
            end;
        end;
    close(f);close(g);
    readln;
 
    end.

@YaRom · 04.06.2013, 14:43

см. строчку 9
получается файл g открывается на КАЖДОЕ прочтение из файла f (внутри цикла)

@YaRom 43 / 43 / 43 Регистрация: 07.05.2013 Сообщений: 109
	04.06.2013, 14:43	2
	см. строчку 9 получается файл g открывается на КАЖДОЕ прочтение из файла f (внутри цикла) 0