Question

Напишите программу на языке Паскаль для вычисления: а) значения функции y = x2 (в квадрате); б) площади прямоугольника;​

Answer 1

Ответ:

а)

var x,y: integer;

begin

 write('Введите x: ');

 readln(x);

 y: = x*x;

 writeln('y = x^2 = ',y);

end.

б)

var a,b,s: integer;

begin

 write('Введите сторону a: ');

 readln(a);

 write('Введите сторону b: ');

 readln(b);

 s:=a*b;

 writeln('Площадь прямоугольника: ',s);

end.

Answer 2

Для вычисления значения функции y = x^2 (в квадрате) и площади прямоугольника на языке Паскаль, вам потребуется написать две разные процедуры или функции. Вот пример программы:

а) Вычисление значения функции y = x^2:

pascalCopy code
program SquareValue;

var
  x, y: real;

begin
  // Ввод значения x
  writeln('Введите значение x: ');
  readln(x);
  
  // Вычисление квадрата значения x
  y := x * x;
  
  // Вывод результата
  writeln('Значение функции y = x^2: ', y);
end.

б) Вычисление площади прямоугольника:

pascalCopy code
program RectangleArea;

var
  width, height, area: real;

begin
  // Ввод ширины и высоты прямоугольника
  writeln('Введите ширину прямоугольника: ');
  readln(width);
  writeln('Введите высоту прямоугольника: ');
  readln(height);
  
  // Вычисление площади прямоугольника
  area := width * height;
  
  // Вывод результата
  writeln('Площадь прямоугольника: ', area);
end.

Сохраните каждую из этих программ в отдельном файле с расширением .pas, например, square_value.pas и rectangle_area.pas. Затем скомпилируйте и запустите каждую программу в среде разработки для языка Паскаль (например, Free Pascal или Turbo Pascal), чтобы получить результаты.