Ввод с новой строки в файле

@SAIDOCHKA · Регистрация: 25.03.2014

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

Помогите пожалуйста! Никак не получается у меня

Нужно очень срочно!!!

Нужно подправить программу, чтобы она записывала все с новой строки (сейчас программа выводит все в одну строку

)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Var
TextFile:text;
a,b,c,str:string;
begin
  str:='';
Assign(TextFile, 'FileText.txt');
ReWrite(TextFile);
  writeln('Èìååòñÿ ëè âîëîñÿíîé ïîêðîâ?'); //1
  readln(a);
  writeln('Äà¸ò ìîëîêî?'); //2
  readln(b);
    if (a='äà') and (b='äà') then begin
    str:='Èìååòñÿ ëè âîëîñÿíîé ïîêðîâ?-äà,    Äà¸ò ìîëîêî?-äà'  ;
    writeln('Ïèòàåòñÿ ìÿñîì?');//3
    readln(a);
    writeln('Èìååò ëè îñòðûå çóáû èëè êîãòè?'); //4
    readln(b);
      if (a='äà') and (b='äà') then begin
        str:= str + ',  Ïèòàåòñÿ ìÿñîì?-äà, Èìååò ëè îñòðûå çóáû èëè êîãòè?-äà';
        writeln('Èìååò æåëòî-êîðè÷íåâóþ îêðàñêó è ïåãìåíò òåìíûå ïîëîñû?');  //7
        readln(a);
        if a='äà' then begin
          writeln('Îòðÿä õèùíèêè');
          writeln('Òèãð');
          str:=str + ' ';
          str:=str + ', Èìååò æåëòî-êîðè÷íåâóþ îêðàñêó è ïåãìåíò òåìíûå ïîëîñû?-äà,    Îòðÿä õèùíèêè, Òèãð';
          writeln(str);
          write(TextFile, str);
          close(TextFile);str:=''; exit; end//16
          else begin
          writeln('Èìååò æåëòî-êîðè÷íåâóþ îêðàñêó è ïåãìåíò òåìíûå ïÿòíà?');//8
          readln(a);
            if a='äà' then begin writeln('Îòðÿä õèùíèêè'); writeln('Ãåïàðä');
            str:=str + ', Èìååò æåëòî-êîðè÷íåâóþ îêðàñêó è ïåãìåíò òåìíûå ïÿòíà?-äà, Îòðÿä õèùíèêè,Ãåïàðä'; //17
            writeln(str);
            write(TextFile, str);
            close(TextFile);str:='';exit;end
            else begin
              writeln('Ìëåêîïèòàþùåå - õèùíèê; íåò ïîäðîáíîñòåé');
              str:=str + ', Ìëåêîïèòàþùåå - õèùíèê; íåò ïîäðîáíîñòåé';
              writeln(str);
              write(TextFile, str);
              close(TextFile); str:='';
              exit; end;
        end;
      end;
  writeln('Êîïûòà åñòü?');//5
  readln(a);
  writeln('Æóåò æâà÷êó?'); //6
  readln(b);
    if (a='äà') and (b='äà') then begin
    str:='Êîïûòà åñòü?-äà, Æóåò æâà÷êó?-äà';
    writeln('Ïåãìåíòíûå ïîëîñû?');//9
    readln(a);
      if a='äà' then begin  writeln('Îòðÿä ïàðîíîêîïûòíûå'); writeln('Çåáðà');
      str:= str+', Ïåãìåíòíûå ïîëîñû?-äà, Îòðÿä ïàðîíîêîïûòíûå - Çåáðà';
      writeln(str);
      write(TextFile, str);
      close(TextFile);exit; end//19
      else begin
      writeln('Äëèííûå íîãè è øåÿ?');
      readln(a);
        if a='äà' then begin writeln('îòðÿä ïàðíîêîïûòíûå'); writeln('Æèðàô');
        str:= str+', Äëèííûå íîãè è øåÿ?-äà, Îòðÿä ïàðîíîêîïûòíûå-Æèðàô';
        writeln(str);
        write(TextFile, str);
        close(TextFile); str:='';
        exit; end{20}else begin writeln('Ìëåêîïèòàþùåå ïàðíîêîïûòíîå; ïîäðîáíåå íå óäàëîñü');
        str:= str+', Ìëåêîïèòàþùåå ïàðíîêîïûòíîå; íåò ïîäðîáíîñòåé';
        writeln(str);
        write(TextFile, str);
        close(TextFile); str:='';
        exit end;//21
        end;
           end
       else begin writeln('Ìëåêîïèòàþùåå; íåò ïîäðîáíîñòåé'); exit; end;//22
  end;
  writeln('Ïåðüÿ åñòü?');//11
  readln(a);
  writeln('Êðûëÿ åñòü?'); //12
  readln(b);
    if (a='äà') and (b='äà') then begin
    str:='Ïåðüÿ åñòü?-äà, Êðûëÿ åñòü?-äà';
    writeln('Õîðîøî ëåòàåò?'); //13
    readln(a);
      if a='äà' then begin writeln('Êëàññ ïòèöû'); writeln('Àëüáàòðîñ');
      str:= str+', Õîðîøî ëåòàåò?-äà, Êëàññ ïòèöû-Àëüáàòðîñ';
      exit; end//23
      else begin
      writeln('Áûñòðî áåãàåò?'); //14
      readln(a);
        if a='äà' then begin writeln('Êëàññ ïòèöû'); writeln('Ñòðàóñ');
        str:= str+',Áûñòðî áåãàåò?-äà, Êëàññ ïòèöû-Ñòðàóñ';
        writeln(str);
         write(TextFile, str);
        close(TextFile); str:='';
        exit; end;{24}
        writeln('Èìååò ÷åðíî-áåëûé îêðàñ, æèâåò â Àíòàðêòèäå?'); //14
        readln(a);
          if a='äà' then begin  writeln('Êëàññ ïòèöû');writeln('Ïèíãâèí');
          str:= str+',Èìååò ÷åðíî-áåëûé îêðàñ, æèâåò â Àíòàðêòèäå?-äà, Êëàññ ïòèöû-Ïèíãâèí';
          writeln(str);
          write(TextFile, str);
          close(TextFile); str:='';
          exit;{24}end
          else begin
          writeln(' Ìëåêîïèòàþùåå ïòèöà; íåò ïîäðîáíîñòåé');
          str:= str+',Ìëåêîïèòàþùåå ïòèöà; íåò ïîäðîáíîñòåé';
          writeln(str);
          write(TextFile, str);
          close(TextFile); str:='';
          exit;end;//21
              end;
   end
else begin writeln('Íå óäàëîñü êëàñèôèöèðîâàòü');exit;
 end;
writeln(str);
write(TextFile, str);
end.

@Sckrejjet · 28.03.2014, 00:29

В тех местах, где нужен разрыв строки напишите:

Pascal
1
+Char(13)+Char(10)+

В вашем случае выглядеть будет так:

Pascal
1
 str:='Имеется ли волосяной покров?-да'+Char(13)+Char(10)+'Даёт молоко?-да'+Char(13)+Char(10);  ;

Попробуйте, должно сработать

Раньше я как-то использовал #13#10... Но в паскале не работает, поэтому приходится использовать Char();

@SAIDOCHKA · 28.03.2014, 00:44 **[ТС]**

Спасибочки!!!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@SAIDOCHKA 0 / 0 / 0 Регистрация: 25.03.2014 Сообщений: 7
	28.03.2014, 00:44 [ТС]
	Спасибочки!!! 0