Новые сообщения · Правила  
  • Страница 1 из 2
  • 1
  • 2
  • »
Форум ПРОГРАММИСТОВ » КУРС ОПР - ПАСКАЛЬ » Лабораторные работы » Лабораторная работа №4 (Линейные алгоритмы)
Лабораторная работа №4
Тема: Составление простейших линейных программ
Задание. Составить простейшую вычислительную программу. Номер варианта по номеру в журнале.
Цель работы: Познакомиться со структурой программы, научиться составлять линейные вычислительные алгоритмы, вспомнить простейшие формулы математики.

Задания

1. Вводят несколько чисел. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
2. Найти периметр и площадь треугольника, если даны длины его сторон.
3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.
4. Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 меньше R2).
5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.
6. Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.
7. Дана площадь круга. Найти длину окружности, ограничивающей этот круг.
8. Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a>b) и углом alpha при большем основании (угол дан в радианах).
9. Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
10. Найти расстояние между двумя точками с заданными координатами (x1,y1) и (x2,y2).
11. Даны координаты трех вершин треугольника (x1,y1),(x2,y2),(x3,y3). Найти его периметр и площадь.
12. Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.
13. Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.
14. Написать программу вычисления углов треугольника, если заданы координаты вершин.
15. Написать программу вычисления расстояния от точки до прямой, если заданы координаты точки и уравнение прямой.
16. Напишите программу для вычисления определителя третьего порядка.
17. Дан радиус окружности, вычислить площадь вписанного треугольника.

Замечания. Вместе с кодом программы выложить контрольный пример и контрольный просчет. Просчет, как и программу, выкладывать также в тегах кода и для каждой строчки кода указывать вычисленные или присвоенные значения переменных из этой строки программного кода. Также требуется выкладывать скрин результатов выполнения.

Приведем пример выполнения задания:

Код программы:
Код
program BF_exprog1;
        uses printer; var a,b,c:real;
        begin
          writeln('Введите числа a и b: ');
          readln(a,b);
          c:=(a+b+abs(a-b))/2;
          writeln(c)
        end.

Контрольный расчет:
Код
program BF_exprog1;
uses printer; var a,b,c:real;
begin
Введите числа a и b:        
3 5
(3+5+|3-5|)/2=5
5
end.
1 | Автор: admin | 2014-09-14, 12:41   |  Репутация: [ + 21 ]
Задание №8
Код программы:

Код
program Predator;           
           uses printer; var a,b,c,d,h,f,e,l,s,p,α,α°,β,sin30°,sin45°,sin60°,π:real;           
           begin           
              writeln('*****************************************************');           
              writeln('*     laba №4  file: Mr_Pozitiv.pas == ver.1.0      *');           
              writeln('*                        exercise                   *');           
              writeln('*   Malevanny V. A.  Group I-14-1 Date: 15/09/14    *');           
              writeln('*****************************************************');           
              writeln('Введите кут α: ');           
              writeln('Введите числа a и b : ');           
                 π:=3,14;           
              readln(α);           
                α°:=α*180°/π;           
              readln(a,b);           
                L:=a-b;           
                p:=e:=a-l/2;            
                sin30°:=1/2;           
                sin45°:=√2/2;           
                sin60°:=√3/2;           
                if β°=30° then readln(sin30°) else if β°=45° then readln(sin45°) else if β°=60° then readln(sin60°) else write('Error');             
                β:=90°-α°;
                d:=c:=(sin β°)*(p/x)=x;            
                h:=√c^2-√f^2;           
                s:=(a+b/2)*h;           
                p:=a+b+c+d;           
              writeln(s,p)           
End.

Контрольный расчет:


Код
program Predator;           
           uses printer; var a,b,c,d,h,f,e,l,s,p,α,α°,sin30°,sin45°,sin60°,π:real;           
           begin           
              Введите кут α           
              Введите числа a и b           
                 π:=3,14;           
              1,06           
              1,06*180°/3,14=60°           
              26 10
              26-10=16
                26-10=5           
                1/2
                √2/2
                √3/2
                √3/2
                90°-60°=30°
                (1/2)*(8/x)=16           
                √16^2-√8^2=13,85
                (26+10/2)*13,85=249           
                26+10+16+16=68           
              249 68           
