Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.12.2008, 20:04   #1
Никуся
 
Регистрация: 28.12.2008
Сообщений: 7
По умолчанию Задачи по паскалю.

1.Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус вписанной окружности.

2. Даны 3 действительных числа. Выбрать из них те, которпые принадлежат интервалу (1,3)

помогите решить. зарание спасибо
Никуся вне форума
Старый 28.12.2008, 20:28   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Никуся А что у вас не получается? Здесь только и надо, что забить формулы на паскале.
1) катет (b):
Код:
b := sqrt(sqr(c)-sqr(a));
Радиус окружности:
Код:
r := a*b/(a+b+c)
2) Просто проверяете каждое число:
Код:
if (c1>1) and (c1<3) then writeln('c1 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 28.12.2008, 20:36   #3
Никуся
 
Регистрация: 28.12.2008
Сообщений: 7
По умолчанию

C2=a2+b2 , S=rp где р - полупериметр треугольника, r – радиус вписанной окружности

2-ки это в квадрате)

я забыла подписать к 1 задаче)
Никуся вне форума
Старый 28.12.2008, 20:40   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Никуся Так я и написал вам формулы в паскалевском виде.
Что там еще решать-то?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 28.12.2008, 20:41   #5
Никуся
 
Регистрация: 28.12.2008
Сообщений: 7
По умолчанию

можешь полностью написать как на паскале.....))
Никуся вне форума
Старый 28.12.2008, 20:54   #6
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
var
a,b,c,r : real;

begin
write('Vvedite dlinu kateta a: ');
readln(a);
write('Vvedite dlinu gipotenuzy c: ');
readln(c);
b := sqrt(sqr(c)-sqr(a));
r := a*b/(a+b+c);
writeln('Katet b= ',b:5:2);
writeln('Radius r= ',r:5:2);
readln;
end.
Код:
var
c1,c2,c3 : real;

begin
write('Vvedite c1: ');
readln(c1);
write('Vvedite c2: ');
readln(c2);
write('Vvedite c3: ');
readln;
if (c1>1) and (c1<3) then writeln('c1 - prinadlezhit');
if (c2>1) and (c2<3) then writeln('c2 - prinadlezhit');
if (c3>1) and (c3<3) then writeln('c2 - prinadlezhit');
readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 28.12.2008, 20:56   #7
vAdiM_Kubski
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 16
По умолчанию

жесть, ребята вообще ничего не понимают и кто-то еще им разжовывает и кладет все в рот, а у меня уже на 90% решенная написанная задача и никто не знает чтоли как нужно сортировку с функцией делать?
vAdiM_Kubski вне форума
Старый 28.12.2008, 21:11   #8
Никуся
 
Регистрация: 28.12.2008
Сообщений: 7
По умолчанию

Спасибо тебе огромное))) Ты меня оч выручил)
Никуся вне форума
Старый 28.12.2008, 21:12   #9
Никуся
 
Регистрация: 28.12.2008
Сообщений: 7
По умолчанию

ЭТО ТЫ К ЧЕМУ?!
Никуся вне форума
Старый 28.12.2008, 21:13   #10
vAdiM_Kubski
Пользователь
 
Регистрация: 28.12.2008
Сообщений: 16
По умолчанию

смысл того что тебе решили эту задачу, видно что ты все равно ничего не понимаешь в ней
тупо списанная задача никакого смысла не несет, нужно понимать
vAdiM_Kubski вне форума
Закрытая тема
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи по Паскалю! profi Помощь студентам 39 15.10.2009 09:29
Задачи по паскалю. Lavron Паскаль, Turbo Pascal, PascalABC.NET 20 05.01.2009 15:34
Задачи по паскалю Agent[PNZ] Помощь студентам 10 22.11.2007 21:45
Задачи по Паскалю MissLove Помощь студентам 15 24.07.2007 11:20