Question

Создать текстовый документ с помощью Паскаля, в котором N строк и M символов в строке, и символы-цифры 1,2....

Answer 1

  program proga; 
 Var
 A: text;   
  i,j,n,m : byte;     
 d: string;     
 Sim:char; 
Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }             
  read(d);                                       
 assign(A,d);               
 rewrite(A);                   
  write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                       
 readln(m);                                   
  for I:=1 to n do                   
 begin                           
Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                             
  writeln(A);                   
 end;                           
close(A);
end.     

Answer 2

Для создания текстового документа с помощью Паскаля, в котором будет N строк и M символов в каждой строке, а также символы-цифры 1, 2 и т.д., можно использовать следующий код:

program CreateTextDocument;

var
  textFile: Text;
  i, j: Integer;
begin
  Assign(textFile, 'text_document.txt');
  Rewrite(textFile);

for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write(textFile, IntToStr(j mod 10));
    end;
    Writeln(textFile);
  end;

Close(textFile);
end.

В этом примере программа создает текстовый документ под названием "text_document.txt" и заполняет его N строками, каждая из которых содержит M символов, представляющих собой цифры от 1 до 9. Для этого используется вложенный цикл, в котором каждая цифра получается с помощью операции взятия остатка от деления на 10 (j mod 10), чтобы обеспечить повторение цифр от 1 до 9.

После заполнения всех строк текстовый файл закрывается. Теперь у вас будет текстовый документ, содержащий N строк и M символов в каждой строке, представленных цифрами от 1 до 9.