End.
привожу для наглядности рисунок


perfect ;)
2 | Автор: Mr_Pozitiv | 2014-09-15, 07:31 | Изменено: Mr_Pozitiv - Ср, 2014-09-17, 21:00   |  Репутация: [ + 6 ]
Код
program AlenaKit4;
uses printer;

var
     a, b, c, d: real;

begin
   writeln('*****************************************************');            
               writeln('*     laba №4  file: AlenaKit.pas == ver.7.0      *');            
               writeln('*                        exercise                   *');            
               writeln('*   Bibicheva O.O  I-14-1  16/09/14    *');            
               writeln('*****************************************************');          
     writeln('Введите сторону куба');
     read(a);
     b := a * a;
     c := 6 * (a * a);
     d := a * a * a;
     writeln('площадь грани =', b );
     writeln('площадь полной поверхности =', c);
     writeln('объем =', d);
end.


Контрольный расчет

Код
program AlenaKit4;
uses printer;

var
     a, b, c, d: real;

begin
Введите сторону куба
3
площадь грани =9
площадь полной поверхности =54
объем =27
end.



AlenaKit♥
3 | Автор: AlenaKit | 2014-09-16, 18:35 | Изменено: AlenaKit - Вт, 2014-09-16, 22:26   |  Репутация: [ + 12 ]
Код программы:

Код
Program ELMpr_La4;
{
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░Lab░work░#4░░file:ELMpr_La4.pas░==░ver.1.0░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░░Decision task №6 of laboratory work №4.░░░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░©░Grankin░V.I.░Group░І-14-1░Date:░16/09/14░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
}
Uses Printer;
Const Pi=3.14;
Var C, S: real;
   Begin
     Writeln('Enter C');  
     Readln(C);
     S:=Pi*sqr(C/(2*Pi));
     Writeln('S=',S);
   End.

Контрольный расчет:

Код
Program ELMpr_La4;
Uses Printer;  
Const Pi=3.14;
Var C, S: real;
    Begin
      Введите длину окружности
      6,28
      3,14*(6,28/(2*3,14))*(6,28/(2*3,14))=3,14
      3,14
    End.



El_Magnifico with <3
4 | Автор: El_MAgnifico | 2014-09-16, 20:11 | Изменено: El_MAgnifico - Вт, 2014-09-16, 20:45   |  Репутация: [ + 8 ]

