100 . напишите программу, которая содержит тест (pascal) не забудьте сделать заставку. тест "приятно ли с вами общаться? " если человек общителен, то это еще не значит, что с ним приятно разговаривать. есть люди, которые своей общительностью каждому буквально с первых минут разговора. посмотрите внимательно, разве мало вокруг таких людей? а вы приятный собеседник? 1) вы любите больше слушать, чем говорить? 2) вы всегда можете найти тему для разговора, даже с незнакомым человеком? 3) вы всегда внимательно слушаете собеседника? 4) любите ли вы давать советы? 5) если тема разговора вам не интересна, станете ли показывать это собеседнику? 6) раздражаетесь, когда вас не слушают? 7) у вас есть собственное мнение по любому вопросу? 8) если тема разговора вам не знакома, станете ли вы ее развивать? 9) вы любите быть центром внимания? 10) есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями? 11) вы хороший оратор? если вы положительно ответили на вопросы 1,2,3,4,5,6,7,8,9,10,11, то можете засчитывать себе по одному за каждый из них. а теперь посчитаем: 1-3 : трудно сказать, то ли вы молчун, из которого не вытянешь ни слова, то ли настолько общительны, что вас стараются избегать, но факт остается фактом: общаться с вами далеко не всегда приятно, а порой даже тяжело. вам бы следовало над этим задуматься. 4-9 : вы, может быть, и не слишком общительный человек, но почти всегда внимательный и приятный собеседник. вы можете быть и весьма рассеянным, когда не в духе, но не требуете от окружающих в такие минуты особого внимания к вашей персоне. 10--11 : вы, наверное, один из самых приятных собеседников, друзья не могут без вас обойтись
178
301
Ответы на вопрос:
Program test; var a,b,c,d,e,f,g,h,j,k,l,s: integer; begin s: =0; writeln ('тест "приятно ли с вами общаться? " если человек общителен, то это еще не значит, что с ним приятно разговаривать. есть люди, которые своей общительностью каждому буквально с первых минут разговора. посмотрите внимательно, разве мало вокруг таких людей? а вы приятный собеседник? '); writeln ('1) вы любите больше слушать, чем говорить? '); writeln ('1 да, 2 нет'); readln (a); if a=1 then s: =s+1 else s: =s+0; writeln ('2) вы всегда можете найти тему для разговора, даже с незнакомым человеком? '); writeln ('1 да, 2 нет'); readln (b); if b=1 then s: =s+1 else s: =s+0; writeln ('3) вы всегда внимательно слушаете собеседника? '); writeln ('1 да, 2 нет'); readln (c); if c=1 then s: =s+1 then s: =s+0; writeln ('4) любите ли вы давать советы? '); writeln ('1 да, 2 нет'); readln (d); if d=1 then s: =s+1 else s: =s+0; writeln ('5) если тема разговора вам не интересна, станете ли показывать это собеседнику? '); writeln ('1 да, 2 нет'); readln (e); if e=1 then s: =s+1 else s: =s+0; writeln ('6) раздражаетесь, когда вас не слушают? '); writeln ('1 да, 2 нет'); readln (f); if f=1 then s: =s+1 else s: =s+0; writeln ('7) у вас есть собственное мнение по любому вопросу? '); writeln ('1 да, 2 нет'); readln (g); if g=1 then s: =s+1 else s: =s+0; writeln ('8) если тема разговора вам не знакома, станете ли вы ее развивать? '); writeln ('1 да, 2 нет'); readln (h); if g=h then s: =s+1 else s: =s+0; writeln ('9) вы любите быть центром внимания? '); writeln ('1 да, 2 нет'); readln (j); if j=1 then s: =s+1 else s: =s+0; writeln ('10) есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями? '); writeln ('1 да, 2 нет'); readln (k); if k=1 then s: =s+1 else s: =s+0; writeln ('11) вы хороший оратор? '); writeln ('1 да, 2 нет'); readln (l); if l=1 then s: =s+1 else s: =s+0; writeln ('ваши - ', s); writeln ('1-3 : трудно сказать, то ли вы молчун, из которого не вытянешь ни слова, то ли настолько общительны, что вас стараются избегать, но факт остается фактом: общаться с вами далеко не всегда приятно, а порой даже тяжело. вам бы следовало над этим задуматься. 4-9 : вы, может быть, и не слишком общительный человек, но почти всегда внимательный и приятный собеседник. вы можете быть и весьма рассеянным, когда не в духе, но не требуете от окружающих в такие минуты особого внимания к вашей персоне.10-11 : вы, наверное, один из самых приятных собеседников, друзья не могут без вас обойтись'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ele133pan11tov25.06.2021 10:28
-
stanislavcoola01.12.2020 23:36
-
ElizaDevil118.08.2022 11:47
-
Semen91109.12.2020 08:06
-
gubanvitalya23.03.2023 18:50
-
ako9154529.10.2022 22:00
-
SanyaVetka27.05.2022 11:42
-
ibragimgadjizad23.11.2021 20:35
-
долма101.05.2022 20:59
-
Irusik5522.03.2021 14:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.