Проектирование программ циклической структуры

[Порфирий]

Проектирование программ циклической структуры

Помогите написать программу, не получается.

 

[Vladimir_S]

Помогите написать программу, не получается.

Это было безумно сложно! Но я всё-таки справился - и как только жив остался?

Const
 a=1.35;
Var
 x,y:real;
 i:Integer;
Begin
 for i:=-6 to 6 do
  if i<>0 then
   begin
    x:=0.5*i;
    if i>0 then y:=a*Sin(x) else y:=a*Ln(-x);
    writeln('x = ',x:4:1,'      Alpha = ',y:6:3);
   end;
 Readln
End.