Question

Встречено end а ожидалось выражение program f; var x:integer; y:real; k:=1; begin repeat y:=sqrt(sin(x)/k); k:=k+2; until end.

Answer 1

Ответ:

Объяснение:

после слова until должно быть условие. Компилятор ожидает выражение условия, встречает конец программы

правильный вид:

repeat

   y := sqrt(sin(x)/k);

   k+=2;

until (k < 150) // Это пример, внутри скобок должно быть условие, которое необходимо тебе

Answer 2

Из предоставленного вами фрагмента кода я замечаю несколько проблем:

1. Отсутствует объявление переменной "k" перед присваиванием значения. Вам необходимо добавить строку "k: integer;" перед строкой "k:=1;".

2. В операторе "repeat until" отсутствует условие завершения цикла. Вам нужно добавить условие, например, "until k > 10" или любое другое подходящее условие.

3. Отсутствует объявление переменной "x". Вам нужно добавить строку "x: integer;" перед началом цикла.

Исправленный фрагмент кода может выглядеть следующим образом:

pascalCopy code
program f;
var
  x: integer;
  y: real;
  k: integer;
begin
  k := 1;
  x := 0;  // Присвойте переменной "x" начальное значение
  
  repeat
    y := sqrt(sin(x) / k);
    k := k + 2;
    // Добавьте условие завершения цикла
  until k > 10;  // Замените "10" на подходящее условие

  // Добавьте необходимый код после цикла
end.

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