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

Primary tabs

Submitted by jl8qy9kd_pro on Tue, 07/20/2021 - 23:27

Forums:

http://fkn.ktu10.com/?q=node/8539

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

    {С использованием логической операции and.}
var a, s, d: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if( (a > s) and (a > d) ) then
    writeln('max -', a)
  else if( (s > a) and (s > d) ) then
    writeln('max -', s)
  else if( (d > a) and (d > s) ) then
    writeln('max -', d);
  readln();
end.

     {С вложенными блоками (без and).}
//var a, s, d: integer;
//begin
//  writeln('vvedi 3 chisla: ');
//  readln( a, s, d );
//  if(a > s) then
//    begin
//    if(a > d) then
//       writeln('max -', a)
//    end
//  else
//    if(s > a) then
//      if(s > d) then
//        writeln('max -', s)
//      else
//        writeln('max -', d) ;
//  readln();
//end.


    {Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.}
//var a, s, d, k: integer;
//begin
//  writeln('vvedi 3 chisla: ');
//  readln( a, s, d );
//  if(a > s) then
//    k := a
//  else
//    k := s;
//  if(k > d) then
//    writeln('max -', k)
//  else
//    writeln('max -', d);
//  readln();
//end.
  • Log in to post comments
  • 2760 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 13:09

переделать оформление

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

jl8qy9kd_pro

Mon, 07/26/2021 - 14:02 

{С использованием логической операции and.}
var a, s, d: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if( (a > s) and (a > d) ) then
    writeln('max -', a)
  else 
  if( (s > a) and (s > d) ) then
    writeln('max -', s)
  else  
  if( (d > a) and (d > s) ) then
    writeln('max -', d);
    readln();
end.

 {С вложенными блоками (без and).}
var a, s, d: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if(a > s) then
    begin
    if(a > d) then
       writeln('max -', a)
    end
  else
    if(s > a) then
      if(s > d) then
        writeln('max -', s)
      else
        writeln('max -', d) ;
  readln();
end.


{Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.}
var a, s, d, k: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if(a > s) then
    k := a
  else
    k := s;
  if(k > d) then
    writeln('max -', k)
  else
    writeln('max -', d);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/27/2021 - 18:55

1) проверить для чисел 5 5 5

2) 

 begin
    if(a > d) then
       writeln('max -', a)
    end

-- не сработает для 5 4 7

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

jl8qy9kd_pro

Wed, 07/28/2021 - 11:02 

{С использованием логической операции and.}
var a, s, d: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if( (a > s) and (a > d) or (a = s) and (s = d) and (d = a)) then
    writeln('max -', a)
  else
  if( (s > a) and (s > d) ) then
    writeln('max -', s)
  else
  if( (d > a) and (d > s) ) then
    writeln('max -', d);
    readln();
end. 
{С вложенными блоками (без and)}
var a, s, d: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a  , s  , d );
  if(a > s) then
    if(a > d) then
      writeln('max -', a)
    else
      writeln('max -', d)
  else if(s > d) then
         writeln('max -', s)
       else
         writeln('max -', d);
  readln();
end.

{Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.}
var a, s, d, k: integer;
begin
  writeln('vvedi 3 chisla: ');
  readln( a, s, d );
  if(a > s) then
    k := a
  else
    k := s;
  if(k > d) then
    writeln('max -', k)
  else
    writeln('max -', d);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/01/2021 - 12:53

решение засчитано

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