Question

Даю 100 балловСрочно!!! Информатика Найдите ошибки а) Y := 0; For X := 0.1 to 0.9 do Y := Y + Sіn (X); б) K := 81; Y := 1; For і := 1 to Sqrt (K) do Y := Y * 2; в) K := 0; For і := 9 to 1 do K := K * 2;​

Answer 1

Ответ:

а) Y := 0; For X := 0.1 to 0.9 do Y := Y + Sіn (X);

Y := 0; For X:= 1 to 9 do Y:=Y + Sin(X); параметр целое число

б) K := 81; Y := 1; For і := 1 to Sqrt (K) do Y := Y * 2;

K := 81; Y := 1; For i:= 1 to trunc( (K)) do Y := Y * 2; параметр целое число

в) K := 0; For і := 9 to 1 do K := K * 2;

K := 1; For i:= 9 downto 1 do K := K * 2;

K := 1; For i:= 1 to 9 do K := K * 2;

если К=0, то умножать бесполезно

For і := 9 to 1 цикл не выполнится ни разу

Answer 2

Давайте рассмотрим каждый из ваших фрагментов кода:

а)

pascalCopy code
Y := 0; 
For X := 0.1 to 0.9 do 
  Y := Y + Sin(X);

В этом фрагменте кода ошибок нет. Он вычисляет сумму синусов значений X от 0.1 до 0.9.

б)

pascalCopy code
K := 81; 
Y := 1; 
For i := 1 to Sqrt(K) do 
  Y := Y * 2;

Здесь ошибка в том, что цикл должен пройти от 1 до Sqrt(K), а не включительно. Используйте to вместо downto:

pascalCopy code
For i := 1 to Trunc(Sqrt(K)) do 

в)

pascalCopy code
K := 0; 
For i := 9 to 1 do 
  K := K * 2;

В этом фрагменте кода тоже ошибка. Цикл идет в обратном порядке от 9 до 1, но внутри цикла переменная K умножается на 2, и она уже равна 0. Это приведет к тому, что K останется равным 0. Если вы хотите, чтобы K увеличивалась при каждой итерации, измените на:

pascalCopy code
K := 0; 
For i := 1 to 9 do 
  K := K * 2;

Также стоит уточнить, что в паскале используется sqrt для вычисления квадратного корня, и sin работает с радианами. Если вам нужны градусы, умножьте на (Pi / 180).