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

Primary tabs

Submitted by kuznmax on Mon, 07/18/2022 - 16:06

Forums:

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

У вас есть код:

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f > 5 then
  else
    writeln('Не больше 5!');
 
  readln();
end.

-- который сообщает пользователю, что число не равно нулю (если это действительно так), или в обратной ситуации не делает вообще ничего.

Задача: Перепешите это код в неполной форме (без использования else).

program Project1;
var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f > 5 then
    read();
    writeln('Не больше 5!');

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

vedro-compota

Thu, 07/21/2022 - 18:46

  1. сравнить работу с исходным кодом
  2. неправильное форматирование

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

kuznmax

Mon, 07/25/2022 - 10:25 

program Project1;
var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if not(f > 5) then
    writeln('Не больше 5!');

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

vedro-compota

Tue, 08/02/2022 - 19:52

решение нормальное, попробовать упростить логическое выражение - переписав без not

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

kuznmax

Thu, 08/04/2022 - 11:27 

program Project1;
var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f <> 5 then
    writeln('Не больше 5!');

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

vedro-compota

Tue, 08/23/2022 - 20:21

пока по паузу, подумаю над объяснением

not <= // >
not <    // >=

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

kuznmax

Sat, 03/04/2023 - 15:21 

program Project1;
var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f <= 5 then
    writeln('Не больше 5!');

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

vedro-compota

Sun, 03/05/2023 - 13:07

засчитано

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