begin var (x,y,z):=ReadInteger3('Введите x,y,z:'); var (a1,a2,a3):=ReadInteger3('Введите максимальные значения t1,t2,t3:'); var k:=0; for var t1:=1 to a1 do for var t2:=1 to a2 do for var t3:=1 to a3 do if x*t1-y*t2-z*t3=0 then k+=1; if k=0 then Writeln('Решений нет') else begin Writeln('Найдено решений: ',k); if ReadInteger('Выводить решения? (1-да):')=1 then for var t1:=1 to a1 do for var t2:=1 to a2 do for var t3:=1 to a3 do if x*t1-y*t2-z*t3=0 then Writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0') end; Writeln('Работа программы завершена') end.
*** Пример работы с программой ***
Введите x,y,z: 3 5 7 Введите максимальные значения t1,t2,t3: 10 10 10 Найдено решений: 3 Выводить решения? (1-да): 1 3x4-5x1-7x1=0 3x8-5x2-7x2=0 3x9-5x4-7x1=0 Работа программы завершена
Достоверность оценивается "доверительным коэффициентом", который вычисляется как
, где P - показатель, который мы оцениваем, а - средняя ошибка.
Средняя ошибка вычисляется как
где n - количество студентов факультета
Для первой группы средняя ошибка равна 1,143, для второй группы равна 1,775.
Тогда доверительный коэффициент для первой группы равен 3,762, а для второй - 2, 197.
Коэффициент 2 и выше соответствует достоверному уровню оценки.
Для более полной информации читать https://studfiles.net/preview/5243184/page:2/
*** Текст программы на PascalABC.NET ***
begin
var (x,y,z):=ReadInteger3('Введите x,y,z:');
var (a1,a2,a3):=ReadInteger3('Введите максимальные значения t1,t2,t3:');
var k:=0;
for var t1:=1 to a1 do
for var t2:=1 to a2 do
for var t3:=1 to a3 do
if x*t1-y*t2-z*t3=0 then k+=1;
if k=0 then Writeln('Решений нет')
else
begin
Writeln('Найдено решений: ',k);
if ReadInteger('Выводить решения? (1-да):')=1 then
for var t1:=1 to a1 do
for var t2:=1 to a2 do
for var t3:=1 to a3 do
if x*t1-y*t2-z*t3=0 then
Writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')
end;
Writeln('Работа программы завершена')
end.
*** Пример работы с программой ***
Введите x,y,z: 3 5 7
Введите максимальные значения t1,t2,t3: 10 10 10
Найдено решений: 3
Выводить решения? (1-да): 1
3x4-5x1-7x1=0
3x8-5x2-7x2=0
3x9-5x4-7x1=0
Работа программы завершена