Запишите оператор для: 1)Вычисления средних арифметических x1 и x2 2)уменьшения **...

Question

Запишите оператор для: 1)Вычисления средних арифметических x1 и x2 2)уменьшения на единицу значения переменной k 3)Увеличения на единицу значения переменной i 4) вычисления стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей 2.Запишите раздел описания переменных необходимых для вычисления: а) значения функции y=х(в квадрате) б) площади прямоугольника в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

Answer 1

1.

1) s := (x1+x2)/2

2) dec(k) или k:=k-1

3) inc(i) или i:=i+1

4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 

 

2.

а) значения функции y=х(в квадрате)

var y,x: real

 

б) площади прямоугольника

var a,b,s: real

 

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv:integer; st,so,sum: real

 

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

var kvt,kvr,kvk:integer; st,sr,sk,sum: real

Answer 2

1) a:=(x1+x2)/2

2)k:=k-1;

3)inc(i); (или i:=i+1);