Код
program ploshad;
var
x1,y1,x2,y2,x3,y3:real;
P,S,a,b,c:real;
begin
writeln('*****************************************');
writeln('*   laba#2 file:FORZOREZOR.pas==ver1.0        *');
writeln('*               plosha                    *');
writeln('* Onufrienko E.M.  I-14-1   15/09/2014  *');
writeln('*****************************************');
writeln('Координаты первой вершины');
readln(x1,y1);
writeln('Координаты второй вершины');
readln(x2,y2);
writeln('Координаты третей вершины');
readln(x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
P:=a+b+c;
S:=sqrt(P/2*(P/2-a)*(P/2-b)*(P/2-c));
writeln('Площадь=' ,S);
writeln('Периметр=' ,a+b+c);
readln
end.


Код
program ploshad;
var
x1,y1,x2,y2,x3,y3:real;
P,S,a,b,c:real;
begin
координаты первой вершины
0,2
координаты второй вершины
-4,0
координаты третей вершины
-2,6
Площадь=10
Периметр=15.27

end.

5 | Автор: Forzorezor | 2014-09-17, 22:48   |  Репутация: [ + 4 ]
Код
Program Distance;
Var x1,y1,s,A,B,C:integer;d,k:real;
Begin
Writeln (' **************************************************** ');
Writeln (' **   Laba #4 File Olga Frolova.pas == ver.1.0. **    ');
Writeln (' ***  Frolova O.R. Group I-14-1 Date 20.09.2014 ***  ');
Writeln (' **************************************************** ');
Writeln (' Введите числа x1 и y1: ');
Readln (x1,y1);
Writeln (' Введите числа А и В и С: ');
Readln (A,B,C);
s:=(abs(A*x1+B*y1+C));
k:=(sqrt(A*A+B*B));d:=(s/k);
Writeln ('Summa=',s);
Writeln ('Koren=',k);
Writeln ('Distance=',d);
end.

Контрольный расчет

Код
Program Distance; Var x1,y1,s,A,B,C:integer;d,k:real; [color=#828282]Begin
Введите числа x1 и y1: 1 4   
Введите числа А и В и С: 1 7 2
Summa=31Koren=7.07106781186548
Distance=4.38406204335659 end.



25101996
6 | Автор: OlgaFrolova | 2014-09-20, 17:28 | Изменено: OlgaFrolova - Сб, 2014-09-20, 17:47   |  Репутация: [ + 0 ]
Код
Program opr;
     {
     *************************************************************
     *         laba#4 file: misha_shabelnik 97 pas == ver.1.0                             *
     *         Shabelnik M.V. Group I-14-1 Date: 21\09\14                    *
     *************************************************************
     }
     

    var    
    a1,a2,a3,b1,b2,b3,c1,c2,c3,det:real;
    begin
    writeln('Введите a1 и а2 и а3');
    read(a1,a2,a3);
    writeln('Введите b1 и b2 и b3');
    read(b1,b2,b3);
    writeln('Введите c1 и с2 и с3');
    read(c1,c2,c3);
    det := a1*b2*c3-a1*b3*c2+b1*c2*a3-b1*c3*a2+c1*a2*b3-c1*a3*b2;
     writeln('определитель 3-го порядка=',det);
    end.


Контрольный расчет

Код
Program opr;
     
var      
      a1,a2,a3,b1,b2,b3,c1,c2,c3,det:real;
Введите a1 и а2 и а3
1 2 3
Введите b1 и b2 и b3
4 5 6
Введите c1 и с2 и с3
7 8 9
определитель 3-го порядка=0
7 | Автор: torres | 2014-09-21, 15:45 | Изменено: torres - Вс, 2014-09-21, 20:01   |  Репутация: [ + 0 ]
7 | Автор: torres | 2014-09-21, 15:45 | Изменено: torres - Вс, 2014-09-21, 20:01   |  Репутация: [ + 0 ]
8 | Автор: torres | 2014-09-21, 15:51 | Изменено: torres - Вс, 2014-09-21, 19:39   |  Репутация: [ + 0 ]
Код
Program ira_butenko97;
var
R1, R2, Pi, S : real;
begin
writeln(' Введите значение R1 и R2 ');
readln(R1);
readln (R2);
Pi:=3.14;
if (R1<R2) then
begin
S:= (sqr(R2)-sqr(R1))* Pi;
writeln(S);
end
else writeln(' error! R1>=R2');
end.

контрольный расчет
Program ira_butenko97;
var
R1, R2, Pi, S : real;
writeln(' Введите значение R1 и R2 ');
readln(R1); 2
readln (R2); 3
Pi:=3.14;
if (2<3) then
S:= (sqr(3)-sqr(2))* 3.14=15.7;
end.
9 | Автор: ira_butenko97 | 2014-09-21, 19:41   |  Репутация: [ + 4 ]
10. Найти расстояние между двумя точками с заданными координатами (x1,y1) и (x2,y2).
Код программы:
Код

program navi;
uses printer;var x1,y1,x2,y2,x: real;
begin
write('x1,y1: ');readln(x1,y1);
write('x2,y2: ');readln(x2,y2);
x:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(x);
readln;
End.

Контрольный расчет:
Код

program navi;
uses printer;
var x1,y1,x2,y2,x: real;
begin
введите x1,y1
2 2
введите  x2,y2
4 4
√(4-2)^2+(4-2)^2
2.8
end.
10 | Автор: Awesome | 2014-09-22, 01:47 | Изменено: Awesome - Пн, 2014-09-22, 12:46   |  Репутация: [ + 2 ]
8. Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a>b) и углом alpha при большем основании (угол дан в радианах).

Код
program Mr_pozitiv;
var h,rad,a,b,x,s,p,alfa,c,d:real;
begin
writeln ('Введите a');
writeln ('Введите b');
readln (a,b);
writeln ('угол rad');
readln (rad);
alfa:=((rad)*180)/3.14;
x:=(a-b)/2;
h:=x*sin(alfa)/cos(alfa);
c:=sqr(x)+sqr(h);
c:=sqrt(c);
d:=c;
s:=(a+b)*(a-b)/4*sin(alfa)/cos(alfa);
p:=a+b+c+d;
writeln ('Площадь s=',s);
writeln ('Периметр p=',p);
end.
Контрольный расчет:

Код
*****************************************************
*     laba #4  file: Mr_Pozitiv.pas == ver.1.0      *
*                     exercise                      *
*   Malevanny V. A.  Group I-14-1 Date: 22/09/14    *
*****************************************************
Введите a
Введите b
5 2
угол rad
49
alfa=(49*180)/3.14=26
x=(5-2)/2=1.5
h=1.5*sin(26)/cos(26)=0.51
c=1.587
d=1.587
s=(5+2)*(5-2)/4*sin(26)/cos(26)=1.81
p=5+2+5+2=14
Площадь s=1.81
Периметр p=10.1


perfect ;)
11 | Автор: Mr_Pozitiv | 2014-09-22, 13:27 | Изменено: Mr_Pozitiv - Пн, 2014-09-22, 18:15   |  Репутация: [ + 6 ]


