Question

1. Составьте программу, которая запрашивает с клавиатуры значения x и y. Если x>y то печатается разность x-y, в противном случае y-x. 2. Напишите программу, которая запрашивает с клавиатуры a, b, c. Если a>b+c, то на печать выводится a. В другом случае выводится b+c.3. Напишите программу, которая запрашивает с клавиатуры значения k и x. Если k=1, то вычисляется значение sin(x), если k=2, то вычисляется значение cos(x).4. Напишите программу, которая запрашивает значения p и m. Если p>m2 , то печатается p, в противном случае m2.СДЕЛАЙТЕ В ПАСКАЛЕ)И МОЖЕТЕ МЕНЯ НАУЧИТЬ ?  

Answer 1

//Pascal
//1)
var x, y: integer;
begin
write('Введите x y: ');
read(x, y);
if x > y then
writeln(x - y)
else
 writeln(y - x);
end.

//2)
var a, b, c: integer;
begin
write('Введите a b c: ');
read(a, b, c);
if (a > (b + c)) then
writeln(a)
else
writeln(b + c);
end.

//3)
var x, k: integer;
begin
write('Введите x k: ');
read(x, k);
if k = 1 then
writeln(sin(x))
else
if k = 2 then
writeln(cos(x))
else
writeln('k должен быть равен 1 или 2.');
end.

//4)
var p, m: integer;
begin
  write('Введите p, m: ');
  read(p, m);
  if p > m * 2 then
    writeln(p)
  else
    writeln(m * 2);
end.

Answer 2

Конечно, я могу помочь вам с написанием этих программ на языке Pascal. Ниже приведены листинги программ для каждой из задач:

Программа 1:

pascalCopy code
program Program1;
var
  x, y: Integer;
begin
  Write('Введите значение x: ');
  Readln(x);
  Write('Введите значение y: ');
  Readln(y);

  if x > y then
    writeln('Разность x - y: ', x - y)
  else
    writeln('Разность y - x: ', y - x);
end.

Программа 2:

pascalCopy code
program Program2;
var
  a, b, c: Integer;
begin
  Write('Введите значение a: ');
  Readln(a);
  Write('Введите значение b: ');
  Readln(b);
  Write('Введите значение c: ');
  Readln(c);

  if a > b + c then
    writeln('Значение a: ', a)
  else
    writeln('Сумма b + c: ', b + c);
end.

Программа 3:

pascalCopy code
program Program3;
var
  k: Integer;
  x: Real;
begin
  Write('Введите значение k (1 или 2): ');
  Readln(k);
  Write('Введите значение x: ');
  Readln(x);

  if k = 1 then
    writeln('sin(x) = ', sin(x))
  else if k = 2 then
    writeln('cos(x) = ', cos(x))
  else
    writeln('Некорректное значение k.');
end.

Программа 4:

pascalCopy code
program Program4;
var
  p, m: Integer;
begin
  Write('Введите значение p: ');
  Readln(p);
  Write('Введите значение m: ');
  Readln(m);

  if p > sqr(m) then
    writeln('Значение p: ', p)
  else
    writeln('Квадрат m: ', sqr(m));
end.

Чтобы использовать эти программы, вам нужно скопировать соответствующий код в среду разработки Pascal (например, Free Pascal) и запустить его там. Если у вас есть вопросы по коду или по программированию на Pascal, не стесняйтесь спрашивать!