Алгоритмы программ

Задание 1. Составить программу, которая вычисляет выражения: а) ;

б) ,  x=2;     в) A_j+1=(j²-1)A_j+A_j-1,   A₀=1,  A₁=0,  j=1,2,3,4,5

в) составить логическое выражение, принимающее значение ИСТИНА, если точка с координатами (x, y) находится внутри фигуры, ограниченной справа линией y=3-x, а слева прямыми y=-x и y=x. Вычислить значения выражения для координат точек:{[1,0.5],[0.5,-1],[0.5,1],[1.5,2]}.

Блок-схема.

 

 

 

  
 
 
 
 

 

 Да Нет

 

Программа

{Автор: Жилкин А.А.}

{Группа: ПИЭ-102з}

{Тема: Простейшие программы}

program variant7_1;

const pi=3.14;

var   rez_a,rez_b,x,y           :real;

      a0,a1,a2,a3,a4,a5,a6      :integer; 

begin

  rez_a:=2.16*sin(pi/6)/cos(pi/6)+(1-exp(1.6))/(exp(0.8)-exp(-0.8)/2)+exp(1/7*ln(3));

  writeln(rez_a:6:4);

  writeln('x=2');

  rez_b:=sqr(sin(abs(x)))+cos(abs(x-1/4))+exp(x);

  writeln('rez_b=',rez_b);

  a0:=1;

  a1:=0;

  a2:=1;

  a3:=(2*2-1)*a2+a1;

  a4:=(3*3-1)*a3+a2;

  a5:=(4*4-1)*a4+a3;

  a6:=(5*5-1)*a5+a4;

  writeln('a0=',a0,'  a1=',a1,'  a2=',a2,'  a3=',a3,'  a4=',a4,'   a5=',a5,'  a6=',a6);

  writeln('ввод x,y');

  readln(x,y);

  if (sqr(y)<(3-x)) and (y>-x) and (y<x) then writeln('истина') else writeln('ложь');

  readln;

end. 

 

Тесты:

0.4406

X=2

Rez_b=1.9689124217

A0=1 a1=0 a2=1 a3=3 a4=25 a5=378   a6=9097

Ввести x,y   [1, 0.5]  истина

            [0.5, -1] ложь

            [0.5, 1]  ложь

            [1.5, 2]  ложь