Помогите написать проги + графические схемы к ним

[maksim97maksim]

Проги надо написать в в ЦИКЛАХ !

[Artsiom]

Как писал один модератор- "включаю телепатор".
На каком языке хоть?

[maksim97maksim]

На ABC Pascal

[Artsiom]

 const
  min=-4;
  max=4;
  h=0.2;
 var
  x, z : real;

function arccos(q : real) : real;
 begin
  Result := 2*ArcTan(Sqrt((1 - q) / (1 + q)))
 end;

begin
 x := min;
  while x <= max do
  begin
   if x > 1 then
   z := Sqrt( Sqr(Ln(x)/Ln(10)) +1)
   else
    if x <= -2 then
    z := 1/x + Exp(2*x)
    else
     z := Sqr(arccos(0.5-x));

   writeln('X =', x:6:2, '; Z(x) =', z:6:2,';');
   x := x + h;
  end;
  readln;
end.

Сие задача №1.
То ли условие не корректно, то ли я чего не понял. При подсчете

z := Sqr(arccos(0.5-x));

программа закрывается. На простом калькуляторе обычно пишется 0Е.

[BDA]

Artsiom, область определения арккосинуса [-1; 1], что, очевидно, не соблюдается в условии задачи. Чтобы программа не закрывалась, нужно добавить несколько проверок в функцию арккосинуса.

[Artsiom]

Поиск выдал сей чудный вариант решения задачи №2

var a,b:integer;
    min,maxd,i:integer;
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
   if (a=0) or (b=0) then
     begin
      write('Axtung! Zero vvodit nelzja!');
      readln;
      halt
     end;

    if a>b then
      min:=b
   else
     min:=a;

   maxd:=1;
      for i:=1 to min do
         if (a mod i = 0) and (b mod i = 0) then
              if i> maxd then
                 maxd:=i;

write('NOD hisel ',a,' and ',b,' raven: ',maxd);
readln;
end.

[Artsiom]

Значит можно вывести 0 с чистым сердцем?
Решение №1

 const
  min=-4;
  max=4;
  h=0.2;
 var
  x, z : real;

function arccos(q : real) : real;
 begin
  if (q>=-1) and (q<=1) then
  Result := 2*ArcTan(Sqrt((1 - q) / (1 + q)))
  else
  Result := 0;
 end;

begin
 x := min;
  while x <= max do
  begin
   if x > 1 then
   z := Sqrt( Sqr(Ln(x)/Ln(10)) +1)
   else
    if x <= -2 then
    z := 1/x + Exp(2*x)
    else
     z := Sqr(arccos(0.5-x));

   writeln('X=', x:5:2, '; Z(x)=', z:5:2,';');
   x := x + h;
  end;
  readln;
end.

[Artsiom]

Ну и задача №3

 var
  k, m, n : integer;
  x, s, q : real;
begin
 write('N=');
 readln(n);
 write('X=');
 readln(x);
 q:=1;
 for k := 1 to n do
 begin
  s:=0;
  for m := 1 to n do
  s := s + (x+k)/m;
  q := q * s*exp(ln(k)*3);
 end;
 writeln('Otvet ', q:6:2);
 readln;
end.