Laba_infa6 (Все ЛР), страница 2
Описание файла
Файл "Laba_infa6" внутри архива находится в папке "Labs". Документ из архива "Все ЛР", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. .
Онлайн просмотр документа "Laba_infa6"
Текст 2 страницы из документа "Laba_infa6"
if (i mod 3 = 0) then
begin
S4_1 := S4_1 + funk (x, k_p4);
if (S4_1 - S4 > error_p4) then
S4 := S4_1;
end;
end;
//отбираем элементы с номером кратным 2, 3, 6 и все остальные
end;
S_p4 := 6 * h_p4 / 840 * (41 * (funk (a_p4, k_p4) + funk(b_p4, k_p4)) + 82 * S1 + 216 * S2 + 27 * S3 + 272 * S4);
it_p4 := n_p4 + 1;
end;
end;
procedure left_out (a_o1, b_o1: double; n1_o1, n2_o1: smallint; it1_o1, it2_o1: word; S_o1: double; h_o1: double; error_o1: double; k_o1: shortint);
var
i: byte;
//переменная-счётчик
begin
for i := 1 to 75 do
write ('-');
writeln;
left (a_o1, b_o1, n1_o1, S_o1, it1_o1, h_o1, error_o1, k_o1);
writeln ('Left rectangles', n1_o1:20, it1_o1:15, S_o1:25:5);
left (a_o1, b_o1, n2_o1, S_o1, it2_o1, h_o1, error_o1, k_o1);
writeln (n2_o1:35, it2_o1:15, S_o1:25:5);
for i := 1 to 75 do
write ('-');
writeln;
end;
procedure trapezoid_out (a_o2, b_o2: double; n1_o2, n2_o2: smallint; it1_o2, it2_o2: word; S_o2: double; h_o2: double; error_o2: double; k_o2: shortint);
var
i: byte;
//переменная-счётчик
begin
trapezoid (a_o2, b_o2, n1_o2, S_o2, it1_o2, h_o2, error_o2, k_o2);
writeln ('Trapezoids', n1_o2:25, it1_o2:15, S_o2:25:5);
trapezoid (a_o2, b_o2, n2_o2, S_o2, it2_o2, h_o2, error_o2, k_o2);
writeln (n2_o2:35, it2_o2:15, S_o2:25:5);
for i := 1 to 75 do
write ('-');
writeln;
end;
procedure cubics_out (a_o3, b_o3: double; n1_o3, n2_o3: smallint; it1_o3, it2_o3: word; S_o3: double; h_o3: double; error_o3: double; k_o3: shortint);
var
i: byte;
//переменнася-счётчик
begin
if (n1_o3 mod 3 = 0) then
begin
cubics (a_o3, b_o3, n1_o3, S_o3, it1_o3, h_o3, error_o3, k_o3);
writeln ('Cubic paraboles', n1_o3:20, it1_o3:15, S_o3:25:5);
end
else
writeln ('Cubic paraboles', '-doesnt work for n not multiple of 3-':43);
if (n2_o3 mod 3 = 0) then
begin
cubics (a_o3, b_o3, n2_o3, S_o3, it2_o3, h_o3, error_o3, k_o3);
writeln (n2_o3:35, it2_o3:15, S_o3:25:5);
end
else
writeln ('-doesnt work for n not multiple of 3-':58);
//проверяем условие выполнимости данного метода для обоих значений n
for i := 1 to 75 do
write ('-');
writeln;
end;
procedure Weddle_out (a_o4, b_o4: double; n1_o4, n2_o4: smallint; it1_o4, it2_o4: word; S_o4: double; h_o4: double; error_o4: double; k_o4: shortint);
var
i: byte;
//переменная-счётчик
begin
left (a_o4, b_o4, n1_o4, S_o4, it1_o4, h_o4, error_o4, k_o4);
if (n1_o4 mod 6 = 0) then
writeln ('Weddle Method', n1_o4:22, it1_o4:15, S_o4:25:5)
else
writeln ('Weddle Method', '-doesnt work for n not multiple of 6-':45);
left (a_o4, b_o4, n2_o4, S_o4, it2_o4, h_o4, error_o4, k_o4);
if (n2_o4 mod 6 = 0) then
writeln (n2_o4:35, it2_o4:15, S_o4:25:5)
else
writeln ('-doesnt work for n not multiple of 6-':58);
//проверяем условие выполнимости данного метода для обоих значений n и выводим результат
for i := 1 to 75 do
write ('-');
writeln;
end;
end.
Скриншоты