perfect ;)
11 | Автор: Mr_Pozitiv | 2014-09-22, 13:27 | Изменено: Mr_Pozitiv - Пн, 2014-09-22, 18:15   |  Репутация: [ + 6 ]
5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей. 
Код
Var a, rv, S, Ro: real;
Begin
     Read(a);
      begin
      S:=a*a*sqrt(3)/4;
      rv:=a*sqrt(3)/6;
      Ro:=a*sqrt(3)/3;
      end;
      writeln (rv, #32, Ro, #32, S);
End.



Selena
12 | Автор: Selena | 2014-09-22, 20:58 | Изменено: Selena - Пн, 2014-09-22, 21:00   |  Репутация: [ + 2 ]
17. Дан радиус окружности, вычислить площадь вписанного треугольника.

Код
Program ProjectX
      {****************************************************
       *       Laba#4 file: stx.pas==ver.7.0                            *       
       *  Plosha trikutnyka za radiusom opysanogo kola *
       *       Shkurenko Anton I-14-1 22.09.14                     *
       ****************************************************};
       var a,b,c,S,R,S1:real;
       begin
          S:=a*b*c;
          R:=a*b*c/4*S;
          S1:=R/S;
writeln('Введите a=') ;
readln(a);
writeln('Введите b=') ;
readln(b);
writeln('Введите c=') ;
readln(c);
writeln('Площа трикутника=',a*b*c);
writeln('Радіус кола=',(a*b*c)/(4*S));
writeln(R);
writeln('Площа вписаного трикутника=',(a*b*c/4*S)/(a*b*c));
read(S1);
end.


Контрольный расчёт

Код
Введите a=
34
Введите b=
45
Введите c=
67
Площа трикутника=102510
Радіус кола=бесконечность
0
Площа вписаного трикутника=0




13 | Автор: stx | 2014-09-23, 01:36 | Изменено: stx - Вт, 2014-09-23, 02:05   |  Репутация: [ + 2 ]
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
Код
Program qwerty159;
var rad,a,b,c,d,S,P :real;
{
**********************************************
*** Laba#4 file: @qwerty159.pas == ver.7.0 ***
***     Olga Kabachok I-14-1 23.09.2014    ***
**********************************************
}
Begin
Writeln ('Введите a, b и rad');
Readln (a, b, rad);
S:=(d*(a+b)*sin(rad))/2;
P:=a+b+c+d;
Writeln ('Площадь', S);
Writeln ('Периметр', P);
end.


Контрольный расчёт
Код
Введите a, b и rad
5 9 40
Площадь0
Периметр14

14 | Автор: @qwerty159 | 2014-09-23, 22:03 | Изменено: @qwerty159 - Пт, 2014-09-26, 20:45   |  Репутация: [ + 0 ]
Задание №2. Найти периметр и площадь треугольника, если даны длины его сторон.


Код
program beznoschenko;
     (************************************************
      *       laba #4 file:beznoschenko.pas==ver.7.0  *                       
      *                    exercise                   *
      *Beznoschenko Valentina I-14-1 24/09/2014       *
      *************************************************)
var a,b,c,q,P,S:real;
     begin
         Writeln('Введите длину a ');        
         Readln(a);
         Writeln('Введите длину b ');     
         Readln(b);
         Writeln('Введите длину c ');     
         Readln(c);      
         P:=a+b+c;
         q:=P/2;
         S:=sqrt(q*(q-a)*(q-b)*(q-c));      
     Writeln('Периметр треугольника=',P);
     Writeln('Площадь треугольника=',S);
     end.


Контрольный расчет:

Код
program beznoschenko;
var a,b,c,q,P,S:real;
begin
       Введите длину a     
       3
       Введите длину b     
       4
       Введите длину c     
       5
       Периметр треугольника=12
       Площадь треугольника=6
end.
15 | Автор: beznoschenko | 2014-09-24, 14:51 | Изменено: beznoschenko - Пт, 2014-09-26, 21:09   |  Репутация: [ + 2 ]
Задание №1.
1. Вводят несколько чисел. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.


Код
program Dimehion;
        var a, b, c, S1, S2: real;
      begin
          writeln('**************************************************');
          writeln('*      laba #4 file: di_4.pas == ver1.0          *');
          writeln('*                   laba #4                      *');
          writeln('*    Bazaliy E.V. Group: I-14-1 Date: 24/09/14   *');
          writeln('**************************************************');
          writeln('Введите числа a, b и c: ');
          readln(a,b,c);
          S1:=(a*a+b*b+c*c)/3;
          S2:=(abs(a)+abs(b)+abs(c))/3;
          writeln('Среднее арифметическое квадратов чисел: ',S1);
          writeln('Среднее арифметическое модулей чисел: ',S2);
      end.


Контрольный расчет:


Код
program Dimehion;
        var a, b, c, S1, S2: real;
      begin
          Введите числа a,b и c:
          10
          -10
          40
          Среднее арифметическое квадратов чисел: 600
          Среднее арифметическое модулей чисел: 20
      end.
16 | Автор: dimeshion | 2014-09-24, 17:35 | Изменено: dimeshion - Ср, 2014-09-24, 18:13   |  Репутация: [ + 2 ]
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).

