ГДЗ по информатике 9 класс Семакин, Залогова, Русакова § 13. Программирование ветвлений на с ответами

1. Как программируется на Паскале полное и неполное ветвление?

Полное ветвление в Паскале программируется с помощью оператора «если-то-иначе». Неполное ветвление программируется с помощью оператора «если-то».

2. Что такое составной оператор? В каких случаях составной оператор используется в операторе ветвления?

Составной оператор — это группа операторов, заключенных в фигурные скобки {}. Он используется в операторе ветвления, когда необходимо выполнить несколько операторов либо в ветке «if», либо в «else».

3. Выполните на компьютере все программы, приведенные в данном параграфе.
4. Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.

• Program 1:
var
   a, b, c, smallest: integer;
begin
   write('Enter three numbers: ');
   readln(a, b, c);
   smallest := a;
   if b < smallest then
      smallest := b;
   if c < smallest then
      smallest := c;
   writeln('The smallest number is: ', smallest);
end.
 • Program 2:
less

Copy code
var
   a, b, c, smallest: integer;
begin
   write('Enter three numbers: ');
   readln(a, b, c);
   smallest := a;
   if smallest > b then
      smallest := b;
   if smallest > c then
      smallest := c;
   writeln('The smallest number is: ', smallest);
end.
 • Program 3:
less

Copy code
var
   a, b, c, smallest: integer;
begin
   write('Enter three numbers: ');
   readln(a, b, c);
   smallest := a;
   if b < smallest then
      smallest := b
   else if c < smallest then
      smallest := c;
   writeln('The smallest number is: ', smallest);
end.
5. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

var
   A, B, C, temp: integer;
begin
   write('Enter A, B and C: ');
   readln(A, B, C);
   if A > B then
   begin
      temp := A;
      A := B;
      B := temp;
   end;
   if B > C then
   begin
      temp := B;
      B := C;
      C := temp;
   end;
   if A > B then
   begin
      temp := A;
      A := B;
      B := temp;
   end;
   writeln('The sorted order is: ', A, ', ', B, ', ', C);
end.
6. Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.

var
   a, b, c: real;
   D, x1, x2: real;
begin
   write('Enter the coefficients a, b, and c: ');
   readln(a, b, c);
   D := b * b - 4 * a * c;
   if D < 0 then
      writeln('The equation has no real roots')
   else if D = 0 then
   begin
      x1 := -b / (2 * a);
      writeln('The equation has one root: x = ', x1);
   end
   else
   begin
      x1 := (-b + sqrt(D)) / (2 * a);
      x2 := (-b - sqrt(D)) / (2 * a);
      writeln('The equation has two roots: x1 = ', x1, ', x2 = ', x2);
   end;
end.