Pascal. Как распечатать на принтере то, что вывела программа?
Как распечатать на принтере то, что вывела программа (Pascal)? Я написала небольшую программу для мамы (она - врач терапевт). :cool: Эта программа вычисляет какие-то средние значения электрокардиограммы(ЭКГ). Вот она:
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. Помогите! |
В принципе всё правильно, но если позволите, одно небольшое, скажем так, недоумение. Фрагмент программы:
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 и т.п.) и распечатать. Удачи! |
Если не указывать имя файла, и ввести пустой текст, то будет производиться запись в стандартное устройство вывода. В качестве такового может быть и принтер. Не забудьте перед обращением его инициализировать. Листинг можно найти в интернете, сюда из-за объема помещать не буду.
|
Цитата:
P.S. Честно говоря, даже и не знаю, как инициализируется переход со обычного устройства ввода-вывода (монитор) на другое. Когда-то для этого существовал LST, но он работал только для LPT порта подключения принтера, посему сейчас и не реализуется. |
Ох, спасибо за помощь! :) Я и сама чувствовала, что программа перегружена лишними действиями, но ее я "слепила из того, что было", а была у меня только программа вычисления среднего значения ряда чисел. :eek:
|
Спасибо всем за помощь! :) Программу я доработала, и теперь она выводит в файл именно то, что нужно:
Сравнение средних значений зубца Т исходной ЭКГ и после фармакологической пробы Vsr1=3.50 Vsr2=6.50 Заключение SR=3.00 |
Часовой пояс GMT +4, время: 19:48. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.