С использованием assign разработать программу формировки текстового файла

@NormanJ · Регистрация: 22.10.2012

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

Разработать программу формировки текстового файла из n строк, в первой из них 1 символ '1', 2 - '2'.........n-ой - n символов 'n'.Кол-во строк вводим с клавиатуры.
я тут начал вот как то так

Pascal

1 2	begin assign(h,txt.txt); reset(h);

как то там дальше не пошло там что то while должен быть вроде и eof(h)...
Заранее спасибо с меня всем +.

@domovou2.0 · 11.11.2012, 20:50

Pascal

var f:text;
    s:string;
    n,i:integer;
begin
assign(f,'tex.txt');
rewrite(f);
write('n= ');
readln(n);
writeln(f,n);
s:='dfsdfsd ';
for i:=1 to n do
    writeln(f,s);
reset(f);
readln(f,n);
writeln(n);
while not eof(f) do
      begin
      readln(f,s);
      writeln(s);
      end;
close(f);
readln;
end.

@Yurek · 11.11.2012, 20:50

Так по идее если там просто в одну строку цифру пишешь соответствующую её номеру, то просто цикл for и запись в файл номера.
Что-то типа:

Pascal

1
2
3

for i:=1 to n do
  writeln(h,i);
close(h);

Или задания не понял - как-то не чётко там про 'n'.

@Joker456 · 04.12.2013, 20:43

У меня так получилось

Pascal

Program Stroki;
Uses Crt;
var f: text;
    i, j, n: integer;
begin
      write ('Vvedite N: ');
      readln (n);
      assign (f, 'E:/stroki.txt');
      rewrite (f);
      For I:=1 to N do begin
       for j:=1 to i do
        write (f, i);
       writeln (f);
       inc (j);
      end;
      close (f);
end.

	04.12.2013, 20:43

Опции темы