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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2012, 22:36   #1
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
По умолчанию Лаба 6 задача

Процедуры и функции.
Для каждого варианта в обязательном порядке предусмотреть использование процедуры и функции. Процедура и функция должны находиться в одном файле. Массивы инициализировать как константы.
Знак '^' означает 'в степени ".
Одномерный массив содержит две пары чисел (основа и высота треугольника). Подсчитать сумму плоскостей треугольников.

К сожалению , не могу прийти к правильному решению , помогите пожалуйста

Последний раз редактировалось Владан; 14.10.2012 в 10:48.
Владан вне форума Ответить с цитированием
Старый 13.10.2012, 23:30   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
writeln(1/2*a[1]*a[2]+1/2*a[3]*a[4]);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 20.10.2012, 20:08   #3
Владан
Пользователь
 
Аватар для Владан
 
Регистрация: 24.09.2012
Сообщений: 51
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
writeln(1/2*a[1]*a[2]+1/2*a[3]*a[4]);
а можно подробнее , ато неочень понимаю?!
Владан вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Лаба по СИ++ nekitosp Фриланс 2 25.10.2011 15:55
лаба №3 Jaguar XF Паскаль, Turbo Pascal, PascalABC.NET 4 11.04.2010 11:45
Лаба T_I_M_U_N Помощь студентам 1 15.01.2010 09:35