var _a, i: integer; begin _for i := 1 to 3 do _begin __writeln('Введите температуру дня: '); __readln(a); __if (a<-10) then ___begin ____writeln('Очень холодно'); ___end __else ___if (a>=-10) and (a<0) then ____begin _____writeln('Холодно'); ____end ___else ____if (a>= 0) and (a<25) then _____begin ______writeln('Тепло'); _____end ____else _____begin ______writeln('Жарко'); _____end _end end.
Немного непонятно: блок-схему написанной программы надо составить или надо нарисовать блок-схему в программе. Если просто блок-схему нарисовать - то вон пользователь с ником "Krab Bark" Вам уже ее нарисовал. А вот если в программе - то в зависимости от компилятора подключаете модуль Graph и рисуете.
Блок-схема программы в Паскаль может выглядеть следующим образом:
┌───────────────┐ │ Начало программы │ └───────────────┘ │ ▼ ┌───────────────┐ │ var │ │ _a, i: integer; │ └───────────────┘ │ ▼ ┌───────────────┐ │ begin │ └───────────────┘ │ ▼ ┌───────────────┐ │ for i := 1 to 3 do │ │ begin │ └───────────────┘ │ ▼ ┌───────────────┐ │ writeln('Введите температуру дня: '); │ │ readln(a); │ │ if (a<-10) then │ │ begin │ │ writeln('Очень холодно'); │ │ end │ │ else │ │ if (a>=-10) and (a<0) then │ │ begin │ │ writeln('Холодно'); │ │ end │ │ else │ │ if (a>= 0) and (a<25) then │ │ begin │ │ writeln('Тепло'); │ │ end │ │ else │ │ begin │ │ writeln('Жарко'); │ │ end │ └───────────────┘ │ ▼ ┌───────────────┐ │ end │ └───────────────┘ │ ▼ ┌───────────────┐ │ Конец программы │ └───────────────┘
Эта блок-схема отображает последовательность действий в программе. В начале объявляются переменные, затем выполняется цикл for, в котором пользователю предлагается ввести температуру дня. Затем с помощью условных операторов if-else программа определяет, какую фразу вывести в зависимости от введенной температуры. После завершения цикла программа заканчивается.
привет. Ты использовал FcEditor? Я второкурсник у нас требуют для отчёта блок схемы программ в паскаль
Krab Bark
Искусственный Интеллект
(301808)
Азамат Айталиев, зря требуют.
"Чтение блок-схемы ничуть не легче чтения самой программы. Блок-схемы затемняют особенности поведения программ, созданных по правилам структурного программирования, и, что более важно, совсем не раскрывают структуру данных."
Э.С.Рэймонд, "Новый словарь хакера"
Я использовал "Автозарисовщик блок-схем" Алексея Ураева
https://almiur.ru/show_prog_9.html
_a, i: integer;
begin
_for i := 1 to 3 do
_begin
__writeln('Введите температуру дня: ');
__readln(a);
__if (a<-10) then
___begin
____writeln('Очень холодно');
___end
__else
___if (a>=-10) and (a<0) then
____begin
_____writeln('Холодно');
____end
___else
____if (a>= 0) and (a<25) then
_____begin
______writeln('Тепло');
_____end
____else
_____begin
______writeln('Жарко');
_____end
_end
end.