Skip to content

Instantly share code, notes, and snippets.

@vertrigo

vertrigo/lab2_fixed.pas

Created September 6, 2012 21:46
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save vertrigo/3660593 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save vertrigo/3660593 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lab2_fixed.pas
Program lab2;
uses Crt;
Const xn=0.2; xk=2.2; h=0.2;
Var x,y:real;
Begin
clrscr;
y:=0; x:=xn;
while x <= xk do
begin
y:= y+2*sqrt(exp(ln(x)*5))*cos(exp(ln(x)*2))/(exp(ln(x)*3)+3*exp(ln(x)*2)-x);
x:= x+h;
end;
writeln('y= ',y:7:4);
readkey;
End.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment