0 / 0 / 1
Регистрация: 13.10.2013
Сообщений: 9
1

Лабораторка по программированию

13.10.2013, 22:07. Показов 1384. Ответов 1
Метки нет (Все метки)

borland delphi 7 язык паскаль
Процедура и функция должны выполнять только одну логически завершенную действие и быть универсальной.Инициализировать массивы как константы.
и вот задание
Одномерный массив содержит несколько пар чисел (основа и высота треугольника). Подсчитать сумму площадей треугольников. спасибо заранее за помощь)))
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2013, 22:07
Ответы с готовыми решениями:

Лабораторка
Дано натуральное число n и целые числа a(1), a(2), ... a(n) (n<100) . Определить, есть ли среди...

Лабораторка
Всем привет! Ребят, нужна ваша помощь в выполнении лабораторной работы в эмуляторе...

Лабораторка
Здраствуйте! Помогите с лабороаторной по СИ Вот задание: 5. відновлює скорочені записи типу A-Z...

лабораторка
Прошу помощи в решении лабораторной работы. Заранее благодарю всех откликнувшихся!)

1
Заблокирован
14.10.2013, 10:27 2
Лучший ответ Сообщение было отмечено kinash96 как решение

Решение

А вот лень. Вы хоть бы привели формулу вычисления площади треугольника по основанию и высоте.
И при таких условиях массив врядли может быть одномереым. если пара чисел. Это может быть быть только в одном случае, если применена запись. Вы уже проходили записями, чтобы ими пользоватся? Если нет, то смысла в задании нет вообще. И поясниете, что значит константа? Откуда тогда данные? Где они? Как вам писать массив-константу. когда вы данные не привели? Чем этот массив будет заполнен?

В примнении записей...
Пусть массив будет под именем Мass и содержит записи типа TRG
Delphi
1
2
3
TRG = record
           Bas,h_:Double;          
         end;
ну раз у вас константа, то и известно сколько записей в массиве.
Ну пусть их будет 5. [0..4] то есть 5 треугольников.

Пишем функцию на один треугольник.
Delphi
1
2
3
4
5
function S_TRG(TR:TRG):Double;
begin
//Площадь треугольник по основанию и высоте
Result:= TR.Bas*TR.h_/2;
end;
(За формулу не отвечаю)

Ну а для суммы...
Cкажем, она будет в переменной SUM

Тогда
Delphi
1
2
SUM:=0;
for i:=0 to 4 do SUM:=SUM+S_TRG(MASS[i]);
Вот собственно и всё. Массив сами составляйте

Чтоб не было потом вопросов, массив-константа из записей выглядит так:
Delphi
1
2
3
4
5
6
const
MASS: array[0..4] of TRG =( (Bas: 7;   h_: 2),
                                       (Bas: 8;   h_: 3),
                                       (Bas: 9;   h_: 4),
                                       (Bas: 10; h_: 5),
                                       (Bas: 11; h_: 6));
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2013, 10:27

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Си++ Лабораторка
Удалить из s1, ... , sn все слова с нечетными порядковыми номерами и перевернуть все слова с...

Лабораторка по с#
Требуется написать программу для расчета по двум формулам,а также предусмотрите пользовательский...

Лабораторка с матрицами
Всем Привет_))) Ребят, у меня проблема. Задание: Дана матрица B Найти в каждой строке максимальный...

Лабораторка Мозгаломка
7. Вводится число X>1 и точность e. Вычислить с заданной точностью квадратный корень введенного...

С++ лабораторка задача
На ВАС последняя надежда) Условие: .определить функции в соответствии с вариантом задания; .в...

Метод Math. лабораторка
У меня проблема сл. характера, дали лабораторку, я сделал 2 пример, первый наполовину, загвоздка в...


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

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

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