Лабораторная работа №6
Вариант – 18
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
С Repeat-Until:
var c, b, a : real;
s, h, xk : real;
n : integer;
begin
writeln('Input a,b,c');
readln(a,b,c);
writeln(' Input n');
Readln(n);
h:=(b-a)/n;
s:=(sin(a)/sqrt(c+a*a*a)+sin(b)/sqrt(c+b*b*b))/2;
N:=n-1;
repeat
xk:=a+n*h;
s:=s+sin(xk)/sqrt(c+xk*xk*xk);
n:=n-1;
until n<=0;
writeln(s);
Readln;
end.
С While:
var c, b, a : real;
s, h, xk : real;
k,n : integer;
begin
writeln('Input a,b,c');
readln(a,b,c);
writeln(' Input n');
Readln(n);
h:=(b-a)/n;
s:=(sin(a)/sqrt(c+a*a*a)+sin(b)/sqrt(c+b*b*b))/2;
k:=n;
n:=n-1;
while (N>=1) and (n
begin
xk:=a+n*h;
s:=s+sin(xk)/sqrt(c+xk*xk*xk);
n:=n-1;
end;
writeln(s);
Readln;
end.
|
Главная
Каталог файлов
