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









 

1. Как программируется на Паскале полное и неполное ветвление?
2. Что такое составной оператор? В каких случаях составной оператор используется в операторе ветвления?
3. Выполните на компьютере все программы, приведенные в данном параграфе.
4. Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.
5. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.
6. Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.

 

1. Например с помощью оператора if:

Неполное if {условие} then do {...}

Полное

if {условие} then do {...}

     else do противном случае}

2.

Составной оператор - конструкция языка программирования, позволяющая объединить несколько операторов в один. Примеры: в Паскале begin...end, в C/C++ - открывающая и закрывающая фигурные скобки, в Питоне - отступы.

В операторе ветвления используется, если в ветку "то" или "иначе" нужно записать несколько команд.

4. var

  a, b, c, m : integer;

begin

  read (a, b, c);

  m := a;

  if b < m then m := b;

  if c < m then m := c;

  writeln (m);

end.

 

var

  a : array [1..3] of integer;

  i, m : integer;

begin

  m := a[1];

  for i := 2 to 3 do

    if a[i] < m then m := a[i];

  writeln (m);

end.

 

var

  a, b, c : integer;

begin

  read (a, b, c);

  if (a <= b) and (a <= c) then writeln (a)

  else if (b <= c) and (b <= a)  then writeln (b)

  else writeln (c);

end.

5. Program SORTING;
var A, B, C, D: real;
begin
readln(A,B,C);
if A>B
   then
      if B>C
      then begin D:=A; A:=C; C:=D end
      else
         if C<A
         then begin D:=A; A:=B; B:=C; C:=D end
         else begin D:=B; B:=A; A:=D end
   else
      if C<A
      then begin D:=B; B:=A; A:=C; C:=D end
      else
         if C<B
         then begin D:=B; B:=C; C:=D end;
writeln(A,', ',B,', ',C)
end.

6. Program z_6;
var a, b, c, D, x1, x2: real;
begin
readln(a, b, c);
D:=sqr(b) - 4*a*c;
writeln ('D=', D);
if D<0 then writeln ('Корней нет')
else if D=0 then
   begin
      x1:=(-b)/(2*a);
      writeln ('x=', x1)
      end
      else
   begin
      x1:=(-b+sqrt(D))/(2*a);
      x2:=(-b-sqrt(D))/(2*a);
      writeln ('x1='x1, ' x2=', x2)
      end
end.

Смотрите также: