Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Зло проиграет всегда ведь наш девиз добрата!!
(X>=A) and (X<=B)
это вариант для паскаля, в других языках может быть иначе
1. Упростим исходную логическую функцию
Для удобства записи будем использовать общепринятые сокращения. Операцию логического сложения (дизъюнкцию) "∨" будем обозначать знаком "+". Логическое умножение (конъюнкцию) "∧" будем обозначать знаком умножения (точкой) или опускать, как принято в алгебре. Вместо знака логического отрицания будем использовать надчеркивание.
2. Переведем в двоичную систему счисления заданные значения A, B, C:
3. Построим таблицу истинности для функции у
4. Переведем результат в десятичную систему счисления
то что подчеркнуто на минимальный возвраст группы заменить.
? "Введите возвраст человека"
INPUT A
IF A><span>пенсионер</span> THEN 1 ELSE 2
1 ? "группа пенсионеров" : GOTO 10
2 IF A><span>работник</span> THEN 3 ELSE 4
3 ? "группа работников" : GOTO 10
4 IF A><span>ученик</span> THEN 5 ELSE 6
5 ? "группа учеников" : GOTO 10
6 ? "группа дошкольников"
10 END