|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
25.12.2008, 08:03 | #1 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
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. Помогите! |
25.12.2008, 08:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема схожа с этими, рекомендую внимательно прочитать Программа на Pascal Помогите по Pascal. Программа вычисления функции Программа в Pascal, зашифровка данных |
25.12.2008, 10:24 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
В принципе всё правильно, но если позволите, одно небольшое, скажем так, недоумение. Фрагмент программы:
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 |
25.12.2008, 12:05 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Если не указывать имя файла, и ввести пустой текст, то будет производиться запись в стандартное устройство вывода. В качестве такового может быть и принтер. Не забудьте перед обращением его инициализировать. Листинг можно найти в интернете, сюда из-за объема помещать не буду.
__________________
Убить всех человеков! |
25.12.2008, 13:09 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
P.S. Честно говоря, даже и не знаю, как инициализируется переход со обычного устройства ввода-вывода (монитор) на другое. Когда-то для этого существовал LST, но он работал только для LPT порта подключения принтера, посему сейчас и не реализуется. |
|
25.12.2008, 17:12 | #5 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Ох, спасибо за помощь! Я и сама чувствовала, что программа перегружена лишними действиями, но ее я "слепила из того, что было", а была у меня только программа вычисления среднего значения ряда чисел.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
22.01.2009, 16:58 | #6 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Спасибо всем за помощь! Программу я доработала, и теперь она выводит в файл именно то, что нужно:
Сравнение средних значений зубца Т исходной ЭКГ и после фармакологической пробы Vsr1=3.50 Vsr2=6.50 Заключение SR=3.00 Последний раз редактировалось ummasha; 22.01.2009 в 19:08 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|