Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Последний раз редактировалось dsadx; 06.07.2018 в 10:21.
dsadx вне форума   Ответить с цитированием
Старый 06.07.2018, 10:18   #2
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

Цитата:
Сообщение от min@y™ Посмотреть сообщение
По какому предмету экзамен-то?
информатика
dsadx вне форума   Ответить с цитированием
Старый 06.07.2018, 10:24   #4
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

Цитата:
Сообщение от 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, 10:50   #6
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

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

кроме того, я же предложил вариант, где можно сравнивать квадраты.
там не нужна погрешность.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 06.07.2018, 11:23   #8
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

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

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

про погрешность найдёте указания?
или все эти задачи решения не имеют?
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 06.07.2018, 12:25   #10
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,637
Репутация: 2356

icq: 100500
skype: kick-ass
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


22:33.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru