Цитата:
Сообщение от Порфирий
Помогите написать программу, не получается.
|
Это было безумно сложно! Но я всё-таки справился - и как только жив остался?
Код:
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.