Решаем задачи Абрамян на Паскале. If14

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Решение:

program if14;
var
  A, B, C: Real;
begin
  Write('Введите первое число: ');
  Readln (A);

  Write('Введите второе число: ');
  Readln (B);

  Write('Введите третье число: ');
  Readln (C);

  if A<B then                                         // A<B
   if B<C then
    begin
     Writeln('Наименьшее число: ',A);      // A<B B<C     A<B<C
     Writeln('Наибольшее число: ',C);
    end
   else if (A<C) then
         begin
          Writeln('Наименьшее число: ',A); // A<B B>C A<C B>C>A
          Writeln('Наибольшее число: ',B);
         end
      else
       begin
        Writeln('Наименьшее число: ',C);          // A<B B>C A>C B>A>C
        Writeln('Наибольшее число: ',B);
       end
  else                                                // A>B
   if B>C then
    begin
     Writeln('Наименьшее число: ',C);      // A>B B>C     A>B>C
     Writeln('Наибольшее число: ',A);
    end
   else if A<C then
         begin
          Writeln('Наименьшее число: ',B); // A>B B<C A<C B<A<C
          Writeln('Наибольшее число: ',C);
         end
        else
         begin
          Writeln('Наименьшее число: ',B);       // A>B B<C A>C B<C<A
          Writeln('Наибольшее число: ',A);
         end;
end.

program if14;

var

A, B, C: Real;

begin

Write('Введите первое число: ');

Readln (A);

Write('Введите второе число: ');

Readln (B);

Write('Введите третье число: ');

Readln (C);

if A<B then // A<B

if B<C then

begin

Writeln('Наименьшее число: ',A); // A<B B<C A<B<C

Writeln('Наибольшее число: ',C);

end

else if (A<C) then

begin

Writeln('Наименьшее число: ',A); // A<B B>C A<C B>C>A

Writeln('Наибольшее число: ',B);

end

else

begin

Writeln('Наименьшее число: ',C); // A<B B>C A>C B>A>C

Writeln('Наибольшее число: ',B);

end

else // A>B

if B>C then

begin

Writeln('Наименьшее число: ',C); // A>B B>C A>B>C

Writeln('Наибольшее число: ',A);

end

else if A<C then

begin

Writeln('Наименьшее число: ',B); // A>B B<C A<C B<A<C

Writeln('Наибольшее число: ',C);

end

else

begin

Writeln('Наименьшее число: ',B); // A>B B<C A>C B<C<A

Writeln('Наибольшее число: ',A);

end;

end.

Решение от Евгения:

var
  a, b, c: real;
 
begin
  writeln('Введите 3 числа : ');
  readln(a);
  readln(b);
  readln(c);
  if (a > b) and (a > c) then writeln('Наибольшее ', a);
  if (b > a) and (b > c) then writeln('Наибольшее ', b);
  if (c > b) and (c > a) then writeln('Наибольшее ', c);
  if (a < b) and (a < c) then writeln('Наименьшее ', a);
  if (b < a) and (b < c) then writeln('Наименьшее ', b);
  if (c < b) and (c < a) then writeln('Наименьшее ', c);
  
  readln();
end.

var

a, b, c: real;

begin

writeln('Введите 3 числа : ');

readln(a);

readln(b);

readln(c);

if (a > b) and (a > c) then writeln('Наибольшее ', a);

if (b > a) and (b > c) then writeln('Наибольшее ', b);

if (c > b) and (c > a) then writeln('Наибольшее ', c);

if (a < b) and (a < c) then writeln('Наименьшее ', a);

if (b < a) and (b < c) then writeln('Наименьшее ', b);

if (c < b) and (c < a) then writeln('Наименьшее ', c);

readln();

end.

Другие задачи из раздела If можно посмотреть здесь.

Комментарии 5

Как вариант можно ввести дополнительные переменные:

var
  A, B, C, max, min: Real;
begin
  Write('Введите первое число: ');
  Readln (A);
 
  Write('Введите второе число: ');
  Readln (B);
 
  Write('Введите третье число: ');
  Readln (C);

 min = max = A;

if B > max then max = B
else min = B;

if C > max then max = C
else if (C < min) then min = C

Writeln('Наименьшее число: ',min);      
Writeln('Наибольшее число: ',max);

end.

var

A, B, C, max, min: Real;

begin

Write('Введите первое число: ');

Readln (A);

Write('Введите второе число: ');

Readln (B);

Write('Введите третье число: ');

Readln (C);

min = max = A;

if B > max then max = B

else min = B;

if C > max then max = C

else if (C < min) then min = C

Writeln('Наименьшее число: ',min);

Writeln('Наибольшее число: ',max);

