Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Как распечатать на принтере то, что вывела программа (Pascal)
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию Как распечатать на принтере то, что вывела программа (Pascal) - 25.12.2008, 08:03

Как распечатать на принтере то, что вывела программа (Pascal)? Я написала небольшую программу для мамы (она - врач терапевт). Эта программа вычисляет какие-то средние значения электрокардиограммы(ЭКГ). Вот она:
Program ECG;
Var i,k:integer;
S,SR,Vsr1,Vsr2:real;
V1:array[1..6] of real;
V2:array[1..6] of real;
Begin
writeln;
Writeln('Сравнение средних значений зубца Т исходной ЭКГ и после фармакологической пробы');writeln;
For i:=1 to 6 do begin
write('Vsr1[',i,']=');
readln(V1[i]);end;writeln;
S:=0;k:=0;
For i:=1 to 6 do begin
S:=s+V1[i];
k:=k+1;end;
Vsr1:=S/k;
writeln('Vsr1=',Vsr1:4:2);
writeln;
For i:=1 to 6 do begin
write('Vsr2[',i,']=');
readln(V2[i]);end;writeln;
S:=0;k:=0;
For i:=1 to 6 do begin
S:=s+V2[i];
k:=k+1;end;
Vsr2:=S/k;
writeln('Vsr2=',Vsr2:4:2);
writeln;
writeln('Заключение');writeln;
For i:=1 to 6 do
SR:=Vsr2-Vsr1;
writeln('SR=',SR:4:2);
end.

Помогите!
Ответить с цитированием
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 25.12.2008, 10:24

В принципе всё правильно, но если позволите, одно небольшое, скажем так, недоумение. Фрагмент программы:

S:=0;k:=0;
For i:=1 to 6 do begin
S:=s+V1[i];
k:=k+1;end;
Vsr1:=S/k;

(их там 2) мне кажется перегруженным. Зачем нужен счетчик циклов, если и так заранее известно, что их 6? Эквивалентный фрагмент:

Vsr1:=0;
For i:=1 to 6 do
Vsr1:=Vsr1+V1[i]/6;

И еще - цикл к конце программы перед выводом результата - явно лишний!

Теперь по Вашему вопросу о выводе на печать. Самое правильное - организовать вывод данных в файл с последующей распечаткой этого файла. Делается это так:

В разделе VAR добавляете
f:TEXT;
В начале программы пишете
Assign(f, 'C:\UMMASHA\ekg.res');
ReWrite(f);
Здесь 'C:\UMMASHA\ekg.res' - для примера. Т.е. в кавычках указываете путь и имя файла [Диск]\[Папка]\...[Папка]\[Имя файла]
Во все операторы вывода (кроме тех, что используются при вводе данных) Write, WriteLn после открывающей скобки добавляете "f,", т.е. должно быть Write(f, ...). Пустой WriteLn заменяете на WriteLn(f). Можно, впрочем, и вывод на экран сохранить, для чего каждый выводной оператор нужно скопировать и в копию добавить "f,".
Т.е. будет Write(...); Write(f, ...);
В конце вычислений ОБЯЗАТЕЛЬНО добавить Close(f);
Теперь на диске образовался файл (например, ekg.res), в который внесены полученные данные. Осталось вызвать его в какой-либо текстовый редактор (NotePad, WORD и т.п.) и распечатать.
Удачи!

Последний раз редактировалось Vladimir_S; 25.12.2008 в 11:31
Ответить с цитированием
  (#3 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 25.12.2008, 12:05

Если не указывать имя файла, и ввести пустой текст, то будет производиться запись в стандартное устройство вывода. В качестве такового может быть и принтер. Не забудьте перед обращением его инициализировать. Листинг можно найти в интернете, сюда из-за объема помещать не буду.
Ответить с цитированием
  (#4 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 25.12.2008, 13:09

Цитата:
Сообщение от AlexZir Посмотреть сообщение
Если не указывать имя файла, и ввести пустой текст, то будет производиться запись в стандартное устройство вывода. В качестве такового может быть и принтер. Не забудьте перед обращением его инициализировать. Листинг можно найти в интернете, сюда из-за объема помещать не буду.
Можно, конечно, и так... Только вот нужно ли? И к тому же в этой программе Write используется и при вводе данных, поэтому что - переключать по ходу стандарт вывода? Как-то для новичка...

P.S. Честно говоря, даже и не знаю, как инициализируется переход со обычного устройства ввода-вывода (монитор) на другое. Когда-то для этого существовал LST, но он работал только для LPT порта подключения принтера, посему сейчас и не реализуется.
Ответить с цитированием
  (#5 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 25.12.2008, 17:12

Ох, спасибо за помощь! Я и сама чувствовала, что программа перегружена лишними действиями, но ее я "слепила из того, что было", а была у меня только программа вычисления среднего значения ряда чисел.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 22.01.2009, 16:58

Спасибо всем за помощь! Программу я доработала, и теперь она выводит в файл именно то, что нужно:

Сравнение средних значений зубца Т исходной ЭКГ и после фармакологической пробы

Vsr1=3.50

Vsr2=6.50

Заключение

SR=3.00

Последний раз редактировалось ummasha; 22.01.2009 в 19:08
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с печатью на принтере Друг № 1 Техническая поддержка 0 02.12.2011 21:28
Циклический алгоритм и Программа. Сос. Pascal Сергей Ч Вопросы начинающих программистов 1 22.02.2011 18:54
Программа расчёта периметра и площади пятиугольника на Pascal Nonius Вопросы начинающих программистов 2 17.12.2010 16:42
Программа моделирования движения частицы в двумерном поле на Pascal Pity Вопросы начинающих программистов 1 15.12.2010 02:05
Pascal Диалоговая программа ANTON252787 Pascal 0 10.12.2010 11:24
Как обнулить картридж на принтере HP 5283? dim9044 Любые вопросы от новичков 0 20.05.2010 01:48
Как обнулить счетчик на принтере Canon groznuy Форум программистов 2 12.03.2009 14:17
Как сбросить счетчик на принтере hp c4183? Dram Техническая поддержка 10 12.01.2009 12:00
Программа на удаление пятиугольника в Pascal Reneari Вопросы начинающих программистов 6 27.11.2006 22:27
Программа для перевода Assembler кода в С/Pascal код Дмитрий Мужичин Assembler 1 13.02.2004 12:49
Pascal лучшая программа для программирования Anonymous Мысли вслух 7 21.09.2003 16:19
Как отпечатать содержимое CTreeCtrl на принтере Anonymous Visual C++ 1 24.08.2003 04:29



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов