23 и 26 января Практическая работа

 Пример 1Наберите программу для задачи b=2a, введите значения величины А

// фам 1

var   a,b:real;

   begin

   writeln('введите а');

read(a);

     b:=a*2;

     writeln('результат=',b) ;    end.

 

Пример 2 Наберите программу для задачи b=2a+3a, введите значения величины a

// фам 2

var   a,b:real;

   begin

   writeln('введите а'); read(a);

       _:=a*2+a*3;

     writeln('результат=',_) ;    end.

 

Пример 3 Наберите программу для задачи b=4a:3a, введите значения величины А

// фам 3

var   a,b:real;

begin

writeln('введите а'); read(a);

_:=(a*4)/(a*3);

writeln('результат=',_) ;end.

 

Пример 4 Дана сторона квадрата, найти его периметр.

// фам 4

var   a,Р:real;

   begin

writeln('введите а');     read(a);

     Р:=___;

     writeln('результат=',P) ;

    end.

 

Пример 5 Дана сторона квадрата, найти его площадь.

// фам 5

var   a, s:real;

   begin

writeln('введите а');     read(a);

     s:=_____;

     writeln('результат=',s) ;

    end.

 

Пример 6 Даны стороны прямоугольника а и b. Найти периметр прямоугольника

// фам 6

var   a, b, p:real;

   begin

writeln('введите а и b ');     read(a,b);

     p:=_________;

     writeln('результат=',p) ;

    end.

Пример 7 // фам 7

Даны стороны прямоугольника а и b. Найти площадь  прямоугольника s

 

Пример 8// фам 8

Даны два числа а и b. Найти их среднее арифметическое sr

 

Пример 9// фам9

Ввести с клавиатуры цену 1 кг яблок-величина  cen, куплено 3кг. Cколько потрачено денег -величина  den.

 

Пример 10 // фам 10

Ввести с клавиатуры цену 1 кг яблок-величина  cen, вес купленных яблок,  ввести с клавиатуры kg. Cколько потрачено денег -величина  den.