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

Цитата:

Сообщение от Порфирий (Сообщение 2464776)

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

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

Код:

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.