Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях!

+ 0 -

Fufarik

26 июня 2013 г., 0:08:04 (10 лет назад)

1) разъясняю сразу , тут у меня затупка с синусом,там не вычислит площадь,но можешь исправить

Program c1;
var a,b,c,d,o,p,s:real;
begin
writeln('введите стороны и угол');
readln(a,b,d);      //Вводишь стороны и угол
c:=sqrt(a*a+b*b);
o:=sqrt(a*a+b*b-2*a*b*d);       //a2=b2+c2−2*b*c*cos α, теорема косинусов,но не думаю ,что вам давали её.
if d=90 then writeln(c) else writeln(o);
p:=(a+b+c)/2;//полупериметр
s:=sqrt(p*(p-a)*(p-b)*(p-c));   //Формула Геронна по вычислению площади треугольника.
writeln('площадь треугольника равна ',s);
end.

2) знание функций требовалось

Program c2;
var
a,b,z,x,d,e:integer;
begin
readln(a,b);
d:=a mod b;
e:=a div b;
writeln(a/b);
writeln(d);
writeln(e);
writeln(round(a/b));
end.

3)Советую на тетрадке пройтись по этому коду, будешь понимать

program c3;
var a,b,i,k:Integer;
begin
Writeln('Вводи трехзначное');
Readln(a);
b:=0;
k:=100;
while (a<>0) do
begin
b:=b + (a mod 10)* k; //циклом превращаем единицы в сотни, десятки в десятки, и сотни в единицы
k:=k div 10;
a:=a div 10;
end;
Writeln('Ответ = ', b);
end.