Операция 'and' не применима к типу KeyValuePair - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Показывает ошибку "Операция 'and' не применима к типу KeyValuePair<real,integer>"
Листинг программы
  1. VAR X, X1, Y1, Y : REAL;
  2. begin
  3. WRITELN ( ‘ВВЕДИ X:’);
  4. READLN (X);
  5. Y:= EXP ((-X+1)*LN (3) ) * SIN (X);
  6. WRITELN (‘ При Х=’, X: 8:3, Y=’, Y: 8:4);
  7. WRITELN (‘ Y11=’, TRUNC (Y): 4, Y22=’, ROUND (Y): 4);
  8. WRITELN (‘ВВЕДИ КООРДИНАТЫ: Х1, Y1’);
  9. READLN (X1, Y1);
  10. WRITELN ((X1=>0) AND (Y1=>0) AND (SQR (X) + SQR (Y) <=1));
  11. END.
Подскажите, пожалуйста, что не так?

Решение задачи: «Операция 'and' не применима к типу KeyValuePair»

textual
Листинг программы
  1. var
  2.   X, X1, Y1, Y: REAL;
  3.  
  4. begin
  5.   WRITELN('ВВЕДИ X: ');
  6.   READLN(X);
  7.   Y := EXP((-X + 1) * LN(3) ) * SIN(X);
  8.   WRITELN(' При Х=', X:8:3, 'Y= ', Y:8:4);
  9.   WRITELN(' Y11= ', TRUNC(Y):4, 'Y22= ', ROUND(Y):4);
  10.   WRITELN('ВВЕДИ КООРДИНАТЫ: Х1, Y1 ');
  11.   READLN(X1, Y1);
  12.   WRITELN((X1>=0) AND (Y1>=0) AND ((SQR(X) + SQR(Y)) <= 1));
  13. end.

Объяснение кода листинга программы

  1. Объявляются переменные X, X1, Y1, Y типа REAL.
  2. Выводится сообщение «ВВЕДИ X: », после чего пользователю предлагается ввести значение переменной X.
  3. Вычисляется значение Y по формуле Y = EXP((-X + 1) LN(3)) SIN(X).
  4. Выводятся значения X и Y с помощью функции WRITELN().
  5. Выводится сообщение «При Х=», после чего выводятся значения X и Y с помощью функций TRUNC() и ROUND() для округления до 4 знаков после запятой.
  6. Выводится сообщение «ВВЕДИ КООРДИНАТЫ: Х1, Y1 », после чего пользователю предлагается ввести значения переменных X1 и Y1.
  7. Вычисляется значение выражения (X1>=0) AND (Y1>=0) AND ((SQR(X) + SQR(Y)) <= 1) с помощью оператора AND.
  8. Программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы