{ Треугольник задан координатами вершин (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.
формула герона!
А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !
периметр- это сумма всех сторон
например
begin
writteln( 'введите 3 стороны' ) ;
readln(a,b,c);
writeln(' периметр = ',a+b+c);
readln;
end.
Вот и все!! !
Удачи!
const
AOper: array [0..3] of string = ('+', '-', '*', '/');
var
a, b, Oper: Integer;
r: Real;
begin
Randomize; // инициализация датчика случайных чисел
a := Random (1001);
b := Random (1001);
Oper := Random (4);
case Oper of
0: r := a + b;
1: r := a - b;
2: r := a * b;
3:if b <> 0 then begin
r := a / b;
end else begin
WriteLn ('Произошла ошибка при делении на ноль');
Exit;
end
else r := -1;
end;
WriteLn (a);
WriteLn (b);
WriteLn (Aoper [Oper]);
if (r >= 0) and (r - Trunc (r) = 0) then begin // если в результате получилось положительное целое число
WriteLn ('yes');
WriteLn (r :6 :0);
end else
WriteLn (' no');
ReadLn;
end.
Объяснение:
r - Trunc (r) // это выделение дробной части числа
2Мясо нарезать небольшими кусочками
3Морковь нарезать брусочками
4В большом количестве растительного масла (около 150 мл) обжарить лук до золотистого цвета.
5Добавить мясо, обжарить.
6Добавить морковь, тушить 5-7 минут (крышкой не накрывать.)
7Добавить зиру, барбарис, куркуму, посолить, поперчить, перемешать.
8Налить воду так, чтобы она покрывала мясо.
Накрыть крышкой, тушить 35-40 минут, на среднем огне.
9Рис промыть 5-6 раз, в холодной воде
10Затем всыпать рис (с мясом НЕ перемешивать!), разровнять.
11Аккуратно влить горячую или теплую воду
12Немного посолить.
13Накрыть крышкой, варить до тех пор, пока рис не впитает воду.
14В серединку положить чеснок, вдавить его в рис.
15Деревянной палочкой сделать отверстия (рис и мясо не перемешивать) для выхода пара.
16Готовить под крышкой до готовности (около 20-25 минут).
17Затем все перемешать и подавать к столу.