Question

Решите пожалуйста задачи - блок-схемы и Паскаль. 1.Дано число n=25.Если удвоенное число n >чем 60,то увеличить число в 7 раз, в противном случае уменьшить в 10 раз. Вывести полученное число. 2. Даны 2числа, a=70 и число b. Если сумма чисел <250, то первое уменьшить на 15,иначе первое увеличить на 20.вывести первое число

Answer 1

1)

var

  n : integer;

begin

  n:=25;

  if n*2 > 60 then

     writeln(n*7)

  else

     writeln(n*10);

end.

2)

begin

  a:=70;

  readln(b);

  if a+b < 250 then

     a:=a-15

  else

     a:=a*20;

  writeln(a);

end.

Answer 2

Давайте сначала представим блок-схему для каждой из этих задач, а затем я предоставлю вам эквивалентные фрагменты кода на Pascal.

Задача 1:

Блок-схема:

perlCopy code
      |
      V
      n = 25
      |
      V
      |
     /|\
    / | \
   /  |  \
  /   |   \
 /    |    \
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
 \    |    /
  \   |   /
   \  |  /
    \ | /
     \|/
      |
      V
      n * 2 > 60?
      |    |
     / \   |  
    /   \  |
   /     \ |
  |       V
  |       |
  |       |
  |       |
  |      /|\
  |     / | \
  |    /  |  \
  |   /   |   \
  |  /    |    \
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  | |     |     |
  |  \    |    /
  |   \   |   /
  |    \  |  /
  |     \ | /
  |      \|/
  |       |
  |       |
  |       |
  |       |
  |       |
  |       |
  |       |
  |       |
   \      |
    \     |
     \    |
      \   |
       \  |
        \ |
         \|
          |
          V
          n * 7
          |
          V
          Вывести результат

Задача 2:

Блок-схема:

cssCopy code
      |
      V
      a = 70
      b = ?   <---- Ввод b
      |       
      V
      |
     /|\
    / | \
   /  |  \
  /   |   \
 /    |    \
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
|     |     |
 \    |    /
  \   |   /
   \  |  /
    \ | /
     \|/
      |
      V
      a + b < 250?
      |       |
     / \      |
    /   \     |
   /     \    |
  |       |   V
  |       |   |
  |       |   |
  |       |   |
  |      / \  |
  |     /   \ |
  |    /     \|
  |   /      |
  |  |       |
  |  |       |
  |  |       |
  |  |       |
  |  |       |
  |  |       |
  |   \      |
  |    \     |
  |     \    |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |      |   |
  |       \  |
  |        \ |
  |         \|
  |          |
  |          |
  |          |
  |          |
  |          |
   \         |
    \        |
     \       |
      \      |
       \     |
        \    |
         \   |
          \  |
           \ |
            \|
             |
             V
             a - 15
             |
             V
             Вывести a

Теперь давайте представим фрагменты кода на Pascal для этих задач:

Задача 1: Блок-схема

pascalCopy code
program Task1;
var
  n: integer;
begin
  n := 25;
  if n * 2 > 60 then
    n := n * 7
  else
    n := n / 10;
  writeln(n);
end.

Задача 2: Блок-схема

pascalCopy code
program Task2;
var
  a, b: integer;
begin
  a := 70;
  write('Введите значение b: ');
  readln(b);
  if a + b < 250 then
    a := a - 15
  else
    a := a + 20;
  writeln(a);
end.

Вы можете скопировать и вставить код Pascal в среду разработки, чтобы выполнить эти задачи.