Дан символьный файл f. Добавить в его конец символы e, n, d

@Warskrim · Регистрация: 26.05.2012

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

Помогите решить 3 задачки

2. Дан символьный файл f. Добавить в его конец символы e, n, d (если это необходимо, использовать дополнительный файл g).

@CodeR · 05.11.2012, 11:13

Читай правила один вопрос=одна тема!

Добавлено через 6 минут

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

2. Дан символьный файл f. Добавить в его конец символы e, n, d (если это
необходимо, использовать дополнительный файл g).

Pascal

Var f:file of char;
    i,n:integer;
    m:char;
Begin
    write('Введите кол-во компонент: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    writeln('Исходный файл');
    For i:=1 to n do
    Begin
      m:=chr(random(208)+48);
      write(f,m);
      write(m:2);
    End;
    Reset(f);
    writeln;
    writeln('Преобразованный файл');
    Seek(f,FileSize(f));
    write(f,'e');
    write(f,'d');
    write(f,'n');
    Reset(f);
    While not Eof(f) do
    Begin
      read(f,m);
      write(m:2);
    End;
    Close(f);
    readln;
End.

@Warskrim 2 / 2 / 0 Регистрация: 26.05.2012 Сообщений: 51
		1
	Дан символьный файл f. Добавить в его конец символы e, n, d 05.11.2012, 10:40. Показов 3531. Ответов 1 Метки нет (Все метки) Помогите решить 3 задачки 2. Дан символьный файл f. Добавить в его конец символы e, n, d (если это необходимо, использовать дополнительный файл g). 0

	05.11.2012, 11:13

Опции темы

Дан символьный файл f. Добавить в его конец символы e, n, d

Решение