Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Ключ для indexNow
Скрипт от рекламы
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
Юлия Соколовская1568
26.04.2021
?>
Жасанды интеллектінің дамуына ықпал еткен адамдар
Информатика
Ответить
Ответы
Stefanidi_Semeikina1896
26.04.2021
X1, y1 - начло отрезка
x2, y2 - конец отрезка
x0, y0 - координаты точки принадлежность которой мы будем проверять
Вывод будет True, если принадлежит, False, если не принадлежит.
Программа:
program fff;
const _Eps: Real = 1e-3;
var x0, y0, x1, y1, x2, y2 : real; tmp : boolean; begin
readln(x1, y1); readln(x2, y2); readln(x0, y0); tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps; tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) ); write(tmp); end.
Chitaia
26.04.2021
1.
#include <iostream>
using namespace std;
int main()
{
int a, b;
cout << "a = ", cin >> a;
cout << "b = ", cin >> b;
for (int i=a; i<=b; i++) {
cout << i << " ";
}
return 0;
}
Пример:
a = 5
b = 12
5 6 7 8 9 10 11 12
2.
#include <iostream>
using namespace std;
int main()
{
int a, b, s=0;
long long p=1;
cout << "a = ", cin >> a;
cout << "b = ", cin >> b;
for (int i=a; i<=b; i++) {
p = p*i;
s = s+i;
}
cout << "p = " << p << " s = " << s;
return 0;
}
Пример:
a = 5
b = 12
p = 19958400 s = 68
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Жасанды интеллектінің дамуына ықпал еткен адамдар
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Информатика, 8 класс нужно решить. Найти значение функции. это очень
Автор: Mamikin
Якого значення набуде зминна N писля віконаня алгоритму якщо N=9 S=11 K=14 ТИЛЬКИ ЧИСЛО
Автор: Татьяна_Александра1114
Решить по информатике (записать на языке паскаля) с объяснениями поэтапно создать массив а из десяти целых чисел, принадлежащих промежутку [0; 20] вычислить кол-во элементов массива, значения которы...
Автор: varvv15
Сообщение, записанное буквами из 128-символьного алфавита, содержит 3000 символов. Какой объём информации оно несет?
Автор: agitahell149
Навыки высокого порядка 1. Как вы думаете, в каких случаях эффективнее использовать конструктор мобильных приложений, а в каких – интегрированную среду разработки? 2. Если работа в App Inventor вып...
Автор: lshimina65
мне с сором по информатике
Автор: santechma
Отметьте общие имена объектов1 Аурманск2 Ангара3 операционная система4 Open Office 4.35 волк6 цветок7 А.С. Пушкин8 клавиатурный тренажор
Автор: badalovao256
Редактор презентацій microsoft power point дає змогу створювати презентації: ?
Автор: nsh25044
Надо заполнить эту таблицу с функции =ЕСЛИ в excel, где если средний бал ниже 4, результат - "не ", если выше - " ". Не могу правильно составить команду вашей
Автор: stepa19806966
N школьников делят K яблок поровну, неделящийся остаток остается в корзинке сколько яблок достанется каждому школьнику? программа получает на вход числа N и K и должна вывести искомое колко яблок фор...
Автор: Yevgeniya Bessonov
Сообщениен записанное буквами из 16 символьного алфавита содержит 14 символов. какой обьем информации оно несет.
Автор: dnikolay365
Изменения в СОР1. Изменить внешний вид птичек (перекрасить их еще раз2. Сделать так, чтобы птички вылетали из центра экрана в противоположные стороны.3. После перехода к фону Ролик, сначала из центр...
Автор: zyf0066
Представь что твоя программа решает математический пример х=(а*5)+10 Исходные данные (а) Результат (х) 5 10 100
Автор: aetolstih
Определите минимальное основание системы счисления, в которой могут быть представлены все следующие числа: 356, 776, 455.
Автор: lzelenyi5
1. дано трехзначное число. найти и вывести сумму его цифр. составить программу paskal . 2. дано целое число. найти число его десятков. например, у числа 326 ответом будет 2, так как 2 десятка. соста...
Автор: kiravalter1998697
▲
x2, y2 - конец отрезка
x0, y0 - координаты точки принадлежность которой мы будем проверять
Вывод будет True, если принадлежит, False, если не принадлежит.
Программа:
program fff;
const _Eps: Real = 1e-3;
var x0, y0, x1, y1, x2, y2 : real; tmp : boolean; begin
readln(x1, y1); readln(x2, y2); readln(x0, y0); tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps; tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) ); write(tmp); end.