Информатика: мнеэто Сор по информатике

мне

это Сор по информатике

мнеэто Сор по информатике

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Tuchka087

26.04.2021 20:47

В распоряжении пользователя имеется память объемом 2,6 Мб. Необходимо записать цифровой аудиофайл с длительностью звучания 1 минута. Какой должна быть частота дискретизации...

CHEREPOK17

13.02.2021 07:44

В электронной таблице заполнен числами диапазон A1:G10. Оказалось, что значение формулы =AVERAGE(A5:F5) равно 3. Чему равно значение формулы =SUM(A5:G5), если значение...

Ч1димасик1Ч

13.05.2021 07:43

1 задача, и если сможете то и тоже Информатикс , на ПАСКАЛЕ...

misterstepash

19.05.2023 13:50

На приготовление 1 бутерброда тратится 30 г колбасы. Сколько кг и г колбасы нужно приобрести для приготовления Х бутербродов? Нужно написать решение этой задачи на...

dashakalita

27.10.2020 03:43

ДАЮ Сообщение на тему программное обеспечение для обработки видео...

Chinchil1a

16.06.2021 08:34

Яка з частин божественної комедії найбільш приближена до реального життя?...

mboyko2005

20.06.2020 22:07

У кемпінгу відпочивали Х туристів. На обід кожен турист з їв половину банки супу, третину банки тушонки та чверть банки квасолі. Відомо, що загалом було з їдено 156...

LOL2202

09.02.2020 00:25

отметьте на координаоной прямой все целые числа, расположенные между числами 5,9 и -0,2...

mira23141

09.02.2020 00:25

1. Why Mr. Autrey was called Subway Superman?2. How did he react to the case of young man? ответить на вопросы ...

esenjel

09.02.2020 00:25

8. К высшим растения Цветковым относятся:А) мукорВ) папоротникС) ельд) ромашка...

Ответ:

Timoxa565

07.01.2023 06:26

{неэффективный алгоритм}

const
k = 100;

type
maze = array [1..k, 1..k] of integer;
var
l : maze;
n, m: integer;
i, j: integer;
c: char;
t: text;
w: integer;
x0, y0: integer;
x1, y1: integer;

procedure ways(a,b,r:integer);
begin
if (w = 0) or (r < w) then {нет смысла идти дальше, если текущий путь уже превосходит найденный}
if (l[a,b] <> -2) then
if (r < l[a,b]) or (l[a,b] = -1) then {нет смысла идти, если текущая клетка уже была достигнута за меньшее число шагов}
begin
l[a,b] := r;
if (a = x1) and (b = y1) then
w := r
else
begin
if a <> 1 then ways(a - 1, b, r + 1);
if b <> 1 then ways(a, b - 1, r + 1);
if a <> n then ways(a + 1, b, r + 1);
if b <> m then ways(a, b + 1, r + 1);
end
end;
end;
begin
assign(t, 'input.txt');
reset(t);
w := 0;
readln(t, n, m);
readln(t, x0, y0);
readln(t, x1, y1);
for i := 1 to n do
begin
for j := 1 to m do
begin
read(t, c);
case c of
'.' : l[i,j] := -1; {будем считать, что если клетка отмечена как -1, то путь к ней еще не найден}
'X' : l[i,j] := -2; {-2, если клетка непроходима}
end;
end;
readln(t)
end;
close(t);
if (l[x0,y0] <> -2) and (l[x1,y1] <> -2) then
begin
l[x0,y0] := 1; {просто трюк, чтобы пройти проверку на (r < l[x0,y0])}
ways(x0, y0, 0);
end
else
l[x1,y1] := -1;
writeln(l[x1,y1])
end.

0,0(0 оценок)

Ответ:

сабрина23

30.04.2022 05:54

<html>

<head><title>Формы и элементы</title></head>

<!--

Sub cmdCalculate_OnClick()

x11 = document.frmExercise2.x11.value

y11 = document.frmExercise2.x11.value

x22 = document.frmExercise2.x11.value

y22 = document.frmExercise2.x11.value

x33 = document.frmExercise2.x11.value

y33 = document.frmExercise2.x11.value

'x11 = InputBox("Введите координату x1", , 1)

'y11 = InputBox("Введите координату y1", , 1)

'x22 = InputBox("Введите координату x2", , 4)

'y22 = InputBox("Введите координату y2", , 1)

'x33 = InputBox("Введите координату x3", , 3)

'y33 = InputBox("Введите координату y3", , 2)

call pl(x11,y11,x22,y22,x33,y33)

end sub

sub pl(x1,y1,x2,y2,x3,y3)

d1 = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)

d2 = Sqr((x3 - x2) ^ 2 + (y3 - y2) ^ 2)

d3 = Sqr((x3 - x1) ^ 2 + (y3 - y1) ^ 2)

If d2 + d3 > d1 And d1 + d3 > d2 And d2 + d1 > d3 Then

p = d1 + d2 + d3

MsgBox "Периметр треугольника=" & p

p = p / 2

s = Sqr(p * (p - d1) * (p - d2) * (p - d3))

MsgBox "Площадь треугольника=" & s

Else

MsgBox "Такой треугольник не существует"

End If

end sub

-->

</SCRIPT>

</HEAD>

<BODY>

<H1>Вычисление площади треугольника</H1>

<P>Написать программу которая вычисляет площадь треугольника,

заданного координатами своих вершин.использовать формулу Герона.

вычисление расстояния между двумя точками оформить в виде процедуры или функции.</P>

<TABLE>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<TABLE>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<TABLE>

<TR>

</TR>

<TR>

</TR>

</TABLE>

<BR>

</FORM>

</BODY>

</HTML>

вроде так

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку

мнеэто Сор по информатике​

мне

это Сор по информатике