Что такое ветвление? * слово, записанное буквами русского латинского алфавита возможна группа слов, соединенных подчеркиванием это набор зарезервированных символов и ключевых слов, используя которые, пользователь создает свои программы. структурная командой, так как исполнение происходит за несколько шагов: проверка условия и выполнение команд на одной из ветвей. 2. Запишите формат не полного ветвления. * If <логическое выражение> then<оператор1> else <оператор2>; Writeln(‘текст’, имя переменной:m:n); If <оператор1> then<оператор2>else <логическое выражение>; Begin <операторы> end; If <логическое выражение> then<оператор1>; 3. Выбрать строки программы, где реализовано полное ветвление: * if х>0 then A:= int(x); if (х+y) =0 then begin A:= 5+x; B:=5+y; end; if h>r then writeln('Да') else writeln('НЕТ'); if (х+y) mod 2 =0 then A:= x+y else begin A:= x-10; B:=y-10; end; if (х+y) mod 11 =0 then begin A:= 5+x; B:=5+y; end else begin A:= x-10; B:=y-10 end; if х>10 then A:=sqrt(x) else A:=sqr(x); 4.Определить результат операции: х:=9; if х>10 then A:=sqrt(x) else A:=sqr(x); * А=9 А= 82 А=81 5. Определить результат операции: х:=1, 3; if х>0 then A:= int(x) else A:=frac(x); * А=3 А=0, 3 А= 1 6. Определить результат операции: х:=5; y:=9 if х А=4 А=3 А=2 7. Определить результат операции: х:=16; y:=6 if (х+y) mod 11 =0 then begin A:= 5+x; B:=5+y end else begin A:= x-10; B:=y-10 end; * А=6 В= - 4 А= 21 В=11 А=11 В=21 8. Определить результат операции: х:= -7, 2; if х<5 then if х<-30 then A:= round(x) else A:= abs(x); * А= 7, 2 А= - 7, 2 А= - 7 А= - 8 А=7 9. Определить результат операции: А:=-3, 24; if А<10 then if А>4 then A:=sqr(int(A)) else A:=abs(frac(A)); * А= - 3 А= - 0, 24 А=9 А= 0, 24 10. Определить результат операции: x:=-5, 1; y:=4 if x<0 then if y>=4 then A:=abs(round(x)) else A:=sqrt(2*y +1); * А= 5 А= - 5 A=3 А=81
Ответы
begin
ReadSeqInteger(4).Where(t -> t.IsEven).Count.Println
end.
№2begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
var D := b * b - 4 * a * c;
if d < 0 then Println('Нет корней')
else
if d = 0 then Println('x =', -b / 2 / a)
else
begin
D := Sqrt(D);
Print('x1 =', (-b - D) / 2 / a);
Println('x2 =', (-b + D) / 2 / a);
end
end.
№3begin
var (x, y) := ReadReal2;
if x = 0 then
if y = 0 then Println('Начало координат')
else Println('Ось Oy')
else
if y = 0 then Println('Ось Ox')
else
if x < 0 then
if y > 0 then Println('II четверть')
else Println('III четверть')
else
if y > 0 then Println('I четверть')
else Println('IV четверть')
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1.
var числа = []; for (let сч = 0; сч < 3; сч++) числа.push(Math.floor(Math.random() * 100)); var чётных = 0; числа.forEach(function (зн) { if (зн % 2 == 0) чётных++; }); alert(чётных);
2.
var a = prompt("a:"), b = prompt("b:"), c = prompt("c:");
var d = Math.pow(b, 2) - 4 * a * c;
if (d < 0) alert("Нету решений.");
else if (d == 0) alert("x = " + (-b / 2 / a));
else alert("x_1 = " + ((-b - Math.sqrt(d)) / 2 / a) + "; x_2 = " + ((-b+ Math.sqrt(d)) / 2 / a));
3.
var x = prompt("x:"), y = prompt("y:");
if (x > 0) {
if (y > 0) alert("I"); else if (y < 0) alert("IV"); else alert("На оси Ox");
}
else if (x < 0) {
if (y > 0) alert("II"); else if (y < 0) alert("III"); else alert("На оси Ox");
}
else if (y == 0) alert("В центре координат");
else alert("На оси Oy");