Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Контрольная работа № 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))) {ax= 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.
|