Ответ прилагаю фото с кодом
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Формула Герона используется для вычисления площади треугольника. В данном случае нет необходимости (как и нужных данных) для ее использования. Так, чтобы найти полупериметр (обозначен буквой p в формуле), мы уже должны знать длины сторон.
Вывод другой формулы и сама формула для нахождения длины отрезка находится на этом сайте: http://www.studyguide.ru/note.php?id=14
program ryazantsev;
var xa, ya, xb, yb, d: real;
begin
Writeln('Введите координаты первой точки (x, y)');
Readln(xa, ya);
Writeln('Введите координаты второй точки (x, y)');
Readln(xb, yb);
d:=Sqrt(Sqr(xb-xa)+Sqr(yb-ya));
Writeln(d)
end.
Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.