Полигон-2

eyrope написал:

[q]

да вот времени катастрофически не хватает.

[/q]

Это чем же современные школьники так заняты, семью что ли тянете или на двух работах работайте

Помогу с первой задачей:

100 INPUT ; "Катет А" ; A
110 INPUT ; "Катет B" ; B
120 G2 = A^2 + B^2
130 G = SQR(G2)
140 PRINT , "Значение гипотенузы =" ; G

Лень-матушка вперёд них родилась.

4-я задача. Для остроты - на паскале. Адаптируйте на BASIC сами.

program Treug;
uses crt;
var
   x,y:array[1..3] of integer;
   a,b,c,p,s:real;
   i:integer;
begin
clrscr;
for i:=1 to 3 do
  begin
   write('x',i,'=');readln(x[i]<img src="smiles/wink.gif" align=absmiddle alt=";)">;
   write('y',i,'=');readln(y[i]<img src="smiles/wink.gif" align=absmiddle alt=";)">;
  end;
a:=sqrt(sqr(x[2]-x[1]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[2]-y[1]<img src="smiles/wink.gif" align=absmiddle alt=";)">);
b:=sqrt(sqr(x[3]-x[2]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[3]-y[2]<img src="smiles/wink.gif" align=absmiddle alt=";)">);
c:=sqrt(sqr(x[1]-x[3]<img src="smiles/wink.gif" align=absmiddle alt=";)">+sqr(y[1]-y[3]<img src="smiles/wink.gif" align=absmiddle alt=";)">);
if a+b>c then
  begin
   p:=a+b+c;
   writeln('Периметр треугольника: ',p:4:2,' см');
   p:=p/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   writeln('Площадь треугольника: ',s:4:2,' см^2');
  end
else
  writeln('Такой треугольник не существует!');
end.


Кай написал:

[q]

Лень-матушка вперёд них родилась.

[/q]

Никакая не лень. Прихожу со школы в 4, в 5 иду на вождение, в 7.30 домой...
На уроки времени не хватает
А мне еще и к экзаменам готовится надо.

zOrg, спасибо большое!

eyrope написал:

[q]

А мне еще и к экзаменам готовится надо.

[/q]

Экзамены это ерунда (во всяком случае ЕГЭ) - там списать ничего не стоит. Так что можно особо не волноваться.

Спасибо огромное! Больше не нужно.