ВВЕРХ
ВНИЗ

Сравнение чисел

На этой странице дано решение примеров If1 - If8 из задачника Абрамяна, в которых рассматриваем вопрос сравнения чисел.

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  N: integer;

begin
  writeln('Ведите целое число:');
  readln(N); 
  { Положительное увеличиваем N на 1: }
  if N > 0 then inc(N);
  writeln('Результат: ', N);
  readln
end.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  N: integer;

begin
  writeln('Ведите целое число:');
  readln(N);
  if N > 0 then N := N + 1 { <== Увеличиваем на 1 }
  else N := N - 2; { <== Уменьшаем N на 2 }
  writeln('Результат: ', N);
  readln
end.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
var
  N: integer;

begin
  writeln('Ведите целое число:');
  readln(N);
  if N > 0 then inc(N) { <== Увеличиваем на 1 }
  else
  if N < 0 then N := N - 2 { <== Уменьшаем на 2 }
  else N := 10; { <== Заменяем на 10 }
  writeln('Результат: ', N);
  readln
end.

If4. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
var
  a, b, c: integer;
  k: byte; { <-- количество положительных чисел }

begin
  writeln('Ведите три целых числа:');
  readln(a, b, c);
  k := 0; { <-- положительных чисел нет (еще не проверяли) }
  { Если число положительное, то увеличиваем k на единицу: } 
  if a > 0 then inc(k); { <== одно положительное число }
  if b > 0 then inc(k); { <== ещё одно положительное число }
  if c > 0 then inc(k); { <== ещё одно положительное число }
  writeln; { <-- пропускаем строчку }
  { Выводим результат в зависимости от k: }
  if k = 0 then writeln('Нет положительных')
  else writeln('Количество положительных: ', k);
  readln
end.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
var
  a, b, c: integer;
  p, m: byte; { количество положительных и отрицательных
              чисел (p и m соответственно) }
begin
  writeln('Ведите три целых числа:');
  readln(a, b, c);
  p := 0; { <-- положительных чисел пока нет }
  m := 0; { <-- отрицательных чисел тоже нет }
  { Если число положительное, то увеличиваем k на единицу: } 
  if a > 0 then inc(p) { <== одно положительное число }
  else
    if a < 0 then inc(m); { <== одно отрицательное число }
  if b > 0 then inc(p) { <== второе положительное число }
  else
    if b < 0 then inc(m); { <== второе отрицательное число }
  if c > 0 then inc(p) { <== третье положительное число }
  else
    if c < 0 then inc(m); { <== третье отрицательное число }
  writeln; { <-- пропускаем строчку }
  { Выводим положительные числа: }
  if p > 0 then writeln('Количество положительных: ', p)
  else writeln('Нет положительных '); 
  if m > 0 then writeln('Количество отрицательных: ', m)
  else writeln('Нет отрицательных');
  readln
end.

If6. Даны два числа. Вывести большее из них.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
var
  a, b: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  if a = b then writeln('Эти числа равны')
  else begin
    write('Большее из этих чисел: ');
    if a < b then writeln(b)
    else writeln(a)
  end;
  readln
end.

If7. Даны два числа. Вывести порядковый номер меньшего из них.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
var
  a, b: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  { Меньшему числу присваиваем его номер: }
  write('Порядковый номер меньшего числа: ');
  if a < b then writeln(1)
  else writeln(2);
  readln
end.

Второй вариант решения:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
var
  a, b: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  { Поскольку логический тип порядковый, для которого False<True,
  а порядок Ord(False)=0, Ord(True)=1, то при ложности a>b будет
  ord(a>b)+1=1, а при истинности получим ord(a>b)+1=2: }
  write('Порядковый номер меньшего числа: ', ord(a > b) + 1);
  readln
end.

If8. Даны два числа. Вывести вначале большее, а затем меньшее из них.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  a, b: real;

begin
  writeln('Введите два числа:');
  readln(a, b);
  writeln('Числа в порядке убывания:');
  if a > b then writeln(a, ' ', b)
  else writeln(b, ' ', a);
  readln
end.



Яндекс.Метрика