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

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

02.10.2018, 16:23. Показов 477. Ответов 2
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z47;
var x,y,z:real;
t:text;
begin
Assign(t,'47.txt');
Append(t);
writeln('Введите x,y,z: ');
read(x,y,z);
if (x+y>z) and (x+z>y) and (z+y>x)
then
begin
writeln('Треугольник существует');
//если треугольник существует, идет проверка на остроугольность
if (x*x+y*y>z*z) and (x*x+z*z>y*y) and (z*z+y*y>x*x) then
writeln('Треугольник остроугольный')
else writeln('Треугольник не является остроугольным')
end
else writeln('Такого треугольника нет');
writeln(t,'при x=',x,' при y=',y,' при z=',z);
writeln('при x=',x,' при y=',y,' при z=',z);
close(t);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2018, 16:23
Ответы с готовыми решениями:

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

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

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

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

2
233 / 32 / 19
Регистрация: 10.06.2016
Сообщений: 123
02.10.2018, 17:23 2
так?
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 z47;
var x,y,z:real;
procedure writeln(fname:string;params s:array of object);
var
  t:string;
begin
   t:=string.Join('',s.Select(z->z.ToString))+NewLine;
  if not FileExists(fname) then System.IO.File.WriteAllText(fname,t,Encoding.GetEncoding(1251)) 
                           else System.IO.File.AppendAllText(fname,t,Encoding.GetEncoding(1251));
  write(t);
end;  
begin
writeln('47.txt','Введите x,y,z: ');
read(x,y,z);
if (x+y>z) and (x+z>y) and (z+y>x)
then
begin
writeln('47.txt','Треугольник существует');
//если треугольник существует, идет проверка на остроугольность
if (x*x+y*y>z*z) and (x*x+z*z>y*y) and (z*z+y*y>x*x) then
writeln('47.txt','Треугольник остроугольный')
else writeln('47.txt','Треугольник не является остроугольным')
end
else writeln('47.txt','Такого треугольника нет');
writeln('47.txt','при x=',x,' при y=',y,' при z=',z);
end.
0
0 / 0 / 0
Регистрация: 08.09.2018
Сообщений: 97
03.10.2018, 02:20  [ТС] 3
спасибо за ответ, но это не много не то, что нужно.
я уже исправил свой код.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.10.2018, 02:20

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

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

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

Запись результата в текстовый файл
Есть цикл for внутри кого есть условие if, нужно чтобы когда срабатывало условие данные...


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

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

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