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

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

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.
            
vedro-compota's picture

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.  

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

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

  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

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

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

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

засчитано

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