Новости

Лабораторная работа №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 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.

Модуль Objects содержит основные определения объектов Turbo Vision, включая базовый объект иерархии Turbo Vision TObject, а так же все невидимые элементы Turbo Vision: потоки, коллекции и ресурсы.

Список процедур и функций модуля: НазваниеProc/ FuncКраткое описание Abstract Процедура Обращение к этой процедуре завершает программу с кодом ошибки времени выполнения равным 211.