Завдання для самостійного виконання Складіть програму для обчислення значен-
ня виразу 2.3 + 106 * 4 і збережіть ту файлі
з іменем f_01. Виконайте програму і пере-
конайтеся, що отриманий результат є пра-
ВИЛЬНИМ
Завантажте середовище IDLE, викличте ство-
рену в пункті 1 програму з файла f_01, за-
мініть у програмі операцію множення чис-
ла 106 на 4 на операцію ділення. Збережіть
програму в тому самому файлі. Виконайте
програму та переконайтеся, що отриманий
результат е правильним.
3 Складіть програму для обчислення площі
трикутника за значеннями його сторін. 3бе-
режіть програму у файлі f_02. Виконайте
програму та доведіть, що отриманий резуль-
тат е правильним.
4 Викличте програму, що зберігається у файлі
f_02. Внесіть до неї такі зміни, щоб обчис-
лювалася площа прямокутного трикутника
за значеннями його катетів.
5 У коло радіусом и вписано правильний три-
кутник. Розробіть програму визначення
площі кола, яку не зайнято трикутником
Збережіть програму у файлі f_03. Виконайте
програму та доведіть, що вона функціонує
правильно,
У правильний трикутник зі стороною а впи-
сано коло. Розробіть програму визначення
площі трикутника, яку не зайнято колом.
Збережіть програму у файлі f_04. Виконайте
програму та доведіть, що вона функціонує
правильно.
7 Дізнайтеся в Інтернеті про відстань по шосе
між містами Хмельницький і Вінниця. Розро-
біть проект Визначення орієнтовного часу
прибуття автобуса до Вінниці, який починає
рух із Хмельницького о 8.30.
8 Знайдіть в Інтернеті відомості про найнижчу
та найвищу температуру в Києві у лютому за
останні 5 років. Розробіть проект визначен-
ня різниці між цими показниками.
От
Задание 1:
10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR
30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2)
60 pi=3.1415926
70 r=sqr(SR/pi)
80 if a>=r then print "Круг поместится в квадрат":goto 110
90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end
Задание 2:
10 rem Три числа
20 print "Введите три числа"
30 input a, b, c
35 if a = b and b = c then print "Числа равны между собой" : goto 100
40 if a > b then swap a, b
50 if b > c then swap b, c
60 if a > b then swap a, b
70 if a > c then swap a, c
80 print "Минимум ", a
90 print "Максимум ", c
100 end
Задание 3:
10 rem Первая цифра - чётная?
20 input "Введите двузначное число ", a
30 if a < 10 or a > 99 then 20
33 me$ = "Начинается с чётной"
36 mo$ = "Начинается с нечётной"
40 if int(a / 10) mod 2 = 0 then print me$ else print mo$
50 end
Задание 4:
10 rem Треугольник
20 input "Введите длину стороны а ", a
30 input "Введите длину стороны b ", b
40 input "Введите длину стороны c ", c
45 print "Составить такой треугольник ";
50 if a+b>c and a+c>b and b+c>a then 70
60 print "нельзя"
65 goto 90
70 print "можно"
83 if a=b and b = c then print "Треугольник равносторонний" : goto 90
86 if a=b or a=c or b=c then print "Треугольник равнобедренный"
90 end
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Введите в строку элементы массива A[3x3]');
var A:=ReadMatrReal(3,3);
Writeln('Введите в строку элементы массива B[3x3]');
var B:=ReadMatrReal(3,3);
var C:=new real[3,3];
for var i:=0 to C.RowCount-1 do
for var j:=0 to C.ColCount-1 do
C[i,j]:=A[i,j]/B[i,j];
Writeln('*** Массив С ***');
C.Println(10,5)
end.
Пример
Введите в строку элементы массива A[3x3]
3 5 -2 1.5 0.7 6 -0.5 4 2.2
Введите в строку элементы массива B[3x3]
0.6 5 3 7.4 -7.13 9.1 -2 0.8 6.42
*** Массив С ***
5.00000 1.00000 -0.66667
0.20270 -0.09818 0.65934
0.25000 5.00000 0.34268