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 гб-ный как устоновит его в пк (компьютер)
Автор: ВитальевичЕвгеньевич346
Паскаль. дан файл tv содержащий сведения о программах телепередач на неделю: день недели, время, канал, вид и название телепередачи. определить: есть ли передача, транслирующаяся больше одного раз...
Автор: Есартия52
Как бороться с плагиатом
Автор: Dato24043846
пишет ошибку Program1.pas(8) : Нет перегруженной подпрограммы с такими типами параметров Program sum3; Var x: integer; var y:real; Begin writeln('введите x'); Readln (x); if x<0 then y:=1+2*x/1+sqr...
Автор: veravlad
Какую клавишу необходимо удерживать в нажатом состоянии при рисовании и в графическом редакторе чтобы получить квадрат а не прямоугольник? ? а)ait б)ctrl в)shift г)caps lock
Автор: Павловна897
На пк после запуска ничего нет, только когда мышкой вожу курсор видно(трогал длл opengl32 и hig)
Автор: Nikolaevna1623
Статья набранная на компьютере содержит четыре страницы на каждой странице 40 строк в каждой строке 64 символа в одном из представлений Unicode Каждый символ кодируется 16 битами определите Информацио...
Автор: dmitryshigin
Глобал компьютер желісін атаңыз
Автор: dmitzu8594
Книга занимает 500 кбайт на каждой странице 32 строки по 64 символа, сколько страниц в книге?
Автор: Косоногов Иосифовна
Водном классе учатся победители школьных олимпиад по информатике, , , и . их зовут: андрей, соня, лёня, вика, маша. известно, что: 1) победитель олимпиады по информатике учит андрея и соню раб...
Автор: plv-57
Вводится n строка, найти кол-во пробелов в ней. pascal abc
Автор: Щербаков33
У исполнителя Сигма две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2 Выполняя первую из них, Сигма увеличивает число на экране на 4, а ...
Автор: ali13zakup5064
Необходимо декодировать в читаемый текст! 209 132 32 208 189 208 185 208 182 209 137 209 132 208 191 209 133 209 131 208 180 209 145 209 141 32 208 184 209 131 208 177 208 179 209 134 208 191 32 209 1...
Автор: arteevdimon
Дана строка, состоящая только из символов «а» и «б». составьте программу для машины тьюринга, которая переставляет последний символ в начало строки. каретка находится над первым символом строки.
Автор: kseniyavaganova
Составьте программу, которая выводит на экран значение выражения
Автор: maroseyka
▲
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.