Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 19.09.2010
Сообщений: 68
1

небольшая программа (геометрия)

22.09.2010, 01:24. Просмотров 975. Ответов 5
Метки нет (Все метки)

Добрый вечер, пожалуйста помогите написать новичку (студент 1го курса) код, и разобраться в нем с комментариями. Как сказал преподаватель нужно написать прогу, которая получает значение и по формуле высчитывает пример.

условие:

Дано гипотенузу с и катет прямоугольного треугольника а. Найти второй катет b и радиусы R и r описанного и вписанного кругов соответственно. При вычислении применить формулы r=2S/(a+b+c) и R=(abc)/4S, где S - площадь треугольника.

Заранее огромное спасибо!.

p.s. условие на украинском (может кому-то будет нагляднее)
_http://s002.***********/i197/1009/43/2ed3121e4622.jpg

Добавлено через 2 часа 20 минут
вот что у меня получилось, поправьте если не правильно:


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,s,r1,R2:real;
begin
a:=0; //Первый катет
b:=0; //Второй катет
c:=0; //Гепотенуза
s:=0; //Площадь
r1:=0;//Радиус вписанной окружности
R2:=0;//Радиус описанной окружности
a:=10;//Первый катет
c:=20;//Гепотенуза
//По формуле квадрат гипотенузы равен сумме кватратов катетов с*с=а*а+b*b
b:=sqrt((c*c)-(a*a));
//Далее находим площадь треунольника
s:=a*b/2;
r1:=2*S/(a+b+c);
r2:=(a*b*c)/4*S;
showmessage('Второй катет = '+floattostr(b));
showmessage('Радиус вписанной окружности = '+floattostr(r1));
showmessage('Радиус описанной окружности = '+floattostr(r2));
end;
нужно теперь это все сделать на Pascal'e, пожалуйста помогите составить тот же код только на паскале!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2010, 01:24
Ответы с готовыми решениями:

Небольшая программа на Lazarus
Нужна программа ,внутри которой есть 3 кнопки,в идеале. 1)Start - благодаря которой остальные 2...

Небольшая программа для работы с файлами
Помогите пожалуйста написать небольшую программу работа с фамилиями студенческой группы, то есть...

Небольшая программа
Здравствуйте,помогите пожалуйста решить следующею задачу:Подпрограмма в указанном столбце 2х...

Нужна небольшая программа на c++)
Вычислить площади треугольников, вписывающихся в полуокружность, через каждые 18 градусов (L=18)....

5
420 / 417 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
22.09.2010, 01:29 2
дык, так это в принципе и есть паскаль, если ты возьмешь в делфи консольный проект получешь почти чистый паскаль.
0
1 / 1 / 1
Регистрация: 19.09.2010
Сообщений: 68
22.09.2010, 01:44  [ТС] 3
если ты возьмешь в делфи консольный проект получешь почти чистый паскаль.
пожалуйста можете помочь перевести на паскаль, полностью код?, я просто не обладаю нужными познаниями в этом.
0
420 / 417 / 79
Регистрация: 21.06.2010
Сообщений: 1,362
22.09.2010, 08:17 4
No0b41k, боюсь что я тоже не смогу правильно перевести, обратился бы ты в раздел паскаля изначально....
0
712 / 400 / 33
Регистрация: 04.10.2009
Сообщений: 1,687
22.09.2010, 08:52 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program Ploshad;
Uses Crt;
var
a,b,c,s,r1,R2:real;
begin
ClrScr;
a:=0; {//Первый катет}
b:=0; {//Второй катет}
c:=0; {//Гепотенуза}
s:=0; {//Площадь}
r1:=0;{//Радиус вписанной окружности}
R2:=0;{//Радиус описанной окружности}
a:=10;{//Первый катет}
c:=20;{//Гепотенуза}
{//По формуле квадрат гипотенузы равен сумме кватратов катетов с*с=а*а+b*b}
b:=sqrt((c*c)-(a*a));
{//Далее находим площадь треунольника}
s:=a*b/2;
r1:=2*S/(a+b+c);
r2:=(a*b*c)/4*S;
writeln('Второй катет = '+floattostr(b));
Writeln('Радиус вписанной окружности = '+floattostr(r1));
Writeln('Радиус описанной окружности = '+floattostr(r2));
Writeln;
Writeln;
Writeln('Нажмите любую клавишу');
ReadLn;
end.
0
Модератор
61652 / 46154 / 31849
Регистрация: 18.05.2008
Сообщений: 111,297
22.09.2010, 09:12 6
Для Турбо Паскаль.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,b,c,s,r1,r2:real;
begin
clrscr;
writeln('Введите длину гипотенузы и катета:');
readln(c,a);
b:=sqrt(c*c-a*a);
writeln('Второй катет=',b:0:2);
s:=a*b/2;
r1:=2*s/(a+b+c);
writeln('Радиус вписанной окружности=',r1:0:2);
r2:=(a*b*c)/(4*s);
writeln('Радиус описанной окружности=',r2:0:2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2010, 09:12

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

Небольшая программа на матрицу
Небольшую прогу задали на практике яеё никак невдуплю! вот условие В представленной матрицы 3 на...

Небольшая программа на функцию
Вот само задание: В действительной квадратной матрице NXN найти самый большой элемент среди тех,...

Небольшая программа по шифрованию сообщений
Ребят, такая ситуация. Задали написать проект - консольная программа на плюсах по шифрованию...

Небольшая программа по решению уравнений
Здравствуйте. Недавно начал изучать с++ , опыт в программировании только на паскале. Вот написал...

Небольшая программа, способная рендерить 3D объекты
Здрасти. Я начал изучать java по большей части ради того, чтобы написать эту программу, но чёт всё...

Небольшая программа, открывающая swf-файлы
Здравствуйте. Очень нужна ваша помощь. Флеш я ни грамма не знаю, но есть задача написать небольшое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.