Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/22: Рейтинг темы: голосов - 22, средняя оценка - 4.50
JIIOTER
1 / 1 / 0
Регистрация: 04.03.2011
Сообщений: 36
1

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

11.06.2013, 20:23. Просмотров 4081. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2013, 20:23
Ответы с готовыми решениями:

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

Вывод в текстовый файл
Не записывается в выводящий файл. Подскажите, в чем проблема var kol:integer; n,i:integer;...

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

Вывод данных в текстовый файл в виде таблицы
как вывести данные в виде таблицы в текстовый файл на abc паскале)))?

Вывод результата в файл и считывание с него. Типизированный
Программа uses crt; const nmax=100; type mas=array of integer; procedure Typ(var v:mas;var...

2
ermolay
3435 / 2374 / 2134
Регистрация: 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
JIIOTER
1 / 1 / 0
Регистрация: 04.03.2011
Сообщений: 36
11.06.2013, 21:07  [ТС] 3
спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2013, 21:07

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл,...

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

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример...


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

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

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