Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
mr-cat
0 / 0 / 0
Регистрация: 08.09.2018
Сообщений: 67
1

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

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

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

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

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

Вывод чисел в текстовый файл в стандартном Паскале. Сколько символов на число?
Отвечал на вопрос в другой теме и написал код вроде этого procedure go( x, y : integer ); begin...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

2
xtro
229 / 30 / 17
Регистрация: 10.06.2016
Сообщений: 113
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
mr-cat
0 / 0 / 0
Регистрация: 08.09.2018
Сообщений: 67
03.10.2018, 02:20  [ТС] 3
спасибо за ответ, но это не много не то, что нужно.
я уже исправил свой код.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2018, 02:20

Дано число k и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк
И снова всем привет) Помогите пожалуйста со следующим заданием: Дано число k (<10) и текстовый...

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и...


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

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

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