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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

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

Описать процедуру, вычисляющую по стороне a равностороннего треугольника его периметр P = 3•a и площадь (a — входной, P и S — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти периметр и площадь равностороннего треугольника с данными сторонами.
malenkaya вне форума
Старый 17.02.2011, 01:52   #2
Cody M.
Пользователь
 
Регистрация: 13.03.2009
Сообщений: 14
По умолчанию

Код:
procedure TriangleSP(a: real; var P: real; var S: real);
begin
  P := 3 * a;
  S := sqrt(P / 2 * (P / 2 - a) * (P / 2 - a) * (P / 2 - a));
end;

var
  a, P, S: real;

begin
  write('Введите сторону a: '); read(a);
  TriangleSP(a, P, S);
  writeln('Периметр треугольника = ', P);
  writeln('Площадь треугольника = ', S);
end.
Cody M. вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
закончить выполнение процедуры из тела другой процедуры Alaysor Общие вопросы Delphi 14 23.01.2011 05:26
Управляющие структуры, процедуры Function и процедуры Sub Natalo4ka Помощь студентам 0 17.05.2010 22:00
Процедуры. Olalya da Silva Помощь студентам 1 08.05.2009 01:26
Запуск процедуры из процедуры с дополнением 1sal1 Общие вопросы Delphi 3 06.10.2008 21:54
процедуры Killbrum Помощь студентам 5 10.06.2008 08:59