[ PASCAL ] Помогите составить БЛОК-СХЕМУ по решенной задаче!!

Question

Program primer; 
 
const mesyac:array[1..12] of string[10]=('январь','февраль','март','апель', 
'май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); 
Var a,i:integer; 
 
Begin 
 
Writeln('введите номер месяца'); 
 
Readln(a); 
 
Case a of 
 
1..3:writeln('1 квартал'); 
 
4..6:writeln('2 квартал'); 
 
7..9:writeln('3 квартал'); 
 
10..12:writeln('4 квартал'); 
 
End; 
 
for i:=1 to 12 do 
if i=a then writeln(mesyac); 
End.

Анастасия Тришечкина · Accepted Answer

Program primer; 
 
const mesyac:array[1..12] of string[10]=('январь','февраль','март','апель', 
'май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); 
Var a,i:integer; 
Begin 
Writeln('введите номер месяца'); 
Readln(a); 
writeln((a-1) div 3+1, ' квартал'); 
writeln(mesyac[ a ]); 
end. 
 
По-моему, так несколько короче, да и схема попроще: 
 
(begin) -> /input a/ -> /output (a-1) div 3+1/ -> / output mesyac[ a ]/ ->(end)

Слава Калошин · Answer

Хаха, а заместо последнего цикла нельзя просто mesyac[a] - выводить?))))

Татьяна Левинская · Answer

1) ввести номер месяца 
2) если месяц от 1 до 3 
3) вывести 1 квартал 
4) иначе если месяц от 4 до 6 
5) вывести 2 квартал 
... 
10) i=1 
11) если i <= 12 иначе 16 
12) если i=a 
13) вывести mesyac [ i ] 
14) i = i + 1 
15) - > 10 
16) конец