1. Человек использует знаки в различных отраслях, где необходимо мало писать.
2.О смысле знаков-пиктограммы можно догадаться по форме и т.д.(явное соглашение),знаки - символы не позволяют догадаться о их смысле по форме(неявное соглашение).
3. Языковые системы.
4. Сейчас допишу, надеюсь чуть чуть помогла.
Шишкин - это русский художник. Знаменитая картина "Утро в лесу".
Const
a = -0.5;
b = 2;
h = 0.15;
x1 = 0;
x2 = 3;
var
x, y: real;
begin
writeln('ТАБЛИЦА ФУНКЦИИ Y(X)');
writeln(' X Y');
x := x1;
repeat
if x < 1 then y := 1
else
if x <= 2 then y := a * sqr(x) * ln(x)
else y := exp(a * x) * cos(b * x);
writeln(x:4:2, y:12:7);
x := x + h
until x > x2 + 0.0000001
{добавка к х2 для компенсации погрешности представления h в ЭВМ}
end.
Тестовое решение:
ТАБЛИЦА ФУНКЦИИ Y(X)
X Y
0.00 1.0000000
0.15 1.0000000
0.30 1.0000000
0.45 1.0000000
0.60 1.0000000
0.75 1.0000000
0.90 1.0000000
1.05 -0.0268956
1.20 -0.1312715
1.35 -0.2734703
1.50 -0.4561482
1.65 -0.6816804
1.80 -0.9522144
1.95 -1.2697106
2.10 -0.1715608
2.25 -0.0684354
2.40 0.0263542
2.55 0.1056187
2.70 0.1645379
2.85 0.2007555
3.00 0.2142429
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub