Question

1.Площадь S квадрата вводится с клавиатуры. Вычислить длину стороны a и длину диагонали d. 2. В прямоугольном треугольнике заданы два катета a и b, значения которых вводятся с клавиатуры. Найти гипотенузу c и площадь S. Язык: Pascal

Answer 1

Ответ:

1)

var a,s:integer;

begin

readln(s);

writeln(‘Длина стороны = «‘ sqrt(s));

writeln(‘Длина диагонали = ‘, sqrt(s)*sqrt(2));

end.

2)

begin

readln(a,b);

writeln(‘Гипотенуза = ‘, sqrt((a*a)+(b*b)));

writeln(‘Площадь = ‘, (a*b)/2);

end.

Answer 2

Вот примеры решений двух задач на языке Pascal:

1. Вычисление длины стороны и диагонали квадрата:

pascalCopy code
program SquareCalculation;
var
  S, a, d: real;
begin
  writeln('Введите площадь квадрата:');
  readln(S);
  
  // Вычисление длины стороны квадрата
  a := sqrt(S);
  
  // Вычисление длины диагонали квадрата
  d := sqrt(2) * a;
  
  writeln('Длина стороны квадрата: ', a);
  writeln('Длина диагонали квадрата: ', d);
  
  readln;
end.

2. Вычисление гипотенузы и площади прямоугольного треугольника:

pascalCopy code
program RightTriangleCalculation;
var
  a, b, c, S: real;
begin
  writeln('Введите длину первого катета:');
  readln(a);
  
  writeln('Введите длину второго катета:');
  readln(b);
  
  // Вычисление гипотенузы прямоугольного треугольника
  c := sqrt(a*a + b*b);
  
  // Вычисление площади прямоугольного треугольника
  S := (a * b) / 2;
  
  writeln('Гипотенуза прямоугольного треугольника: ', c);
  writeln('Площадь прямоугольного треугольника: ', S);
  
  readln;
end.

Обратите внимание, что эти программы ожидают ввода данных с клавиатуры и выводят результат на экран.