program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x-12*x);
writeln('y равен: ', y);
end.
Либо
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*(sin3*x)-12*x;
writeln('y равен: ', y);
end.
Объяснение:
Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно
Вариант по той формуле, как она дана (как я её понял
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x)-12*x;
writeln('y равен: ', y);
end.
А) FOR K:= 1 TO 5.5 DO В цикле нельзя давать нецелые числа должно быть так FOR K:= 1 TO 5 DO
Б) FOR J:= 10 TO -2 DO Тут цикл идет не по прямой а в обратную сторону
а TO обозначает идти вперед, должно было быть так
FOR J:= 10 DOWNTO -2 DO
В) FOR X:= 3 DOWNTO 12 DO Тут же все наоборот цикл идет в обратную сторону а должен идти по прямой
FOR X:= 3 TO 12 DO
Г) FOR Y = 0 TO 7 DO Тут не хватает : без них перед = нельзя делать цикл FOR FOR Y:= 0 TO 7 DO
2. ЗАПОЛНИТЕ В ТАБЛИЦЕ, ЧТО БУДЕТ ВЫВЕДЕНО В РЕЗУЛЬТАТЕ
ВЫПОЛНЕНИЯ ЦИКЛА
1. FOR X:= 5 DOWNTO 2 WRITE('#'); ответ:
2. FOR X:= 1 TO 5 WRITE('#'); ответ:
3. FOR X:= 0 TO 5 WRITE('#'); ответ:
4. FOR X:= 2 TO 7 WRITE('#'); ответ:
5. FOR X:= -5 TO 1 WRITE('#'); ответ:
6. FOR X:= 6 DOWNTO 5 WRITE ('#'); ответ:##
Объяснение:
