Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

нужно решить задачи с 7 по 12 запись всё в паскале

Ответ оставил Гость

7) 

 Program n7;

Uses Crt;

const pi=3.14;

var L,R,S:real;

begin

     clrscr;  

     write(Введите радиус R: );

      readln(R);

      L:=2*pi*R;

      S:=pi*(R*R); 

       writeln(Длина окружности L= ,L);

       writeln(Площадь окружности S= ,S);     

    readkey;

end. 

8)

Program n8;

Uses Crt;

var a,b,S:real;

begin

     clrscr;  

     write(Введите число a: );

     readln(a);

      write(Введите число b: );

      readln(b);

      S:=(a+b)/2 

       writeln(Среднее арифметическое S= ,S);     

    readkey;

end. 

9)

Program n9;

Uses Crt;

var a,b,S:real;

begin

     clrscr;  

     write(Введите число a: );

     readln(a);

      write(Введите число b: );

      readln(b);

      S:=sqrt((a*b)); 

       writeln(Среднее геометрическое S= ,S);     

    readkey;

end. 

10)

Program n10;

Uses Crt;

var a,b:real;

begin

     clrscr;  

     write(Введите число a: );

     readln(a);

      write(Введите число b: );

      readln(b);

        writeln(Сумма квадратов а и b = ,sqr(a)+sqr(b)); 

        writeln(Разность квадратов а и b = ,sqr(a)-sqr(b));   

        writeln(Произведение квадратов а и b = ,sqr(a)*sqr(b));       

         writeln(Частное квадратов а и b = ,sqr(a) / sqr(b));  

    readkey;

end. 

Program n11;

Uses Crt;

var a,b:real;

begin

     clrscr;  

     write(Введите число a: );

     readln(a);

      write(Введите число b: );

      readln(b);

        writeln(Сумма модулей а и b = ,abs(a)+abs(b)); 

        writeln(Разность модулей а и b = ,abs(a)-abs(b));   

        writeln(Произведение модулей  а и b = ,abs(a)*abs(b));       

         writeln(Частное модулей  = ,abs(a) / abs(b));  

    readkey;

end. 

12) 

 Program n12;

Uses Crt;

var a,b,c,P:real;

begin 

     clrscr;  

     write(Введите катет a: );

     readln(a);

      write(Введите катет b: );

      readln(b);

     c:=sqrt((a*a)+(b*b));

     P:=a+b+c;

       writeln(Гипотенуза тругольника= ,с);

       writeln(Периметр  тругольника= ,P);     

    readkey;

end.