Составить блок схему и программу vbasic для вычисления f(x,y)=x^3/1+x^2+y^4 x=2 y=1 ответ=1,16 составить макрос который построит график шаг 1 10 точек сделать кнопку в которую вставить макрос
Сначала производится инициализация массива, в конце - выводится на печать n.
Содержательная часть программы - эта:
n := ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = ves[1]
End;
Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean; begin while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end; Result:=Чис=1 end;
begin for var Знаменатель:=2 to 7 do for var Числитель:=1 to Знаменатель-1 do if ДробьНесократима(Числитель,Знаменатель) then Write(Числитель,'/',Знаменатель,' '); Writeln end.
Сначала производится инициализация массива, в конце - выводится на печать n.
Содержательная часть программы - эта:
n := ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = ves[1]
End;
Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.
ответ: 25
// Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7