Код
Program qwerty159;
var rad,a,b,c,d,S,P :real;
{
**********************************************
*** Laba#4 file: @qwerty159.pas == ver.7.0 ***
***     Olga Kabachok I-14-1 23.09.2014    ***
**********************************************
}
Begin
Writeln ('Введите a, b, c, d и rad');
Readln (a, b, c, d, rad);
S:=(d*(a+b)*sin(rad))/2;
P:=a+b+c+d;
Writeln ('Площадь', S);
Writeln ('Периметр', P);
end.


Контрольный расчёт:
Код
Введите a, b, c, d и rad
15 11 7 9 40
Площадь87.1782397760838
Периметр42

17 | Автор: @qwerty159 | 2014-10-01, 20:12   |  Репутация: [ + 0 ]
14. Написать программу вычисления углов треугольника, если заданы координаты вершин. 
Код программы:

Код
program bf_laba4;
var x1,x2,x3,y1,y2,y3,a,b,c,cosA,arccosA,cosB,arccosB,cosC,arccosC:real;
begin

writeln('Введите координаты точек x1, y1, x2, y2, x3, y3:');readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

cosA:=(sqr(a)-sqr(b)-sqr(c))/((-2)*b*c);
arccosA:=abs((ARCTAN(SQRT(1-SQR(cosA))/cosA))*(180/pi));
cosB:=(sqr(b)-sqr(c)-sqr(a))/((-2)*a*c);
arccosB:=abs((ARCTAN(SQRT(1-SQR(cosB))/cosB))*(180/pi));
cosC:=(sqr(c)-sqr(a)-sqr(b))/((-2)*a*b);
arccosC:=abs((ARCTAN(SQRT(1-SQR(cosC))/cosC))*(180/pi));
Writeln('Размеры углов треугольника имеют такие значения: ',arccosA,', ', arccosB,', ',arccosC);
end.


