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

Primary tabs

Submitted by NikSo on Tue, 05/24/2022 - 13:02

Forums:

Задача 8 Урок 9:

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

С использованием логической операции and.

var a,b,c: integer;
begin
  writeln ('Vvedite a,b,c');
  readln(a,b,c);
  if (a>b) and (a>=c) then
  writeln(a)
    else if (b>=a) and (b>=c) then
    writeln(b)
      else
      writeln(c);
  readln();
end.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
var a,b,c: integer;
begin
  writeln ('Vvedite a,b,c');
  readln(a,b,c);
  if (a>b) then
   if(a>=c) then
    writeln(a);
  if(b>=a) then
   if(b>=c) then
    writeln(b)
     else
     writeln(c);
  readln();
end.

Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

var a, b,c ,d: integer;
begin
  writeln('Vvedite a,b,c');
  readln(a,b,c);
  if (a > b) then
    d := a
  else
    d :=b;
  if (c > d) then
    d := c;
  writeln(d);
 readln();
end.
  • Log in to post comments
  • 1601 reads
vedro-compota's picture

vedro-compota

Wed, 06/01/2022 - 21:16

для первых двух вариантов исправить форматирование

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

NikSo

Thu, 06/02/2022 - 12:36

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

С использованием логической операции and.

var a,b,c: integer;
begin
 writeln ('Vvedite a,b,c');
 readln(a,b,c);
 if (a>b) and (a>=c) then
  writeln(a)
 else if (b>=a) and (b>=c) then
  writeln(b)
 else
  writeln(c);
 readln();
end.
С вложенными блоками (без and, все операторы if должны быть в полной форме).
var a,b,c: integer;
begin
writeln ('Vvedite a,b,c');
readln(a,b,c);
 if (a>b) then
 if(a>=c) then
   writeln(a);
 if(b>=a) then
 if(b>=c) then
   writeln(b)
 else
   writeln(c);
 readln();
end.
vedro-compota's picture

vedro-compota

Sun, 06/05/2022 - 12:16 

var a,b,c: integer;
begin
writeln ('Vvedite a,b,c');
readln(a,b,c);
 if (a>b) then
 if(a>=c) then
   writeln(a);
 if(b>=a) then
 if(b>=c) then
   writeln(b)
 else
   writeln(c);
 readln();
end.
  • 1) проверить форматирование
  • 2) операторы должны быть в полной форме (см. условие)
  • 3) решить задачи на форматирования (из урока 9)

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

NikSo

Wed, 06/08/2022 - 14:41

Пользователь вводит три числа, найдите из них максимальное.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).

var a, b,c ,d: integer;
begin
  writeln('Vvedite a,b,c');
  readln(a,b,c);
  if (a > b) then
  begin
    if (a>c) then
     d:=a
    else
     d:=c
  end
  else
  begin
    if (b>c) then
     d:=b
    else
     d:=c
  end;
  writeln(d);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 21:14

засчитано

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