Как составить программу сортировки по возрастанию значений трех переменных а в с

Как составить программу сортировки по возрастанию значений трех переменных а в с


Учебник по Информатике 9 класс Семакин

Содержание

Составьте программу сортировки по возрастанию значений трех переменных: A, B, C.
   

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.

Нашли ошибку?

Войдите:

Источник

Var
A,B,C:integer;
Begin

WriteLn(Введите три числа);
ReadLn(A,B,C);
if (A<=B)and(B<=C) then Write(A, ,B, ,C)
else if (A<=C)and(C<=B) then Write(A, ,C, ,B)
else if (B<=A)and(A<=C) then Write(B, ,A, ,C)
else if (B<=C)and(C<=A) then Write(B, ,C, ,A)
else if (C<=A)and(A<=B) then Write(C, ,A, ,B)
else if (C<=B)and(B<=A) then Write(C, ,B, ,A)
End.

Var a,b,c,D:real;
Begin
Write(a = );ReadLn(a);
Write(b = );ReadLn(b);
Write(c = );ReadLn(c);
D:=b*b-4*a*c;
if D>=0 then
   Begin
   WriteLn(x = ,(-b-sqrt(D))/(2*a));
   WriteLn(x = ,(-b+sqrt(D))/(2*a));
   End
else WriteLn(Действительных корней нет)
End.

Оцени ответ

Источник

Перейти к контенту

Сайт учителя информатики. Технологические карты уроков, Подготовка к ОГЭ и ЕГЭ, полезный материал и многое другое.

Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

Информатика 9 класс Семакин ФГОС

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

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.

Источник

Составьте программу сортировки по возрастанию значений трех переменных : A B C.

Плииииз, умоляю.

Если вам необходимо получить ответ на вопрос Составьте программу сортировки по возрастанию значений трех переменных : A B C?, относящийся
к уровню подготовки учащихся 5 – 9 классов, вы открыли нужную страницу.
В категории Информатика вы также найдете ответы на похожие вопросы по
интересующей теме, с помощью автоматического «умного» поиска. Если после
ознакомления со всеми вариантами ответа у вас остались сомнения, или
полученная информация не полностью освещает тематику, создайте свой вопрос с
помощью кнопки, которая находится вверху страницы, или обсудите вопрос с
посетителями этой страницы.

Источник

procedure swap(var a, b: real);
var t: real;
begin
     t := a;
     a := b;
     b := t;
end;

var a, b, c: real;
begin
     readln(a, b, c);
     if (a > b) then swap(a, b);
     if (b > c) then swap(b, c);
     if (a > b) then swap(a, b);
     writeln(a, ‘ ‘, b, ‘ ‘, c);
end.
===========================
Без процедур:

var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ‘ ‘, b, ‘ ‘, c);
end.

Источник

Добавить комментарий