Question

Начертить блок схему const q: array [1..12] of string = ( 'сможете ли вы на старом месте работы при к новым правилам? ', 'быстро ли адаптируетесь в новом коллективе ли вы высказывать свое мнение публично? ', 'согласитесь ли вы без колебаний перейти в другое учреждение' + #13#10 + ' на должность с большим окладом? ', 'склонны ли вы отрицать свою вину в допущенной ошибке и искать оправдания? ', 'объясняете ли вы обычно причины своего отказа от чего-либо' + #13#10 + ' истинным мотивами, или стараетесь их завуалировать? ', 'меняете ли вы свой прежний взгляд или убеждения в результате' + #13#10 + ' серьезной дискуссии? ', 'будете ли вы стремиться к правке текста,' + #13#10 + ' если вам не нравиться стиль его изложения? ', 'купите ли вы вещь, которая вам нравится, но не так уж необходима? ', 'можете ли вы изменить свое решение' + #13#10 + ' под влиянием уговоров обаятельного человека? ', 'планируете ли заранее свой отпуск? ', 'всегда ли выполняете данное вами обещание? '); a: array [1..12, boolean] of byte = ( (0, 4), (0, 3), (0, 3), (0, 2), (4, 0), (0, 2), (0, 3), (0, 2), (2, 0), (3, 0), (0, 1), (0, 3)); function choice(na: byte): byte; //подпрограмма которая возвращает результат. var c: char; begin repeat write(q[na]); readln(c); if not(c in ['n', 'y', 'n', 'y', 'н', 'д', 'н', 'д', 'h', 'у', 'h', 'у', '0', '1']) then writeln('неверный ответ. повторите.'); //если пользователь ввел неверный ответ. until c in ['n', 'y', 'n', 'y', 'н', 'д', 'н', 'д', 'h', 'у', 'h', 'у', '0', '1']; choice : = a[na, c in ['y', 'y', 'д', 'д', 'у', 'у', '1']] end; var s, i: byte; begin writeln('тест решительный ли вы человек.'); writeln('один из символов y, y, д, д, 1 означает "да",'); //ответ да. writeln('один из символов n, n, н, н, 0 означает "нет".'); //ответ нет. writeln; s : = 0; for i : = 1 to 12 do s : = s + choice(i); case s of //вывод. 0..9: writeln('вы решительны.'); 10..18: writeln('вы принимаете решения осторожно, но не пасуете перед серьезными проблемами.'); 19..28: writeln('вы достаточно решительный человек.') else writeln('вы принимаете решения единолично.') end; readln end.