Паскаль, помогите срочно, нужно через несколько часов.

Defox · 22.03.2011, 19:35

Написать программу для вычисления стороны, углов и площади ромба, у которого известны диагонали.
Тест: если ABCD-ромб, AC=7см, BD=0,84дм, то S=29,4 см2, AB=5,467см, A=1,752, B=1,39

shrek=) · 22.03.2011, 20:36

Вот программа, но без углов. Может формулу подскажите доделаю!

Код:

var
s,d2,d1,c:real;
begin
writeln ('Введите диагонали (в сантиметрах)');
readln (d1,d2);
c:=sqr(d1/2)+sqr(d2/2);
c:=sqrt(c);
s:=(d1*d2)/2;
writeln ('Сторона равна ',c:1:4,'Площадь равна',s:2:1);
readln
end.

Vladimir_S · 22.03.2011, 21:06

Да пожалуйста, нам что - можем и с углами. Без проблем:

Код:

var
 s,d2,d1,c,Ang_A,Ang_B:real;
begin
 writeln ('Введите диагонали (в сантиметрах)');
 readln (d1,d2);
 c:=sqr(d1/2)+sqr(d2/2);
 c:=sqrt(c);
 s:=(d1*d2)/2;
 Ang_A:=2.0*ArcTan(d2/d1);
 Ang_B:=Pi-Ang_A;
 writeln ('Сторона равна ',c:6:3);
 writeln ('Площадь равна ',s:6:3);
 writeln ('A равен ',Ang_A:6:4,' B равен ',Ang_B:6:4);
 readln
end.

22.03.2011, 19:35	#1 (permalink)
Defox Новичок Регистрация: 22.03.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль, помогите срочно, нужно через несколько часов. Написать программу для вычисления стороны, углов и площади ромба, у которого известны диагонали. Тест: если ABCD-ромб, AC=7см, BD=0,84дм, то S=29,4 см2, AB=5,467см, A=1,752, B=1,39

22.03.2011, 20:36	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Вот программа, но без углов. Может формулу подскажите доделаю! Код: var s,d2,d1,c:real; begin writeln ('Введите диагонали (в сантиметрах)'); readln (d1,d2); c:=sqr(d1/2)+sqr(d2/2); c:=sqrt(c); s:=(d1*d2)/2; writeln ('Сторона равна ',c:1:4,'Площадь равна',s:2:1); readln end.

22.03.2011, 21:06	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да пожалуйста, нам что - можем и с углами. Без проблем: Код: var s,d2,d1,c,Ang_A,Ang_B:real; begin writeln ('Введите диагонали (в сантиметрах)'); readln (d1,d2); c:=sqr(d1/2)+sqr(d2/2); c:=sqrt(c); s:=(d1d2)/2; Ang_A:=2.0ArcTan(d2/d1); Ang_B:=Pi-Ang_A; writeln ('Сторона равна ',c:6:3); writeln ('Площадь равна ',s:6:3); writeln ('A равен ',Ang_A:6:4,' B равен ',Ang_B:6:4); readln end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

22.03.2011, 19:35
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Решение проблемы может находиться в похожих темах Паскаль. Помогите срочно Срочно нужно написать программу на языке Bash

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070