Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program lab_3_variant;
- Uses crt;
- Var
- z, phimin, phimax, dphi, phi, a, x: real;
- i,n:integer;
- label 1;
- begin
- clrscr;
- 1:writeln('Ââåäèòå phimin, phimax');
- Readln(phimin,phimax);
- If phimin>=phimax then begin writeln('Íå âåðíî phimin<phimax'); goto 1;
- End;
- Writeln('Ââåäèòå dphi');
- Readln(dphi);
- Writeln('Ââåäèòå a');
- Readln(a);
- n:=trunc((phimax-phimin)/dphi)+1;
- writeln('______________','______________','______________');
- writeln('|Ôóíêöèÿ X ','Àðãóìåíò a ','Ôóíêöèÿ z |');
- writeln('|_____________','______________','_______________|');
- phi:=phimin;
- while phi<phimax+0.1 do begin
- x:=sin(phi)/cos(phi) + a;
- z:=0.5 * x*x*x - ln(abs(x-5))/ln(10);
- writeln(' ', x:5:4, ' ' ,a:2:1, ' ', z:8:6);
- phi:=phi+dphi;
- end;
- end.
Add Comment
Please, Sign In to add comment