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

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

13.04.2020, 10:13. Показов 425. Ответов 1
Метки нет (Все метки)

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

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
type arhiv=record
     fam:string[20];
     god:word;
     ozenka:byte;
end;
const n=2;
var student:array[1..n] of arhiv;
    i,j,k:integer;
begin
  k:=0;
  for I:=1 to n do with student[I] do
  begin
    writeln;
    write('введите фамилию студента: ');
    readln(fam);
    write('введиет год студента: ');
    readln(god);
    write('введите средний балл студента: ');
    readln(ozenka);
    writeln;
  end;
    
  for I:=1 to n do
  with student[i] do
  If fam[1]='А' then
    writeln(fam:10,' ':10,god,' ':10,ozenka) else
    writeln('');
    
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2020, 10:13
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
13.04.2020, 10:18 2
Pascal
1
2
3
4
5
6
7
8
9
10
var f:text;
.......................
assign(f,'result.txt');
rewrite(f);
for i:=1 to n do
with student[i] do
If fam[1]='А' then
writeln(f,fam:10,' ':10,god,' ':10,ozenka) else
writeln(f,'');
close(f);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2020, 10:18

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

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

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru