Глава 2. Задачи для самостоятельной работы Задание 1. Высказывания
Задача 1.1 Определение высказывания и его типа (базовый уровень)
Среди следующих предложений выделить логические высказывания и
установить, Простые или составные; истинны они или ложны
1. Это утверждение не может быть истинным.
2. Площадь отрезка меньше длины куба.
3. Который час?
4. 10 не делится на 2 и 5 больше 3.
5. Сканер - устройство ввода информации.
6. Каждый треугольник имеет три стороны и три угла.
7. В котором часу начинаются занятия?
8. Число 53 является кратным числу 5.
9. «2+3=4»
10.«Наступил сентябрь, и начался учебный год» - это высказывание
11.«Не можете ли вы передать соль?»
12.«Гоголь писал «Мертвые души» в Риме»
13.Рукописи не горят
14.Некоторые лекарства опаснее самих болезней
15.Лондон является столицей Парижа.
16.Кошки едят летучих мышей?
17.Кошки едят мышей.
18.6) Начни с начала и продолжай до конца.
19.Числа 2 и 7 – делители 6.
20.Если 2 < 7, то x >0
21.4 не является простым числом.
22.2 и 3 – делители 12 тогда и только тогда, когда 4 – простое число.
23.4 или 7 кратны 2.
24.Если 9 делится на 5, то оно делится на 3.
25.Если 9 не делится на 5, то оно не делится на 3.
26.2 + 3 = 6.
27.2 + 3 6.
28.2 меньше 6 и 3 не больше 6
29.«Киев – столица Италии»
30.Лошадь кушает овес
n = 3;
m = 3;
var
i, j: integer;
a, b: array[1..n, 1..m] of integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(20) - 10;
write(a[i, j]:3, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to m do
begin
if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
a[i, j] := sqr(a[i, j]);
write(a[i, j]:4, ' ');
end;
writeln;
end;
end.
s = 0
n = CInt(InputBox("N ="))
Range(Cells(1, 1), Cells(2 * (n + 2), n + 2)).Clear
ReDim A(n - 1)
ReDim B(n - 1)
k = 1
Cells(k, 1).Value = "A"
Cells(k + 2, 1).Value = "B"
k = k + 1
m = -1
For i = LBound(A, 1) To UBound(A, 1)
A(i) = Round(Rnd * 10) - 5
Cells(k, 1 + i).Value = A(i)
If A(i) = 0 Then
m = m + 1
B(m) = i
Cells(k + 2, m + 1).Value = B(m)
End If
Next
End Sub
Sub num2()
n = 16
ReDim A(n, n), C(n, n), E(n, n)
Range(Cells(1, 1), Cells(2 * (n + 2), n + 2)).Clear
k = 1
Cells(k, 1).Value = "Init"
k = k + 1
Cells(k + n + 1, 1).Value = "Result"
For i = 0 To n
For j = 0 To n
A(i, j) = Round(Rnd * 10)
Cells(k + i, j + 1).Value = A(i, j)
If i = j Then E(i, j) = 1 Else E(i, j) = 0
C(i, j) = 0
For r = 0 To n
C(i, j) = C(i, j) + A(i, r) * A(r, j)
Next
x = 6 * (C(i, j) + E(i, j))
Cells(k + n + 2 + i, j + 1).Value = x
Next
Next
End Sub