Question

Где тут ошибка? program dialog_test; var a:string;k:integer; begin writeln('ответьте "да" или "нет" на следующие вопросы'); writeln('1.Уважайте ли Вы дружбу?'); read(a); K:=0; if a='да' then k:=k+1; writeln('2.Привлекает ли вас новое?'); read(a); if a='нет' then k:=k+1; writeln ('3.Притворяйтесь ли вы довольным без всякой на то ричины?'); read(a); if a='нет' then k:=k+1; writeln('4.Меняли ли вы в детстве более 3 раз выбор своей профессии?'); read(a); if a='нет' then k:=k+1; writeln('5.Предпочитайте ли вы старую одежду новой?'); read(a); if a='нет' then k:=k+1; writeln('6.Лишались ли вы уверенности в себе, если вам предстояло решить трудную задачу'); read(a); if a='да' then k:=k+1; writeln ('7.Коллекционируйте ли вы что-либо'); read(a); if a='да' then k:=k+1; writeln('8.Часто ли вы меняете свои планы в последний момент?'); read(a); if a='нет' then k:=k+1; if k>=6 then writeln ('Вы уравновешенный человек'); if(k>=3) and (k<6) then writeln ('у вас изменчивое настроение.Не забывайте,что только проявляя постоянство и настойчивость , Вы будете преуспевать в жизни.'); if k<3 then writeln (' Внимание ! Почему вы не верите в себя? будьте более оптимистичны'); end.

Answer 1

Рабочая прога в приложении==============

Answer 2

Код, который вы предоставили, содержит несколько ошибок:

1. В Pascal символ "greater than" (">") используется для сравнения чисел, а не знак "больше или равно" (">="). Для "больше или равно" нужно использовать символ ">=".

2. Ваш код не обеспечивает корректный ввод ответов на вопросы. Он пытается читать строку в переменную "a", но не дает пользователю ввести свой ответ. Для этого вам нужно использовать процедуру "readln" вместо "read", чтобы прочитать ответы с новой строки.

3. В тексте вывода при оценке результатов вы используете нерусские символы "">="" и "<". Перепишите их на "больше или равно" (">=") и "меньше" ("<") соответственно.

Исправленный код:

pascalCopy code
program dialog_test;
var
  a: string;
  k: integer;
begin
  writeln('ответьте "да" или "нет" на следующие вопросы');
  writeln('1.Уважайте ли Вы дружбу?');
  readln(a);
  k := 0;
  if a = 'да' then
    k := k + 1;
    
  writeln('2.Привлекает ли вас новое?');
  readln(a);
  if a = 'нет' then
    k := k + 1;
    
  writeln('3.Притворяйтесь ли вы довольным без всякой на то причины?');
  readln(a);
  if a = 'нет' then
    k := k + 1;
    
  writeln('4.Меняли ли вы в детстве более 3 раз выбор своей профессии?');
  readln(a);
  if a = 'нет' then
    k := k + 1;
    
  writeln('5.Предпочитаете ли вы старую одежду новой?');
  readln(a);
  if a = 'нет' then
    k := k + 1;
    
  writeln('6.Лишались ли вы уверенности в себе, если вам предстояло решить трудную задачу');
  readln(a);
  if a = 'да' then
    k := k + 1;
    
  writeln('7.Коллекционируете ли вы что-либо');
  readln(a);
  if a = 'да' then
    k := k + 1;
    
  writeln('8.Часто ли вы меняете свои планы в последний момент?');
  readln(a);
  if a = 'нет' then
    k := k + 1;
    
  if k >= 6 then
    writeln('Вы уравновешенный человек');
  if (k >= 3) and (k < 6) then
    writeln('У вас изменчивое настроение. Не забывайте, что только проявляя постоянство и настойчивость, вы будете преуспевать в жизни.');
  if k < 3 then
    writeln('Внимание! Почему вы не верите в себя? Будьте более оптимистичны');
end.

Теперь код должен корректно работать и принимать ответы пользователя на вопросы.