end.

Ответить

uses
  crt;

var
  a, b, c: real;

begin
  writeln('Введите 3 числа : ');
  readln(a);
  readln(b);
  readln(c);
  if (a > b) and (a > c) then writeln('Наибольшее ', a);
  if (b > a) and (b > c) then writeln('Наибольшее ', b);
  if (c > b) and (c > a) then writeln('Наибольшее ', c);
  if (a < b) and (a < c) then writeln('Наименьшее ', a);
  if (b < a) and (b < c) then writeln('Наименьшее ', b);
  if (c < b) and (c < a) then writeln('Наименьшее ', c);
  
  readln();
end.

uses

crt;

var

a, b, c: real;

begin

writeln('Введите 3 числа : ');

readln(a);

readln(b);

readln(c);

if (a > b) and (a > c) then writeln('Наибольшее ', a);

if (b > a) and (b > c) then writeln('Наибольшее ', b);

if (c > b) and (c > a) then writeln('Наибольшее ', c);

if (a < b) and (a < c) then writeln('Наименьшее ', a);

if (b < a) and (b < c) then writeln('Наименьшее ', b);

if (c < b) and (c < a) then writeln('Наименьшее ', c);

readln();

end.

Ответить

Anton

17.03.2017 в 13:46

Как вариант… Добавил в шапку.
——-
Просьба вставлять код через кнопку «Вставить код»

Ответить

Кому интересно на C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace _014_IF
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.WriteLine("Введите 3 числа");
            Console.Write("A:");
            int number_A = Convert.ToInt32(Console.ReadLine());
            Console.Write("B:");
            int number_B = Convert.ToInt32(Console.ReadLine());
            Console.Write("C:");
            int number_C = Convert.ToInt32(Console.ReadLine());

            if (number_A > number_B && number_A > number_C)
            {
                Console.WriteLine("Самое большое число это А = {0}", number_A);
                if (number_B > number_C)
                    Console.WriteLine("Самое маленькое число C = {0}", number_C);
                else
                    Console.WriteLine("Самое маленькое число B = {0}", number_B);
            }
            else if (number_B > number_A && number_B > number_C)
            {
                Console.WriteLine("Самое большое число это B = {0}", number_B);
                if (number_A > number_C)
                    Console.WriteLine("Самое маленькое число C = {0}", number_C);
                else
                    Console.WriteLine("Самое маленькое число A = {0}", number_A);
            }
            else if (number_C > number_A && number_C > number_B)
            {
                Console.WriteLine("Самое большое число это C = {0}", number_C);
                if (number_A > number_B)
                    Console.WriteLine("Самое маленькое число B = {0}", number_B);
                else
                    Console.WriteLine("Самое маленькое число A = {0}", number_A);
            }

        }
    }
}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace _014_IF

{

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Введите 3 числа");

Console.Write("A:");

int number_A = Convert.ToInt32(Console.ReadLine());

Console.Write("B:");

int number_B = Convert.ToInt32(Console.ReadLine());

Console.Write("C:");

int number_C = Convert.ToInt32(Console.ReadLine());

if (number_A > number_B && number_A > number_C)

{

Console.WriteLine("Самое большое число это А = {0}", number_A);

if (number_B > number_C)

Console.WriteLine("Самое маленькое число C = {0}", number_C);

else

Console.WriteLine("Самое маленькое число B = {0}", number_B);

}

else if (number_B > number_A && number_B > number_C)

{

Console.WriteLine("Самое большое число это B = {0}", number_B);

if (number_A > number_C)

Console.WriteLine("Самое маленькое число C = {0}", number_C);

else

Console.WriteLine("Самое маленькое число A = {0}", number_A);

}

else if (number_C > number_A && number_C > number_B)

{

Console.WriteLine("Самое большое число это C = {0}", number_C);

if (number_A > number_B)

Console.WriteLine("Самое маленькое число B = {0}", number_B);

else

Console.WriteLine("Самое маленькое число A = {0}", number_A);

}

Ответить

Михаил

28.05.2019 в 04:45

И на javascript, с учетом отрицательных чисел и методом reduce.

reduce method in javascript
JavaScript

const source = [7, -34, 8, 9, 0, 1, 77, -1, 5, 8]; const min = source.reduce((prev, curr) => { return curr > prev ? curr : prev }, Number.MIN_VALUE); const max = source.reduce((prev, curr) => { return curr < prev ? curr : prev }, Number.MAX_VALUE);

3

const max = source.reduce((prev, curr) => { return curr < prev ? curr : prev }, Number.MAX_VALUE);

Ответить

Решаем задачи Абрамян на Паскале. If14

Комментарии:

Комментарии 5

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