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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.07.2018, 08:53   #1
dsadx
Новичок
Джуниор
 
Регистрация: 06.07.2018
Сообщений: 2
Восклицание Составить программу

Pascal ABC
Помогите с экзаменом:
1 задача: треугольник задан координатами своих вершин на плоскости. Составить программу, которая определит, является ли он равносторонним, равнобедренным или разносторонним
2 задача: Дано целое число N (N > 1). Найти наибольшее целое число i, при котором выполняется неравнество 3^i < N

Последний раз редактировалось dsadx; 06.07.2018 в 09:21.
dsadx вне форума Ответить с цитированием
Старый 06.07.2018, 09:18   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

По какому предмету экзамен-то?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 06.07.2018, 09:20   #3
dsadx
Новичок
Джуниор
 
Регистрация: 06.07.2018
Сообщений: 2
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
По какому предмету экзамен-то?
информатика
dsadx вне форума Ответить с цитированием
Старый 06.07.2018, 09:24   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от dsadx Посмотреть сообщение
информатика
В задачи 1 не хватает исходных данных.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 06.07.2018, 09:43   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
В задачи 1 не хватает исходных данных.
почему не хватает?
координаты есть. легко определяются длины сторон как
Код:
a = sqrt( sqr(x1-x2) + sqr(y1-y2) );
b = sqrt( sqr(x2-x3) + sqr(y2-y3) );
c = sqrt( sqr(x3-x1) + sqr(y3-y1) );
далее легко сравнить эти числа между собой (либо с учётом погрешности),

либо для сравнения вообще брать квадраты сторон и использовать целочисленный тип данных
Код:
var aq,bq,cq : integer; 
...
 aq := sqr(x1-x2) + sqr(y1-y2);
 bq := sqr(x2-x3) + sqr(y2-y3);
...
ну, дальше всё просто...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.07.2018, 09:50   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
либо с учётом погрешности
Вот погрешности-то и не хватает.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 06.07.2018, 10:11   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Вот погрешности-то и не хватает.
да это же школа. я на 100% уверен, что там даны целочисленные координаты вершин. ещё не удивлюсь, если и длины сторон получатся целочисленными.

кроме того, я же предложил вариант, где можно сравнивать квадраты.
там не нужна погрешность.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.07.2018, 10:23   #8
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
да это же школа. я на 100% уверен, что там даны целочисленные координаты вершин. ещё не удивлюсь, если и длины сторон получатся целочисленными.
Я технарь, я всегда решаю задачу в общем виде, если не оговорено иное. ТЗ - наше всё.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 06.07.2018, 10:35   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Я технарь, я всегда решаю задачу в общем виде, если не оговорено иное. ТЗ - наше всё.
школьные задания и ТЗ ?! А Вы жжёте!

Вы, наверное, уже забыли, какие задачи решают в школе!
вот, первая попавшаяся страничка из задачника по геометрии:
hello_html_m6d681c06.jpg

про погрешность найдёте указания?
или все эти задачи решения не имеют?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.07.2018, 11:25   #10
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
школьные задания и ТЗ ?! А Вы жжёте!
А мы уже на "ВЫ"?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу для Паскаль 9 класс: составить программу которая печатает таблицу умножения и сложения натуральных чисел goodula Помощь студентам 0 23.01.2014 17:39
Составить программу вычисления и печати таблицы значений функции при заданных значениях параметров Составить программу вычисле Марина1986 C/C++ Сетевое программирование 1 08.05.2013 13:34
Составить программу sanka777 Паскаль, Turbo Pascal, PascalABC.NET 0 10.01.2013 18:21
никак не могу составить программы на паскале... кто нибудь помогииите составить программу program_1 Паскаль, Turbo Pascal, PascalABC.NET 1 04.12.2012 19:52
Программу составить) марковка Паскаль, Turbo Pascal, PascalABC.NET 0 24.05.2011 18:58