Вычислить периметры ромбов и их площадь

@alex 12 · Регистрация: 21.01.2014

Author24 — интернет-сервис помощи студентам

Три ромба заданны длинами свои диагоналей. вычислить длину сторонних этих ромбов и их площадь .

@erl27 · 22.01.2014, 03:53

Если я правильно понял, то надо вычислить стороны и площади ромбов.

Pascal

///процедура вычисляет сторону и площадь ромба с диагоналями d1 и d2
procedure Romb(d1, d2: real; var a, S: real);
begin
  a := sqrt(sqr(d1) + sqr(d2)) / 2; //сторона ромба
  S := d1 * d2 / 2; //площадь ромба
end;
 
var
  d1, d2, a, S: real;
  i: byte; //количество ромбов
  
begin
  for i := 1 to 3 do begin
    write('d1 = ');
    readln(d1);
    write('d2 = ');
    readln(d2);
    Romb(d1, d2, a, S); //вызываем процедуру
    writeln(' сторона ромба: ', a:0:2);
    writeln(' площадь ромба: ', S:0:2);
    writeln;
  end;
end.

@alex 12 0 / 0 / 0 Регистрация: 21.01.2014 Сообщений: 15
		1
	Вычислить периметры ромбов и их площадь 21.01.2014, 22:16. Показов 1197. Ответов 1 Метки нет (Все метки) Три ромба заданны длинами свои диагоналей. вычислить длину сторонних этих ромбов и их площадь . 0

	22.01.2014, 03:53

Вычислить периметры ромбов и их площадь

Решение