Как распечатать на принтере то, что вывела программа (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.
Помогите!