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*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Дан фрагмент электронной таблицы
Автор: vasilevich-F
Найти среднее арифметическое целых чисел в типизированном файле (file of integer), разница наибольшей и наименьшей цифр которых меньше 5. если таких чисел нет, то результат- ноль. функция принимает ...
Автор: SlavaA99
в трехзначном числе зачеркнули последнюю цифру .Когда в оставшемся двузначном числе переставили цифры , а зачем преписали к ним слева последнюю цифру числа , то получилось 654.Найдите исходное число. ...
Автор: Иванникова736
: В одновимірному масиві дійсних чисел обчислити добуток чисел , кратних 5.
Автор: aananasAnastiya1270
Файл размером 64 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое соединение со скорос...
Автор: Mashkov-Daniil1764
Перечислите команды нужны для копирования и переноса объектов
Автор: Nadezhdachizhikova7968
Написать программу на Паскале, которая выведет на экран, учебное заведение, гапоу со карпинский машиностроительный техникум
Автор: Ruslan Zarekovkin
Вывести на экран в строчку первые n отрицательных чисел
Автор: stendpost
Составьте программу для нахождения количества дюймов d, которое содержится в x сантиметрах (1 дюйм = 2, 54 см исходное количество сантиметров задается с клавиатуры.
Автор: Pavel1545
2. Даны переменные:[4] Определите типы данных для каждой переменной. Соедините линиями тип данных и переменную. my school 20.2 d=[1, 2, 3] False list bool str float
Автор: Moroshkina-Aristova2011
Внекотором учебном заведении действуют следующие правила приёма. абитуриенты три экзамена. если они набирают не менее 13 , то это даёт право поступить на дневное отделение, от 10 до 12 – вечернее, ...
Автор: o-kate17
Переведите из 16-ой системы счисления в 2, 8, 10-ую системы счисления(переведите хотя бы в 10-ую, распишите подробно) а258, 62f
Автор: Galinagol559
Пользуясь таблицей кодировки ascii, расшифровать текст, представленный в виде двоичных кодов символов. 01010000 01100101 01110010 01101101 00100000 01010101 01101110 01101001 01110110 01100101 01110...
Автор: Kochetova92
Запиши математическое выражение (6+t)2 на языке Паскаль. (При записи ответа используй прописные буквы
Автор: korj8
всем, кто даже не сдаёт информатику, задали решать.
Автор: Nikolaevna Malika1511
▲
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.