Контрольный расчет:

Код
program bf_laba4;
var x1,x2,x3,y1,y2,y3,a,b,c,cosA,arccosA,cosB,arccosB,cosC,arccosC:real;
begin

Координаты точек: x1=0, y1=0, x2=4, y2=3, x3=4, y3=0
a:=sqrt(sqr(0-4)+sqr(0-3))=5;
b:=sqrt(sqr(4-4)+sqr(3-0))=3;
c:=sqrt(sqr(4-0)+sqr(0-0))=4;

cosA:=(sqr(5)-sqr(3)-sqr(4))/((-2)*b=3*4)=0;
arccosA:=abs((ARCTAN(SQRT(1-SQR(cosA))/cosA))*(180/pi))=90;
cosB:=(sqr(3)-sqr(4)-sqr(5))/((-2)*5*4)=0.8;
arccosB:=abs((ARCTAN(SQRT(1-SQR(cosB))/cosB))*(180/pi))=36.869897645844;
cosC:=(sqr(4)-sqr(5)-sqr(3))/((-2)*5*3)=0.6;
arccosC:=abs((ARCTAN(SQRT(1-SQR(cosC))/cosC))*(180/pi))=53.130102354156;
Размеры углов треугольника имеют такие значения: 90, 36.869897645844, 53.130102354156.
end.


18 | Автор: Bun_Frith | 2014-10-02, 10:25   |  Репутация: [ + 4 ]
Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.

Код программы:
Код
program laba4
{**************************************}
{*  laba#4 file:Bonyasik.pas==ver1.0  *}
{*  Prokopenko Nikol I-14-1 04.10.14  *}
{**************************************};
    var a,b:integer;
     begin
      writeln('Введите число a:');
      readln(a);
      b:=(a div 1000)*(a div 100 mod 10)*(a mod 100 div 10)*(a mod 10);
      writeln('Произведение цифр =',b);
     end.


Контрольный расчет:
Код
Введите число a:
3698
Произведение цифр =1296




http://195.208.237.170/WDE/?shared=Bonyasik/Bonyasik.pas
19 | Автор: Бонясик | 2014-10-04, 18:48 | Изменено: Бонясик - Пн, 2014-10-06, 18:26   |  Репутация: [ + 0 ]
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).

Код
Program qwerty159;
var P,S,alpha,a,b,h,x1,x2,x3:real;
begin
read(a,b,alpha);
x1:=a-b;
x2:=x1/sin(alpha);
x3:=x2*cos(alpha);
P:=a+b+x2+x3;
S:=(a+b)*x3/2;
Writeln('Площадь s=',s:8:3);
Writeln('Периметр p=',p:8:3);
end.


Контрольный расчёт:
Код
7 11 50
Площадь s= 132.401
Периметр p=  47.957


20 | Автор: @qwerty159 | 2014-10-07, 21:26   |  Репутация: [ + 0 ]
20 | Автор: @qwerty159 | 2014-10-07, 21:26   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » КУРС ОПР - ПАСКАЛЬ » Лабораторные работы » Лабораторная работа №4 (Линейные алгоритмы)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск: