Question

Pascal 1.Вводится 4-значное число из его цифр получить два двухзначных числа.Первое состоит из 1 и 3 цифр исходного числа, второе из 2 й и 4-й.Например 3765>36 и 752.Cоставить программу расчета значения функции:Z=tg x-|2sin 2y+7.8 cos x |+ 10 При любых значениях x= и y= результат вывести в x= и y= z=

Answer 1

1)

var

 n,a,b:integer;

begin

 repeat

   readln(n);

 until (n>999) and (n<10000);

 a:=n div 1000 *10 + n mod 100 div 10;

 b:=n div 100 mod 10 *10 + n mod 10;

 writeln(a,' ',b);

end.

2)

var

 x,y,z:real;

begin

 readln(x,y);

 z:=tan(x*pi/180)-abs(2*sin(2*y*pi/180)+7.8*cos(x*pi/180))+10;

 writeln(z);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!

Answer 2

Конечно, давай сначала создадим программу на Pascal для выполнения данной задачи. Программа будет принимать 4-значное число, выделять из него два двузначных числа, а затем рассчитывать значение функции Z по заданным формулам. Вот пример кода:

program CalculateZ;

var
  inputNumber, num1, num2: integer;
  x, y, z: real;

begin
  // Вводим 4-значное число
  write('Введите 4-значное число: ');
  readln(inputNumber);

// Получаем два двузначных числа
  num1 := inputNumber div 100; // первые две цифры
  num2 := inputNumber mod 100; // последние две цифры

// Выводим полученные числа
  writeln('Первое двузначное число: ', num1);
  writeln('Второе двузначное число: ', num2);

// Рассчитываем значение функции Z
  x := num1;
  y := num2;
  z := tan(x) + y - abs(2 * sin(2 * y) + 7.8 * cos(x)) + 10;

// Выводим результат
  writeln('При x = ', x, ' и y = ', y, ' значение функции Z = ', z);

end.

Обрати внимание, что данная программа использует встроенные функции `tan`, `sin`, `cos` и `abs` для вычислений. Не забывай, что результаты тригонометрических функций в Pascal возвращаются в радианах.

Если у тебя есть дополнительные вопросы или что-то непонятно, дай знать!