Создайте файл строкового типа. Используя содержимое этого файла, создайте файл символьного типа. Содержимое файлов выведите на экран.

@павел владимпир · Регистрация: 05.02.2012

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

@КонецСвета · 19.04.2012, 21:03

Pascal

uses crt;
var f: file of string;
    ff: file of char;
    i,n: byte;
    s: string;
    c: char;
begin
assign(f,'C:\in.dta');
assign(ff,'C:\out.dta');
rewrite(f);
write('Сколько строк будем писать? '); readln(n);
for i:=1 to n do
    begin
    write('-->');
    readln(s);
    write(f,s);
    end;
reset(f);
rewrite(ff);
writeln('Содержимое файла строк');
while not(eof(f)) do
      begin
      read(f,s);
      writeln(s);
      for i:=1 to length(s) do
          write(ff,s[i]);
      end;
reset(ff);
writeln('Содержимое файла символов');
while not(eof(ff)) do
      begin
      read(ff,c);
      write(c);
      end;
close(f);
close(ff);
end.

@павел владимпир · 20.04.2012, 15:58 **[ТС]**

спасибо)))

@павел владимпир 0 / 0 / 0 Регистрация: 05.02.2012 Сообщений: 14
		1
	Создайте файл строкового типа. Используя содержимое этого файла, создайте файл символьного типа. Содержимое файлов выведите на экран. 19.04.2012, 18:42. Показов 1859. Ответов 2 Метки нет (Все метки) Создайте файл строкового типа. Используя содержимое этого файла, создайте файл символьного типа. Содержимое файлов выведите на экран. 0

@павел владимпир 0 / 0 / 0 Регистрация: 05.02.2012 Сообщений: 14
	20.04.2012, 15:58 [ТС]	3
	спасибо))) 0

Создайте файл строкового типа. Используя содержимое этого файла, создайте файл символьного типа. Содержимое файлов выведите на экран.

Решение