1 / 1 / 0
Регистрация: 04.03.2011
Сообщений: 36
1

Вывод результата в текстовый файл

11.06.2013, 20:23. Показов 14200. Ответов 2
Метки нет (Все метки)

Всем добрый день. Подскажите пожалуйста. Вот у меня есть программка и мне нужно, чтобы после того как она выполнит расчет она записала полученный результат в текстовый файл, как мне это сделать?
вот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program asadf;
var a, b, c, d, e, f, s:integer;
begin
s:=0;
for a:=1 to 3 do
    for b:=1 to 9 do
        for c:=1 to 9 do
            for d:=1 to 9 do
                for e:=1 to 9 do
                    for f:=1 to 9 do
                        begin
                             if(a+b+c)=(d+e+f) then
                                  begin
                                       writeln(a, b, c, d, e, f);
                                       s:=s+1
                                  end;
                        end;
            writeln(s);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2013, 20:23
Ответы с готовыми решениями:

Вывод результата в текстовый файл
Здравствуйте,подскажите пожалуйста. Вот у меня есть программка и мне нужно, чтобы после того как...

Нужно сделать вывод результата программы в текстовый файл
Вообщем есть программа уже составленная, надо сделать вывод результата программы в файл, т.е. я...

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

Вывод результата в текстовый файл в нужной кодировке
В общем есть программа для табулирования функции (она будет ниже).Вопросов по самой программе нет,...

2
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
11.06.2013, 20:49 2
вот так результат запишется в текстовый файл output.txt в ту же папку где хранится сама программа. Путь, где будет создан файл можно также задать. Например 'C:\Files\output.txt'
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
program asadf;
var
  a, b, c, d, e, f, s: integer;
  fl: text;
begin
 
  s := 0;
  for a := 1 to 3 do
    for b := 1 to 9 do
      for c := 1 to 9 do
        for d := 1 to 9 do
          for e := 1 to 9 do
            for f := 1 to 9 do
            begin
              if(a + b + c) = (d + e + f) then
              begin
                writeln(a, b, c, d, e, f);
                s := s + 1
              end;
            end;
  assign(fl, 'output.txt');
  rewrite(fl);
  writeln(s);
  writeln(fl, s);
  close(fl);
end.
Добавлено через 4 минуты
Pascal
1
2
3
4
5
 assign(fl, 'output.txt');   // устанавливаем связь между файловой переменной и путем к файлу
  rewrite(fl);  // создание (перезапись) файла
  writeln(s);
  writeln(fl, s);  // вывод данных в файл
  close(fl); // закрываем файл
1
1 / 1 / 0
Регистрация: 04.03.2011
Сообщений: 36
11.06.2013, 21:07  [ТС] 3
спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2013, 21:07

Запись результата в текстовый файл
Уважаемые форумчане, нужна помощь. Задача состоит в следующем: нужно, чтобы результат программы...

Сохранение результата программы в текстовый файл
Возможно ли такое, чтобы все, что появилось после Ctrl+F9 сохранялось куда-нибудь в какой-нибудь...

Вывод результата в файл
Доброго времени суток! Помогите пожалуйста, буду очень признательна! Написала код по вычислению...

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

Сумма различных последовательностей и вывод результата в текстовый файл
Доброго всем вечера! :) Возник один небольшой вопросик, буду очень благодарен тому, кто мне...

Поиск заданного текста (части строки) в текстовом файле и вывод результата построчно в другой текстовый файл
Здравствуйте! Есть файл 1.txt вида: <img align="middle" src="client.gif"> <a...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.