3) взы-e24) b8+883-рd34) на рисунке фрагмент электронной таблицы. какое число появится в ячейке с4, еслископировать в нее формулу из ячейки d3? а в с15 106 | 127 | 14b2+$вз-sas18 1161) 82) 183) 214) 2635) на рисунке фрагмент электронной таблицы. какое число появится в ячейке d1, еслископировать в нее формулу из ячейки с2? aс325$a2+$в$3а3+b31) 92) 83) 64) 536) на рисунке фрагмент электронной таблицы. какое число появится в ячейке d1, еслископировать в нее формулу из ячейки с2? ссмн46»sea$2+$в$3аз+b31) 112) 93) 84) 637) на рисунке фрагмент электронной таблицы. какое число появится в ячейке d1, еслископировать в нее формулу из ячейки с2? вtd| 1 | 2 | 3=$a$2+$b$3| 3| 6 | 7 | аз+b31) 123) 134) 142) 16
Ответы
{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).
Найти площадь треугольника (используя формулу Герона) }
uses crt;
var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;
begin
clrscr;
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
write('x3=');readln(x3);
write('y3=');readln(y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y1-y3));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('s=',s);
readln;
end.
формула герона!
А так я думаю эти задачки очень даже не сложные, только формулы надо знать !
Удачи!
Найти площадь треугольника (используя формулу Герона) }
uses crt;
var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;
begin
clrscr;
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
write('x3=');readln(x3);
write('y3=');readln(y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y1-y3));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('s=',s);
readln;
end.
формула герона!
А так я думаю эти задачки очень даже не сложные, только формулы надо знать !
Удачи!
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Var
arnx,armx,arny,army,delMmax:array[1..1000] of real;
N,M,res,i,j:integer;
min:real;
begin
min:=maxreal;
{не уверен существует ли эта константа в fpc, если что, она равна максимальному значению типа real}
readln(N);
for i:=1 to N do
readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
begin
readln(armx[i],army[i]);
delMmax[i]:=-1;
for j:=1 to N do
if delMmax[i]<sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
then
delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
if delMmax[i]<min
then
begin
min:=delMmax[i];
res:=i;
end;
end;
writeln(res);
end.
Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2