Question

Пожалуйста помогите по информатике: Написать программу на языке Паскаль: (1)Заданы стороны прямоугольника. Определить периметр и площадь прямоугольника. (2) Написать программу которая находит среднее арифметическое двух чисел. Пожалуйста если ещё не трудно объяснить а то до меня не доходит как это делают... Заранее спасибо!

Answer 1

1)

program qq;

var a,b,s,p : integer;

begin

writeln('Введите стороны прямоугольника');

read(a,b);

s:=a*b;

p:=2*(a+b);

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

writeln('Периметр прямоугольника равен ',p);

end.

2)

Var a,b : Real;

Function SrAr(aa,bb :Real) : Real;

Begin

 SrAr:=(aa+bb)/2;

end;

Begin

 Readln(a,b);

 Writeln(SrAr(a,b));

end.

Answer 2

Конечно, я могу помочь написать программы на языке Паскаль!

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

arduinoCopy code
program Rectangle;

var
  width, height, perimeter, area: real;

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

  // Находим периметр и площадь прямоугольника
  perimeter := 2 * (width + height);
  area := width * height;

  // Выводим результаты
  writeln('Периметр прямоугольника: ', perimeter:0:2);
  writeln('Площадь прямоугольника: ', area:0:2);
  readln;
end.

2. Вот пример программы, которая находит среднее арифметическое двух чисел:

scssCopy code
program Average;

var
  num1, num2, average: real;

begin
  // Вводим два числа
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);

  // Находим среднее арифметическое
  average := (num1 + num2) / 2;

  // Выводим результат
  writeln('Среднее арифметическое: ', average:0:2);
  readln;
end.

Объяснение:

Программа работает по простому принципу:

1. Вводим данные в программу, используя команду readln().
2. Выполняем нужные вычисления и сохраняем результат в переменную.
3. Выводим результат, используя команду writeln().

В первой программе мы вводим ширину и высоту прямоугольника, вычисляем его периметр и площадь, а затем выводим результаты на экран.

Во второй программе мы вводим два числа, вычисляем их среднее арифметическое и выводим результат на экран.

Надеюсь, это поможет вам понять, как работать с программами на языке Паскаль!