Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Определить наличие вещественных корней в квадратном уравнении Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0). Определить процедуру, позволяющую распознавать наличие вещественных корней в квадратном уравнении. https://www.cyberforum.ru/ turbo-pascal/ thread442394.html	Turbo Pascal Ошибка "Structure too long" Как исправить ошибку? info:array of record sn:string; sum:integer; exist:boolean; bukva:string; end;
Turbo Pascal Среди чисел найти номер первого числа, которое совпадает с действительным значением Х нужно написать программу без использования массивов... я не понимаю даже в чем условие. помогите пожалуйста Пользователь вводит последовательность из 30 действительных чисел. Среди этих чисел номер первого числа, которое совпадает с действительным значением Х с наперед заданной точностью. https://www.cyberforum.ru/ turbo-pascal/ thread442362.html	Turbo Pascal Из слова «трос» получить слова «сорт», «рост» и «торс» https://www.cyberforum.ru/ turbo-pascal/ thread442357.html 1. Из слова «трос» путем вырезок и склеек его букв получить слова «сорт», «рост» и «торс»
Turbo Pascal Написать программу нахождения в заданной строке первого слова, которое имеет заданную длину. Написать программу нахождения в заданной строке первого слова, которое имеет заданную длину.	Turbo Pascal Найти в строке первое слово, которое имеет заданную длину https://www.cyberforum.ru/ turbo-pascal/ thread442349.html Написать программу нахождения в заданной строке первого слова, которое имеет заданную длину.
Turbo Pascal Задача на массив https://www.cyberforum.ru/ turbo-pascal/ thread442343.html здравствуйте. помогите решить пожалуйста задачу в pascal через самые обычные функции. массив G(N) содержит информацию о жильцах многоквартирного девятиэтажного дома.всего квартир 216. число жильцов в одной квартире от 0 до 20. определить есть ли в дому пустующие квартиры и вывести их номера.	Turbo Pascal Помогите с задачкой выстроить слово лесенкой убирая в каждой новой строке по 1 символу вот так автобус автобу автоб авто авт ав
Turbo Pascal программа формирования и вывода массива https://www.cyberforum.ru/ turbo-pascal/ thread442329.html 1. Напишите программу формирования и вывода массива произвольного размера так,чтобы каждый последующий элемент,начиная со второго,был равен разности между предыдущим элементом и суммой его индексов. Первый элемент задайте датчиком случайных чисел. ______________________ 2.Напишите программу формирования и вывода массива размером 6х3,каждые 3 последовательных элемента в строке которого...	Turbo Pascal Удалить из матрицы последний столбец и затем транспонировать получившуюся матрицу Помогите откорректировать задачу. Суть задачи: дана матрица "а" , необходимо удалить из нее последний столбец и затем транспонировать получившуюся матрицу.Транспонированную матрицу я переименовала в "с". Вот эту транспонированную матрицу нужно умножить на исходную матрицу "а". Превые два шага у меня получаются, а вот перемножить никак не могу! program massiv; uses crt; var a,c:array of... https://www.cyberforum.ru/ turbo-pascal/ thread442326.html
Turbo Pascal Если в матрице наименьший элемент четный, создать массив из элементов главной диагонали, если нечетный, то из элементов, расположенных под главной ди Если в матрице наименьший элемент четный, создать массив из элементов главной диагонали, если нечетный, то из элементов, расположенных под главной диагональю. Заранее спасибо.	Turbo Pascal Определить длину введенной строки Ввести с клавиатуры строку символов. Признак окончания ввода - нажатие клавиши "enter". Программа должна определить длину введенной строки L, если длина L < 10, то удвоить каждый символ и все цифры уменьшить на 1. https://www.cyberforum.ru/ turbo-pascal/ thread442306.html

Puporev

Почетный модератор

64305 / 47602 / 32742

Регистрация: 18.05.2008

Сообщений: 115,182

07.02.2012, 19:11

Найти пары взаимно противоположных чисел - Turbo Pascal - Ответ 2468460

07.02.2012, 19:11. Показов 2332. Ответов 11

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки:');
readln(x,y);
if(x*x+y*y<=9)and((y>=2*x+2)or(y<=x-2)) then write('Принадлежит')
else write('Не принадлежит');
readln
end.

Вернуться к обсуждению:
Найти пары взаимно противоположных чисел Turbo Pascal

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

07.02.2012, 19:11

Готовые ответы и решения:

Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел
2)Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел;

На натуральном отрезке найти все пары взаимно простых чисел
На натуральном отрезке найти все пары взаимно простых чисел. Числа называются взаимно простыми,...

Определить, верно ли, что среди чисел есть хотя бы одна пара взаимно противоположных
Среди чисел а , б ,с есть хотя бы одна пара взаимно противоположных чисел : Составить программу...

Есть ли среди трех данных целых чисел хотя бы одна пара взаимно противоположных
Составить программу, проверяющую есть ли среди трех данных целых чисел хотя бы одна пара взаимно...

	07.02.2012, 19:11

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

07.02.2012, 19:11

Помогаю со студенческими работами здесь

Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел
.Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел.

Определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел
Определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.

Записать в файл и найти пары противоположных чисел
Здравствуйте, есть вот такая задача: Записать в файл последовательного доступа N целых чисел,...

Пара взаимно противоположных чисел
Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел. Буду...

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Наверх