Цитата:
1
Вводятся длины двух сторон треугольника А и Б, и угол между ними в градусах. Определить длину третьей стороны С при помощи формулы теоремы косинусов.
|
Код:
VAR
a,b,alpha:REAL;
BEGIN
Write('a= ');
ReadLn(a);
Write('b= ');
ReadLn(b);
Write('alpha= ');
ReadLn(alpha);
WriteLn('c= ',SQRT(SQR(a)+SQR(b)-2.0*a*b*Cos(alpha/180*Pi)));
ReadLn;
END.
Цитата:
2
Вводятся радиусы оснований и высоты для двух циллиндров. Определить, какой из циллиндров выше, а какой - шире в основании. Ответ вывести в формате "A выше B", "B выше А", "A и B равны в высоте (или ширине основания)"
|
Код:
VAR
r1,r2,h1,h2:REAL;
BEGIN
Write('r1= ');
ReadLn(r1);
Write('h1= ');
ReadLn(h1);
Write('r2= ');
ReadLn(r2);
Write('h2= ');
ReadLn(h2);
If h1>h2 then
writeln('Cylinder1 is higher then cylinder2') else
If h2>h1 then
writeln('Cylinder2 is higher then cylinder1') else
writeln('The hights of cylinder1 and cylinder2 are equal');
If r1>r2 then
writeln('Cylinder1 is wider then cylinder2') else
If r2>r1 then
writeln('Cylinder2 is wider then cylinder1') else
writeln('The widths of cylinder1 and cylinder2 are equal');
ReadLn;
END.
Остальные - попозже.