Question

ПОМОГИТЕ СДЕЛАТЬ БЛОК СХЕМУ!!! На языке Паскаль 1.Заданы стороны треугольника. Проверить является ли он равнобедренным 2. Найти сумму нечетных чисел в промежутке от 20 до n

Answer 1

№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else 
write('Треугольник неравнобедренный');
end.

БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец

№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.

БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
   если i - нечётное, то
      прибавить к s
вывести  s
конец

Answer 2

Конечно, помогу! Для решения данных задач на языке Паскаль, ниже представлены блок-схемы для каждой из них.

1. Проверка, является ли треугольник равнобедренным:

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

cssCopy code
┌──────────────┐
│ Задать a, b, c │
└──────────────┘
            │
            ▼
       ┌───────────┐
       │ a = b ∨ a = c ∨ b = c │
       └───────────┘
            │
            ▼
   ┌─────────────────┐
   │ Вывести результат │
   └─────────────────┘

2. Найти сумму нечетных чисел в промежутке от 20 до n:

Для решения этой задачи, следует последовательно перебирать числа от 20 до n и прибавлять к сумме только нечетные числа.

cssCopy code
┌──────────────┐
│ Задать n      │
└──────────────┘
       │
       ▼
┌─────────────┐
│ sum = 0     │
└─────────────┘
       │
       ▼
┌─────────────┐
│ i = 20      │
└─────────────┘
       │
       ▼
┌──────────────────┐
│ i > n?           │
└──────────────────┘
       │
      ┌┴┐
      │ │
      ▼ ▼
┌──────────────────┐
│ i mod 2 ≠ 0?     │
└──────────────────┘
       │
      ┌┴┐
      │ │
      ▼ ▼
┌──────────────────┐
│ sum = sum + i    │
└──────────────────┘
       │
      ┌┴┐
      │ │
      ▼ ▼
 ┌───────────────┐
 │ i = i + 1     │
 └───────────────┘
       │
      ┌┴┐
      │ │
      ▼ ▼
  ┌──────────────┐
  │ Вывести sum  │
  └──────────────┘

Убедитесь, что вы правильно реализуете алгоритмы, и блок-схемы помогут вам понять логику задач и составить соответствующий код на языке Паскаль.