Регистрация
kazD01
28.08.2021 23:42
Информатика
Есть ответ 👍

Даны катеты прямоугольного треугольника. составьте программу для нахождения гипотенузы, периметра и площади этого прямоугольного треугольника.

253
476
Посмотреть ответы 2

Ответы на вопрос:

seryakovart
seryakovart
4,7(3 оценок)
Program qq; var a,b: real; begin writeln('vvedite kateti'); readln(a,b); writeln(sqrt(a*a+b*b): 2: 2); readln; readln; end. вроде так, но точно не уверен
agapova2007
agapova2007
4,4(82 оценок)

program fantscrin;

  const n = 15;

  const m = 10;

  var x: array [1..n] of real;

      y: array [1..n] of real;

      z: array [1..n+m] of real;

      i,e_1,e_2,g: integer; s,p,min: real;

     

begin

  for i: =1 to n do

    x[i]: =random(20)-10;

  for i: =1 to m do

    y[i]: =random(10)-5;

   

  for i: =1 to n do

    write(x[i],'   ');

   

  s: =0;  

  for i: =1 to n do

    if(i mod 2 < > 0) then s: =s+x[i];

   

  for i: =1 to n do

    if (x[i] < 0) then

                  begin

                    e_1: =i;

                    break;

                  end;

  for i: =n downto 1 do

    if (x[i] < 0) then

                  begin

                    e_2: =i;

                    break;

                  end;

 

  p: =1;

  for i: =e_1 to e_2 do

    p: =p*x[i];

 

 

  for i: =1 to n do

    z[i]: =x[i];

  for i: =1 to m do

    z[n+i]: =y[i];

 

  min: =z[1];

  g: =1;

  for i: =2 to n+m do

    if (z[i] < min) then  

                    begin

                      min: =z[i];

                      g: =i;

                    end;

  writeln('');

  writeln('1. : ',s);

  writeln('2. : ',p);

  for i: =1 to m do

    write(y[i],'   ');

  writeln('');

  for i: =1 to n+m do

    write(z[i],'   ');

   

  for i: =g to n+m-1 do

    z[i]: =z[i+1];

 

  z[n+m]: =0;

 

  writeln('');

  writeln(g);

  for i: =1 to n+m-1 do

    write(z[i],'   ');

end.

Популярно: Информатика