Задача 6 Урок 9

Primary tabs

Submitted by lorn on Sat, 03/19/2022 - 20:43

Forums:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

1)С использованием логической операции and.
2)С вложенными блоками (без and, все опараторы if должны быть в полной форме).
3)Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной. 

var
  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    write ('Max:');
    if ( a > b ) and ( a > c ) then
         writeln(a)
         else
         writeln(c);
        if (b > c) then
          writeln(b)
        else
         writeln(c);

    readln ();
  end.  


var
  a,b,c, max: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    if ( a > b ) then
      if ( a > c ) then
        writeln (a)
      else
        writeln(c)
    else
      if (b > c) then
        writeln(b)
      else
        writeln(c);

    readln ();
  end.


var
  a,b,c, max: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    if ( a > b ) then
       max := a
    else
       max :=b;

    if (max < c) then
    max := c;
    writeln('max:',max);

    readln ();
  end.
  • Log in to post comments
  • 2244 reads
vedro-compota's picture

vedro-compota

Sat, 03/19/2022 - 20:49 

var
  a,b,c: integer;
 
begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);
 
    write ('Max:');
    if ( a > b ) and ( a > c ) then
         writeln(a)
         else
         writeln(c);
        if (b > c) then
          writeln(b)
        else
         writeln(c);
 
    readln ();
  end.

-- неверно, проверить. Остальное засчитано

_____________
матфак вгу и остальная классика =)

lorn

Sat, 03/26/2022 - 14:38 

  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    write ('Max:');
   if (a > b) and (a > c) then
     writeln ('Number A is maximum = ', a);
  if (b > a) and (b > c) then
     writeln ('Number B is maximum = ', b);
  if (c > a) and (c > b) then
     writeln ('Number C is maximum = ', c);


    readln ();
  end.
vedro-compota's picture

vedro-compota

Wed, 03/30/2022 - 19:58

Неоптимательное количество сравнений -- проверить с учетом разбора задачи 11 ("Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5.... ") http://fkn.ktu10.com/?q=node/8539

_____________
матфак вгу и остальная классика =)

lorn

Sat, 04/09/2022 - 17:31 

var
a,b,c: integer;

begin
   writeln('Vvedite chisla A, B, C: ');
   writeln('Vvedite A: ');
   readln (a);
   writeln('Vvedite B: ');
   readln (b);
   writeln('Vvedite C: ');
   readln (c);

   write ('Max:');
  if (a > b) and (a > c) then
    writeln ('Number A is maximum = ', a);
 else if (b > a) and (b > c) then
    writeln ('Number B is maximum = ', b);
 else if (c > a) and (c > b) then
    writeln ('Number C is maximum = ', c);


   readln ();
 end.
vedro-compota's picture

vedro-compota

Sat, 04/09/2022 - 20:27

засчитано

_____________
матфак вгу и остальная классика =)