Разработка алгоритмов... Приложение 1. Алгоритм вычисления параметров центральной гемодинамики.

• Автор: Буров, С.Б.
• Шифр специальности: 05.00.00
• Научная степень: Кандидатская
• Год защиты: 1985
• Место защиты: Москва
• Количество страниц: 48 c. : ил

Буров, С.Б.
Разработка алгоритмов... Приложение 1. Алгоритм вычисления параметров центральной гемодинамики.
Расшифровка не найдена
Текст воспроизводится по экземпляру, находящемуся в фонде РГБ:
Буров, С.Б.
Разработка алгоритмов... Приложение 1. Алгоритм вычисления параметров центральной гемодинамики.
Москва, 1985
Российская государственная библиотека, 2007 (электронный текст)
ГесуКїрСТЕеЗБІІЯ
СЯБЛВОІЕКА СССР им. Б. И. Леяиив
ßWTis

9.14. ТЕКСТ ПОДПРОГРАММЫ BRAPRT НА
АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ■БЕЙСИК'
1000 REM ЭТО ПОДПРОГРАММА ПРОГРАММЫ "BRAIN.BAS"
1001 PRINT PRINT ■ПОДГОТОВТЕСЬ К ВЫВОДУ ТАБЛИЦЫ»НАЙМИТЕ <В03ВР.КАР.>1
1002 INPUT AtXPRINT
1003 GOSUB 1055
1004 PRINT PRINT *РАДИ0И30Т0ПНАЯ АНГИОГРАФИЯ‘
1005 PRINT PRINT ‘ГОЛОВНОГО М03ГА'Р$=' ‘
1006 PRINT PRINT РФ
1007 GOSUB 1055
1008 PRINT PRINT
1009 FOR 1=1 ТО 35XPRINT * “»NEXT I
1010 PRINT 'ЛЕВ.*»'ПРАВ.'
1011 PRINT 1 ЗАДЕРЖКАÎ РУКА - ШЕЯ (СЕК) '»
1012 IF L(3)>L(4> THEN 1014
1013 A1=0A2=L(4)-L(3)G0 TO 1015
1014 A2=0A1=L(3)-L(4)
1015 PRINT A1»A2
1016 PRINT ' ВРЕМЯ! ШЕЯ - МОЗГ (СЕК) ",
1017 PRINT (M(1)-L(3))»(M(2)-L(4))
1018 GOSUB 1051
1019 PRINT ■ МОЗГ - ШЕЯ (СЕК) ’»CR(3)-L(3))» 1020 PRINT
1021 PRINT 'КРОВОТОК! АРТЕРИАЛЬН.'»
1022 FOR 1=1 TO 15XPRINT ' '»NEXT I
1023 IF L1(3)>L1(4) THEN 1025
1024 A2=100A1=100*L1(3)/L1(4)G0 TO 1026
1025 A1=100A2=100*L1(4)/Li<3)
1026 PRINT INT(A1 )»'%'»INT(A2).*'%'
1027 GOSUB 1053
1028 PRINT 'ПОЛУШАРН.'»
1029 GOSUB 1051
1030 IF Ml(1)>M1(2) THEN 1032
1031 A2=100A1=100*M1(1)/M1(2)G0 TO 1033
1032 A1 = 100A2=100*MH2)/M1<1)
1033 PRINT INT(A1)>'%'»INT(A2)»1
1034 GOSUB 1053
1035 PRINT 'BEH03H.'r
1036 FOR 1=1 TO 17PRINT ' "ÎXNEXT I
1037 IF R1(3)>R1(4) THEN 1039
1038 A2=100A1=100*R1(3)/R1(4)G0 TO 1040
1039 A1=100A2=100*R1(4)/R1<3)
1040 PRINT INT(A1)»'%“» INT(A2)»'%“
1041 PRINT PRINT
1042 PRINT 'ДАТА!'»ВАТФ»»"ВРАЧ!'»D$
1043 PRINT XF'RINT PRINT PRINT
1044 GOSUB 1055
1045 PRINT XF'RINT 'ЕШЕ КОПИЮ (1-ДА.0-НЕТ) ' »INPUT A
1046 IF A=1 THEN 1003
1047 RETURN
1048 END