Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Фёдорова Антонина...
2 года назад
7
Помогите решить эти 16 вариантов, или хотя бы несколько. Что нужно сделать: Составить программу в Pascal ABC( Нужно сделать так,
чтобы вы вводили координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
NastyKiss
2 года назад
0
0
Var x, y: real;
begin
write('x = ');
read(x);
write('y = ');
read(y);
{1}
if (y >= x + 3) and (x <= 0) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) or
(x >= 0) and (y <= -x + 3) and (sqr(x + 1) + sqr(y - 2) <= sqr(2)) then
writeln('1: YES')
else
writeln('1: NO');
{2}
if (y <= 2) and (y >= 0) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(y <= 0) and (sqr(x - 3) + sqr(y) <= sqr(1)) then
writeln('2: YES')
else
writeln('2: NO');
{3}
if (y >= 0) and (y <= x + 1) and (y <= -x + 2) or
(y >= 0) and (y <= x - 2) then
writeln('3: YES')
else
writeln('3: NO');
{4}
if (sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) <= sqr(2)) and
((x - 2) * y >= 0) then
writeln('4: YES')
else
writeln('4: NO');
{5}
if (sqr(x) + sqr(y) <= sqr(2)) and ((y <= x - 2) or (y >= x + 2)) then
writeln('5: YES')
else
writeln('5: NO');
{6}
if (sqr(x - 2) + sqr(y - 2) >= sqr(1)) and (y <= x + 2) and
(y >= -x + 2) and (y >= x - 2) and (y <= -x + 6) then
writeln('6: YES')
else
writeln('6: NO');
{7}
if (y <= 2) and (y >= -2) and (sqr(x) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y) >= sqr(1)) and (sqr(x - 2) + sqr(y) >= sqr(1)) then
writeln('7: YES')
else
writeln('7: NO');
{8}
if (sqr(x - 2) + sqr(y) <= sqr(2)) and (sqr(x - 2) + sqr(y) >= sqr(1)) and
(sqr(x - 2) + sqr(y + 2) <= sqr(2)) then
writeln('8: YES')
else
writeln('8: NO');
{9}
if (y <= 3) and (y >= 0) and (y >= x) and (y >= -x + 3) or
(y <= 3) and (y >= 0) and (y <= x) and (y <= -x + 3) then
writeln('9: YES')
else
writeln('9: NO');
{10}
if ((sqr(x - 3) + sqr(y) <= sqr(2)) and (sqr(x - 3) + sqr(y) >= sqr(1)) or
(sqr(x - 3) + sqr(y) <= sqr(4)) and (sqr(x - 3) + sqr(y) >= sqr(3))) and
(y >= 0) then
writeln('10: YES')
else
writeln('10: NO');
{11}
if (y <= 2) and (y >= -2) and (x >= -2) and (x <= 2) and
(sqr(x - 2) + sqr(y - 2) >= sqr(1)) then
writeln('11: YES')
else
writeln('11: NO');
{12}
if (y <= 3) and (y >= 1) and (x >= 1) and (x <= 5) and
(sqr(x - 3) + sqr(y - 2) >= sqr(1)) then
writeln('12: YES')
else
writeln('12: NO');
{13}
if (y <= 0) and (y >= -3) and (x >= -1) and (x <= 1) or
(y <= x + 2) and (y <= -x + 2) and (y >= 0) then
writeln('13: YES')
else
writeln('13: NO');
<span>end.
Последние 3, я думаю, можно оставить Вам)</span>
Отправить
Читайте также
Помогите пожалуйста. сроочно
mrant444
Первый 8 второй 6
%%%%&&&&&&&&&&&$$
0
0
3 года назад
Группа файлов, имеющая имя, контейнер для файлов. 6 букв 2-ая а. ПОМОГИТЕ ПЛИЗ!!!!!!!!!! ЗАРАНИЕ ОГРОМНОЕ СПАСИБО!!!!!
ДарьяДарьяДарья
Каталог
(Папка, директория)
0
0
3 года назад
Даны 5 целых чисел, записанных в двоичной системе: 11110001^2, 11111110^2, 11111111^2, 11011111^2, 11111101^2. Сколько среди них
Евгений2824 [153]
ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше
0
0
2 года назад
Эту кнопку используют для того чтобы регулировать громкость,
Соколова Юлия Сер...
Если вы для штатных кнопок руля спрашиваете,то адаптер рулевого управления,если просто,то клавиша,также регулятор громкости.
0
0
3 года назад
Прочитать ещё 2 ответа
Помогите решить информатику 9 класс,пожалуйста
Анонем
ко второй ссылке будет точно шесть путей
0
0
4 года назад
Прочитать ещё 2 ответа
Смотрите также:
Задача по информатике 8 класс четыре девочки маша, таня, софия и полина пошли в кафе. какая из них покупала только один сок, при
5
·
1 ответ
Составьте таблицу истинности логических значений.Пожалуйста,там 2 выражения)
15
·
1 ответ
Задача 3. Расстановка знаков Легенда гласит, что Карл Фридрих Гаусс, учась в школе, смог быстро посчитать сумму всех целых чисел
11
·
1 ответ
Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20, 30, 40, 50 (примените команду For)
15
·
2 ответа
Турбо Паскаль. Определить является ли заданное число трехзначным.Спасибо.
6
·
1 ответ
Задача по информатике pascal abc найти площадь и периметр треугольника со сторонами a и b
5
·
1 ответ
Разрешающая способность экрана монитора 1024*1280 пикселей. В палитре 4 цвета. Каким должен быть объем видеопамяти для хранения
6
·
1 ответ
Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 32символа. второй текст - в алфа
6
·
1 ответ
Где ошибка?? Задание: Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму
6
·
1 ответ
СРОЧНО НАДО! школьники написали на доске числа 243, 729 и 324. Затем ребята произвольным образом вычитали из написанных чисел не
5
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!