Задание 4.1 Составить и записать на языке программирования Visual Basic программу расчета
минимального времени поездки из одного города в другой по шоссе, если в пути встретятся
населенные пункты. Разрешенная скорость движения по шоссе 80 км/час, в населенных пунктах –
60 км/час.
где A – расстояние между городами
n – количество населенных пунктов
l средняя протяженность населенного пункта вдоль шоссе
Ввод данных организуйте при функции InputBox (Данные для расчета программа
запрашивает у пользователя).
Вывод организуйте при метода Print.
Примечание: Время на разгон и торможение не учитывать.
Вывод сопроводите текстовыми пояснениями:
“Расстояние=”
“Количество населенных пунктов=”
“Время в пути=”
Задание 4.2
Составить и записать на языке программирования Visual Basic программу вычисления
значения y по формуле:
y =
9 − 2x
3
3√x
+
√x
2
где x – переменная с любым числовым значением
Ввод x организуйте при функции InputBox (Данные для расчета программа
запрашивает у пользователя).
Вывод организуйте при метода Print.
Примечание: Вывод сопроводите текстовыми пояснениями:
“ X =”
“ Y =”
“Решения нет”
Задание 4.3
Составить программу определения минимального из 10-ти чисел, вводимых пользователем
Ввод данных организуйте при функции InputBox (Данные для расчета программа
запрашивает у пользователя).
Вывод организуйте при метода Print.
Примечание: Вывод сопроводите текстовым пояснением:
“Минимум=”
Задание 4.4
Какое число было введено с клавиатуры, если в результате выполнения программы было
выведено число 10?
Dim a(8) As Single
Dim i As Single
Private Sub Command1_Click()
a(0) = Val(InputBox("Введите число"))
For i = 1 To 8
a(i) = a(i - 1) - 1
x = a(i)
Next i
Print x
End Sub
Задание 4.5
Задан одномерный массив чисел.
Какое число будет напечатано в результате выполнения следующей программы:
Dim x(10) As Integer
Dim k, n As Integer
Private Sub Command1_Click()
x(1) = 36
x(2) = 20
x(3) = 20
x(4) = 41
x(5) = 19
x(6) = 21
x(7) = 15
x(8) = 33
x(9) = 16
x(10) = 24
n = 1
For k = 1 To 10
If x(k) <=x( n) Then
n = k
End If
Next k
Print n
End Sub
#include <iostream>
#include <vector>
#include <cmath>
#include <set>
using namespace std;
void swap(int *a, int *b){
int temp = *a;
*a = *b;
*b = temp;
}
signed main() {
set<pair<int,int>> s;
int n;
cin >> n;
vector<int> a(n);
for(int &i:a)
cin >> i;
int m;
cin >> m;
while(m--){
int x,y;
cin >> x >> y;
s.insert({x,y});
s.insert({y,x});
}
for(int i = 0; i < n; i++)
for(int j = 0; j < n - i - 1; j++)
if(a[j] > a[j+1] && s.find({a[j],a[j+1]}) == s.end())
swap(a[j],a[j+1]);
for(int &i:a)
cout << i << " ";
}
1 вариант площадки - круг. Округлая арена наиболее подходит для проведения соревнований, т.к в таком случае победа робота зависит от выполнения его программы, а не от его удачного расположения на арене, как это бы происходило с квадратом. к тому же - это принуждает писать более качественный код, ведь проехать по прямой по краю круга не получится.
2 варианта площадки для проведения робосумо не существует, почти в о всех подобных мероприятиях используется именно круг. И в продаже других площадок я лично не видел, и при вбивании такого запроса в интернет - выскакивает не сумо роботов, а выставка умных машин.