Решите на Паскаль. Вывести на экран график функции типа y=a*x^b (-3<=x<=3). Коэфициенты а и b подбираются генератором случайных чисел в диапазоне от -10 до 10.
241
490
Ответы на вопрос:
PascalABC.NET:
uses GraphWPF; begin var (a, b) := Random2(-10, 10); DrawGraph(x → a*x**b, -3, 3); Window.Title := $' a: {a}, b: {b}'end.В заголовке окна выводятся значения a и b.
1 sm('Игорь',18,189).
2 sm('Роман',17,182).
3 sm('Антон',20,191).
4 sm('Виктор',21,185).
5 sm('Николай',16,193).
6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;
7 % ?- findall( Name, (sm(Name, Age, Height), Height >= 184, Height < 190), Xs ).
8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);
9 % ?- findall( Name, (sm(Name, Age, Height), Age < 20, Age >= 18), Xs ).
10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).
11 % ?- findall( Name, (sm(Name, Age, Height), Height > 186, Age =< 19), Xs ).
Популярно: Информатика
-
KindPioneer10.04.2021 22:14
-
akaspiyskaya03.12.2020 22:14
-
vova0109200520.01.2022 20:11
-
olysenko29005.09.2021 16:31
-
STRELOK999922.10.2022 00:42
-
Котёнок000709.01.2020 08:51
-
oksyanna02.02.2021 16:11
-
Janiya140408.12.2022 07:28
-
DashaLutova11.04.2021 14:13
-
aytanpashaeva17.03.2020 23:48