17 |
x 0 |
y 0 |
y - x 2 – 2 |
A+(B+C) |
Графики
1) x<=0
2) y<=0
3) y<= - x*x– 2
4) x<=0 .OR. y<=0.OR. y<=-x*x-2
5) x<=0 .AND. y<=0.AND. y<=-x*x-2
6) x<=0 .OR. .NOT.(y<=0.OR.y<=-x*x-2)
Текст программы
Program Lab2
Implicit None
Logical ili, i, l
Real x,y
Character*6 Word
Open(6,file='res.txt')
Write(*,*) "ili(1): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
ili = x<=0 .OR. y<=0.OR. y<=-x*x-2
Write(6,*) Word,' OR(1): x=', x, ' y=', y, ' ', ili
Write(*,*) "ili(2): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
ili = x<=0 .OR. y<=0.OR. y<=-x*x-2
Write(6,*) Word,' OR(2): x=', x, ' y=', y, ' ', ili
Write(*,*) "i(1): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
i = x<=0 .AND. y<=0.AND. y<=-x*x-2
Write(*,*) "i(2): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
i = x<=0 .AND. y<=0.AND. y<=-x*x-2
Write(*,*) "A+ne(B+C)(1): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
l=x<=0 .OR. .NOT.(y<=0.OR.y<=-x*x-2)
Write(*,*) "A+ne(B+C)(2): vvedite X,Y i 'prognoz v apostrofah' "
Read(*,*) x,y,Word
l=x<=0 .OR. .NOT.(y<=0.OR.y<=-x*x-2)
End
Результаты
false OR(1): x= 5.000000 y= 5.000000 F
true OR(2): x= -5.000000 y= -5.000000 T
false AND(1): x= 5.000000 y= 5.000000 F
true AND(2): x= -1.000000 y= -10.000000 T
false A+ne(B+C)(1): x= 5.000000 y= -5.000000 F
true A+ne(B+C)(2): x= 5.000000 y= 5.000000 T
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
К лабораторной работе по информатике
Вариант № 17
Студент:
Преподаватель:
2004 г.