сервис вопросов и ответовзадание по Объектно-ориентированному программированию на Делфи 7
10-11 класс|
|
добрый вечер, уважаемые школьники, студенты, а также все посетители этого замечательного сайта (надеюсь прочитать ответы от программистов). всем хорошего настроения. и я бы хотела, чтобы мне помогли написать программу на языке Делфи 7 в консольном режиме (этот режиме нету дизайна и он похож на обычный Паскаль).
задание:
Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.
я прикрепила файл "Уточнение задания" - там всё конкретно описано.
заранее спасибо всем за помощь.
даняЗВЁЗДОЧКА
28 февр. 2017 г., 5:42:17 (7 лет назад)
KawaiiNeko
28 февр. 2017 г., 7:21:25 (7 лет назад)
var
x1, x2, x3, y1, y2, y3, s1, s2: real;
function length(x1, y1, x2, y2: real): real;
begin
length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
function is_triangle(x1, y1, x2, y2, x3, y3: real): boolean;
var
a, b, c: real;
begin
a := length(x1, y1, x2, y2);
b := length(x1, y1, x3, y3);
c := length(x2, y2, x3, y3);
is_triangle := not ((a >= b + c) or (b >= a + c) or (c >= a + b));
end;
function volume(x1, y1, x2, y2, x3, y3: real): real;
var
a, b, c, p: real;
begin
a := length(x1, y1, x2, y2);
b := length(x1, y1, x3, y3);
c := length(x2, y2, x3, y3);
p := (a + b + c) / 2;
volume := sqrt(p * (p - a) * (p - b) * (p - c));
end;
begin
repeat
write('Введите 3 точки триугольника 1 =>');
read(x1, y1, x2, y2, x3, y3)
until is_triangle(x1, y1, x2, y2, x3, y3);
S1 := volume(x1, y1, x2, y2, x3, y3);
repeat
write('Введите 3 точки триугольника 2 =>');
read(x1, y1, x2, y2, x3, y3)
until is_triangle(x1, y1, x2, y2, x3, y3);
S2 := volume(x1, y1, x2, y2, x3, y3);
writeln(s1,' ',s2);
if S1 > S2 then writeln(1)
else if S2 > S1 then writeln(2)
else writeln(' = ');
end.
Ответить
Другие вопросы из категории
Нужно написать программу в паскале.
На вход поступает некое целое число икс(х).Х принадлежит промежутку (-30000;30000)
Если Х четное и делится на 5 то выводится соответствующая надпись.Если нет- надпись не выводится
Читайте также
верно ли утверждение что в системы объектно ориентированного программирования бейсик и gambas одновременно включены и интерпретатор и компилятор?
а) нет
б) да
в) это зависит от версии системы
г) нет это верно только для gambas
при программировании в объектно ориентированных средах основой для графического интерфейса проекта служит
а)текстовое поле
б) форма
в) панель элементов
г) поле надписи
понятие инкапсуляция,наследование,полиморфизм относятся к...
А) структурному программированию
б) логическому программированию
в) объектно-ориентированному программированию
г) обозначение элементов на блок-схемах
1. Расширение файла, как правило, характеризует:
тип файла
программное обеспечение
название программы
2. Файл - это:
поименованный объект, расположенный на диске
поименованная совокупность байтов, размещенная на внешнем носителе
совокупность поименованных ячеек памяти
3. Задан полный адрес файла: c:\documets\prikaz.doc. Какое у файла составное имя?
prikaz.doc
documets\prikaz.doc
documets\prikaz
^ 4. К сервисным системам относятся:
интерфейсные системы
инструментальные системы
утилиты
программные системы
оболочки
^ 5. Какое программное обеспечение обеспечивает рабочую среду для других программ:
прикладное
системное
инструментальное
^ 6. Какая версия программного продукта является более новой:
MS DOS 6.0
MS DOS 6.20
MS DOS 6.22
7. Программы, скачанные из Интернета и имеющие определенный срок пользования, являются:
платными
бесплатными
условно-бесплатными
^ 8. Интерфейс, в котором для управления компьютером используются объекты, называется:
объектно-ориентированным
графическим
командным
^ 9. Программы, которые существенно меняют пользовательский интерфейс, не меняя при этом программный, относятся к:
утилитам
интерфейсным системам
оболочкам
^ 10. Какой шаблон позволяет найти файлы, которые начинаются на букву f, заканчиваются на t и имеют любое расширение:
*f????t.*
f*?d.*??
f?*d.*
^ 11. Сколько различных операционных систем можно установить на одном жестком диске:
только одну
только две
только три
12. Какое максимальное число логических дисков можно создать в расширенном разделе:
три
любое
23
13. После форматирования диска его доступный объем может уменьшиться по причине:
наличия на диске логических ошибок
наличия испорченных секторов
наличия фатальных ошибок
Старик Хоттабыч взялся помочь своим друзьям сдать экзамены. Для того, чтобы наколдовать правильный ответ на один вопрос по географии, он должен вырвать из
своей бороды 6 волосков, чтобы наколдовать правильный ответ на один вопрос по математике – 10 волосков, правильный ответ на один вопрос по русскому языку – 8 волосков. Вольке-ибн-Алеше досталось: на экзамене по географии – З вопроса, на экзамене по математике – 5 вопросов, на экзамене по русскому языку – 2 вопроса.
Женьке досталось: на экзамене по географии – 4 вопроса, на экзамене по математике – З вопроса, на экзамене по русскому языку – 4 вопроса.
Гоге-Пилюле досталось: на экзамене по географии – 2 вопроса, на экзамене по математике – 4 вопроса, на экзамене по русскому языку – 5 вопросов.
И, наконец, самому Хоттабычу: на экзамене по географии – 5 вопросов, на экзамене по математике – 2 вопроса, на экзамене по русскому языку – З вопроса.
Сколько волосков пришлось вырвать Хоттабьтчу из своей бороды для того, чтобы помочь каждому из своих друзей (и себе самому тоже); сколько волосков пошло на сдачу экзаменов по каждому из предметов?
ПОМОГИТЕ ПОЖАЛУЙСТА! ОЧЕНЬ НУЖНО!( 1)Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну
позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).
2) Имеется последовательность чисел a1, a2 , ..., aN . Найти сумму первых из них, произведение которых не превышает заданного числа М.
СИ++. #include <stdio.h>
#include <conio.h>
Вы находитесь на странице вопроса "задание по Объектно-ориентированному программированию на Делфи 7", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.