Автор: Пользователь скрыл имя, 05 Мая 2012 в 23:45, контрольная работа
Цель: Овладеть навыками организации алгоритмов и программ линейной структуры и их дальнейшей отладки на ПЭВМ в среде Borland Паскаль.
Вариант №17.
Ввести с клавиатуры исходную информацию для вычисления следующих арифметических выражений:
Числовые значения, входящие в выражения, описать как константы.
при значении х= -6.00 y= 5.299935
при значении х= -5.00 y= 5.305836
при значении х= -4.00 y= 5.320175
при значении х= -3.00 y= 5.388485
при значении х= -2.00 y= 5.456145
при значении х= -1.00 y= 5.597269
Невозможно вычислить ctg(x)
при значении х= 1.00 y= 1.442433
при значении х= 2.00 y= 9.928752
при значении х= 3.00 y= 5.937201
при значении х= 4.00 y= -3.541658
при значении х= 5.00 y= 45.752256
при значении х= 6.00 y= 11.145232
при значении х= 7.00 y= -23.612570
при значении х= 8.00 y= 375.822380
при значении х= 9.00 y= 46.012340
при значении х= 10.00 y= -90.939658
Часть 2: Программирование вычислительных процессов циклической структуры на примере вычисления значения функции одной переменной, заданной на интервале
Блок-схема
алгоритма.
Текст программы.
program Zad6_2;
{$N+}
uses crt;
var
x,xn,xk,h:real;
Y:extended;
const
t=1e-9;
BEGIN
clrscr;
write('Введите xn, xk, h через пробел ');
read(xn,xk,h);
x:=xn;
while x<=xk do
begin
{Условие существования функции}
if x<(-2-t) then
begin
Y:=sin(3*sqr(x))+0.5;
writeln('при значении х=',x:6:2,' выполняется условие х<-2 ','Y=',Y:12:6);
end;
if ((x>(-2-t)) and (x<(1-t))) then
begin
if cos(x)>t then {ОДЗ числителя на 0}
begin
if abs(x)>t then
begin
Y:=(exp(ln(sqr(x)+3.3)))/cos(
writeln('при значении х=',x:6:2,' выполняется условие -2<=х<1 ','Y=',Y:12:6);
end
else writeln('x=0 и выражение нет возможности вычилить');
end
else writeln('числитель функции равен 0');
end;
if ((x>(1+t)) and (x<(4-t))) then
begin
Y:=3/exp(ln(x)/4); {Проверка x>0 выполняется усл.сущ.функц.}
writeln('при значении х=',x:6:2,' выполняется условие 1<х<4 ','Y=',Y:12:6);
end;
if x>(4.5+t) then
begin
Y:=(sin(x)-2.3)*ln(x); {Проверка х на не рав. 0 выполняется усл.сущ.функц.}
writeln('при значении х=',x:6:2,' выполняется условие х>=4.5 ','Y=',Y:12:6);
end;
if ((x>(4-t)) and (x<(4.5-t)) or (abs(x-1)<t)) then
begin
writeln('при значении х=',x:6:2,' Функция не существует');
end;
x:=x+h;
end;
readkey;
END.
Результаты работы программы:
Введите xn, xk, h через пробел -10 10 1
при значении х=-10.00 выполняется условие х<-2 Y= -0.499756
при значении х= -9.00 выполняется условие х<-2 Y= -0.390009
при значении х= -8.00 выполняется условие х<-2 Y= 0.145062
при значении х= -7.00 выполняется условие х<-2 Y= 1.109044
при значении х= -6.00 выполняется условие х<-2 Y= 1.426819
при значении х= -5.00 выполняется условие х<-2 Y= 0.112218
при значении х= -4.00 выполняется условие х<-2 Y= -0.268255
при значении х= -3.00 выполняется условие х<-2 Y= 1.456376
числитель функции равен 0
при значении х= -1.00 выполняется условие -2<=х<1 Y= 7.958508
x=0 и выражение нет возможности вычилить
при значении х= 1.00 Функция не существует
при значении х= 2.00 выполняется условие 1<х<4 Y= 2.522689
при значении х= 3.00 выполняется условие 1<х<4 Y= 2.279507
при значении х= 4.00 Функция не существует
при значении х= 5.00 выполняется условие х>=4.5 Y= -5.245036
при значении х= 6.00 выполняется условие х>=4.5 Y= -4.621692
при значении х= 7.00 выполняется условие х>=4.5 Y= -3.197156
при значении х= 8.00 выполняется условие х>=4.5 Y= -2.725403
при значении х= 9.00 выполняется условие х>=4.5 Y= -4.148100
при значении х= 10.00 выполняется условие х>=4.5 Y= -6.548601
Информация о работе Контрольная работа по дисциплине «Компьютерные технологии и программирование»