Найти сумму ряда - Turbo Pascal (33798)

Формулировка задачи:

Задание Найти сумму Y=F1(x)/F2(x) при F1(x)=4x+1/tg(x),F2(x)=0.5/2sin(4x). Где a<=x<=b.а,b,c ввести с клавиатуры. x меняется с шагом,h=c. Сделать два варианта программы с использованием циклов while & repeat. Заранее спасибо)

Код к задаче: «Найти сумму ряда - Turbo Pascal (33798)»

textual
var
    Y,F1,F2,x,h,a,b,c: real;
begin
       Write('a,b,c'); Readln(a,b,c);
       h:=c;
       x:=a;
       While x<=b do begin
               if (sin(x)/cos(x)<>0) and (2*sin(4*x)<>0)
               then begin
               F1:=4x+1/sin(x)/cos(x);
               F2:=0.5/2*sin(4*x);
               end
               else Writeln('На ноль делить нельзя');
               if F2<>0 then 
               Y:=F1/F2
               else Writeln('На ноль делить нельзя');
               Writeln('x=',x,' ','Y=',Y);
               x:=x+h;
       end;
Readln;
end.

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