Контрольная работа № 1. Линейный, разветвляющийся, циклический вычислительные процессы

1. Рассчитать годовую экономическую эффективность внедрения новой техники по формуле:

Э=A2(32-31), где

31=С+Ен*K1; 32=C+Ен*К2;

А2 - годовой объем продукции, выпускаемой с помощью новой техники;

31,32 - приведенные затраты единицы продукции (СМР) базисной и новой техники;

К1,К2 - удельные капитальные вложения на единицу продукции с помощью базисной и новой техники;

С - себестоимость единицы продукции;

Ен - нормативный коэффициент.

Исходные данные: А2=17Е4 руб.; К1=76 руб.; К2=82 руб.; С=0.72 руб.; Ен=0.15

program z11_1;

uses crt;

const en=0.15;

var k1,k2:integer;

a2,c,z1,z2,eff:real;

begin

clrscr; {Очистить экран - процедура из модуля crt}

writeln ('Введите удельные кап.вложения k1,k2');

{Приглашение к вводу данных}

read (k1,k2);

{Вызов оператора ввода; вводимые числа разделяются пробелом или Enter}

writeln ('Введите годовой объем и себестоимость');

read (a2,c);

z1:=c+en*k1; {Считаем сначала зависимые переменные,}

z2:=c+en*k2;

eff:=a2*(z2-z1); {а затем зависящие от них!}

write ('Эффективность=',eff:8:2);

{Вывод сообщения и затем значения eff в 8 позиций экрана с 2 знаками

в дробной части}

readkey; {Подождать нажатия клавиши – функция из модуля crt}

end.

2. Вычислить значение z:

Исходные данные: a=-3.8; x=2.14.

program z11_2;

var a,x,z:real;

begin

writeln ('Введите A и Z');

read (a,z);

if abs(a)>abs(x) then {использованы стандартные функции}

z:=sin(2*a+x) {abs, sin, cos, sqr, ln}

else if abs(a)=abs(x) then

z:=sin(a)/(cos(a)+sqr(x))

else

z:=ln(5.14+abs(x));

writeln ('Z=',z:7:3);

end.

3. Вычислить таблицу значений функции:

, где

изменяется от 0.2 до 0.8 с шагом 0.1

Печать таблицы оформить с заголовком в виде:

program z11_3;

const c=0.3;

var a,b,d,x,y:real;

begin

d:=0.2; { до цикла - начальное значение d}

writeln ('D':8,'X':8,'Y':8); {печать заголовка таблицы}

while d<=0.801 do begin {начало цикла}

a:=sin (d);

if c>d then b:=c else b:=d; {т.к. нет стандартных функций для max и min,}

if a<b then x:=a else x:=b; {ищем максимум и минимум условным оператором}

if x>=0.5 then

y:=ln(abs({возведение в степень - по формуле}

exp(3*ln(cos(x+pi/4))) {a^x= exp (x*ln(a)}

))

else y:=exp(-x)+1/3;

writeln (d:8:2, x:8:2, y:8:2); {печать строки таблицы}

d:=d+0.1; {перешли В ЦИКЛЕ к следующему d - иначе зацикливание!}

end; {конец цикла}

end.

4. Элементы последовательности вычисляются по правилу:

.

Найти произведение элементов последовательности, больших значения 0.5.

program z11_4;

var i:integer;

d,p:real;

begin

p:=1; {Присвоили произведению начальное значение}

for i:=1 to 10 do begin

d:=2*i*cos(i); {Вычисление элемента последовательности}

if d>0.5 then p:=p*d; {Накопление произведения}

end;

writeln ('P=',p:8:3);

end.