Помогите пожалуйста
10-11 класс
|
Решить задачу структурным способом записи через блоки
program fwe;
var i,k,m,n:integer;
var a,b,h,c,g,s,s1,x,yk,yn,y1:real;
begin
writeln('Vedite predeli integrirov');
readln(a,b);
writeln('Vedite kol-vo oterzkov');
readln(k);
x:=a;c:=1;s:=0;
h:=(b-a)/k;
m:=k-1;
for i:=1 to m do
begin
x:=x+h;
s:=s+(3+c)*sqrt(x+3/x);
c:=-c;
end;
s1:=sqrt(a+3/a)+sqrt(b+3/b);
s:=h*(s1+s)/3;
writeln('Ickomoe znach ravno', s:9:10);
readln;
begin
writeln('Vedite peredeli integri');
readln(a,b);
writeln('Vedite kol-vo otrezkov');
readln(n);
h:=(b-a)/n;
y1:=0;
x:=a;
for i:=1 to n-1 do
begin
x:=x+h;
y1:=y1+sqrt(x+3/x);
end;
yn:=sqrt(a+3/a);
yk:=sqrt(b+3/b);
s:=((yn+yk)/2+y1)*h;
writeln('Ickomoe zhach ravno',s:9:10);
readln;
end;
end.
program fwe;
function Intg1(a, b: real; k: integer): real;
var
x, h, s, s1: real;
c, m, i: integer;
begin
x := a; c := 1; s := 0;
h := (b - a) / k;
m := k - 1;
for i := 1 to m do
begin
x := x + h;
s := s + (3 + c) * sqrt(x + 3 / x);
c := -c
end;
s1 := sqrt(a + 3 / a) + sqrt(b + 3 / b);
Intg1 := h * (s1 + s) / 3
end;
function Intg2(a, b: real; n: integer): real;
var
x, h, y1, yn, yk: real;
i: integer;
begin
h := (b - a) / n;
y1 := 0;
x := a;
for i := 1 to n - 1 do
begin
x := x + h;
y1 := y1 + sqrt(x + 3 / x)
end;
yn := sqrt(a + 3 / a);
yk := sqrt(b + 3 / b);
Intg2 := ((yn + yk) / 2 + y1) * h
end;
procedure vvod(var a: real; var b: real; var k: integer);
begin
writeln('Vedite predeli integrirov ');
readln(a, b);
writeln('Vedite kol-vo oterzkov ');
readln(k);
end;
var
a, b: real;
n: integer;
begin
vvod(a, b, n);
writeln('Ickomoe znach ravno ', Intg1(a, b, n):9:10);
readln;
vvod(a, b, n);
writeln('Ickomoe zhach ravno ', Intg2(a, b, n):9:10);
readln;
end.
Другие вопросы из категории
столбец которой - значения аргумента, второй - соответствующие значения функции.
F(x) = · х.
Читайте также
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Пожалуйста...Срочно...Завтра крайний срок сдачи...Помогите...
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.