Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Заполнить массив из N вещественных чисел случайным образом. Отсортировать его по возрастанию 2 способами Заполнить массив из N вещественных чисел случайным образом. Отсортировать его по возрастанию 2 способами (например, пузырьком и простыми вставками, либо иной сортировкой на ваш выбор). Пузырьковая сортировка массива. Реализация: for i := 1 to m - 1 do for j := 1 to m - i do if mas > mas then begin k := mas; mas := mas ; mas := k end; https://www.cyberforum.ru/ pascalabc/ thread1012554.html	задача на решение уравнения Pascal ABC Дан массив состоящий из десяти строк.В каждой строке по три числа. Нужно проверить каждую строчку и выяснить,можно ли решить с ними уравнение.Если да,то решить и вывести на экран решение. турбо паскаль или абс.
Pascal ABC Определить является ли целая часть числа m/n четной https://www.cyberforum.ru/ pascalabc/ thread1012485.html Помогите с задачами пожалуйста 1) Определить является ли целая часть числа m/n четной. Если она четная, то m возвести в квадрат, иначе n утроить. 2) Ввести 3 числа A, B, C. Вывести все пары чисел одного знака.	Pascal ABC Упорядочить одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем нечетные – в порядке убыван Упорядочить одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем нечетные – в порядке убывания их значений. https://www.cyberforum.ru/ pascalabc/ thread1012484.html
Найти сумму элементов массива, кратных пяти Pascal ABC Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку . Найти сумму элементов массива, кратных пяти. Закрасить указанные элементы.(Оставлять после запятой не более трех цифр)	Pascal ABC Удаление символов перед "#" https://www.cyberforum.ru/ pascalabc/ thread1012395.html Дан текст, заканчивающийся точкой. Среди символов текста особую роль играет символ #, появление которого в тексте означает удаление предыдущего символа. Соответственно, k символов # подряд отменяют k предыдущих символов текста, если таковые имеются на текущей строке. Требуется написать программу, преобразующую текст с учетом указанного значения символа #. 1)Если в какой-то момент перед...
Pascal ABC Определить день недели Составить программу определения дня недели (воскресенье, понедельник, вторник. среда, четверг, пятница, суббота) n. на который приходится день с заданной датой (число,месяц) считая, что год невисокосный и что 1 января приходится на день недели n1 https://www.cyberforum.ru/ pascalabc/ thread1012392.html	Pascal ABC Изменение программы квадратного уравнения Народ нужна помощь, есть програмка по решению квадратного уравнения: Program kvur; uses crt; var a,b,c,d,x:real; BEGIN ClrScr; WriteLn('Введите A,B,C (для решения квадратного уравнения)'); readln(a,b,c); d:=sqr(b)-4ac; if d<0 then
Pascal ABC Двумерные массивы Привет всем. Дана матрица А - места в вагоне. Заполнить ее рядом натуральных чисел от 1 до 48. Записать матрицу. 1) Выбрать N произвольных мест и заменить нулями. Матрицу вывести на экран. 2) Определить оставшееся число четных и нечетных (верхних и нижних мест). 3)Транспонировать матрицу А - заменить строки столбцами. Матрицу вывести на экран. Добавлено через 13 часов 45 минут ап! https://www.cyberforum.ru/ pascalabc/ thread1012388.html	Pascal ABC Программа Подскажите пожалуйста , не могу разобраться в программе 1) С клавиатуры вводится три строки вида Фамилия пробел Имя пробел Рост. Определить фамилию и имя самого высокого человека З.Ы. массивы не проходили, прошли только действия над строками https://www.cyberforum.ru/ pascalabc/ thread1012374.html
Pascal ABC Транспонировать матрицу Привет всем. Решите пожалуйста. Скрин обрезан. Матрицу нужно вывести на экран.	Pascal ABC паскаль записи TYPE CLASS=RECORD N:INTEGER; List:ARRAY of STRING; END; VAR School:ARRAY of CLASS; i,j,k,m:INTEGER; BEGIN https://www.cyberforum.ru/ pascalabc/ thread1012366.html

ildwine

Супер-модератор

6192 / 2938 / 1300

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

Сообщений: 5,780

Записей в блоге: 1

20.11.2013, 08:49

Определить принадлежность точки окружности - Pascal ABC - Ответ 5361055

20.11.2013, 08:49. Показов 4747. Ответов 2

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

Ответ

Pascal

var
  x, y, r : real;
begin
  write('введите координаты точки: ');
  readln(x, y);
  repeat
    write('введите радиус окружности: ');
    readln(r)
  until r > 0;
  if sqr(x) + sqr(y) > sqr(r) then writeln('вне окружности') else
    if sqr(x) + sqr(y) = sqr(r) then writeln('на окружности') else
      writeln('внутри окружности')
end.

Вернуться к обсуждению:
Определить принадлежность точки окружности Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

20.11.2013, 08:49

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

Определить принадлежность точки фигуре
Задание 59 и.Самый правый график. Сделал программу вроде должна работать, но при каждом введеном...

Определить принадлежность точки фигуре
Разработать программу, которая позволяет выяснить, попадает ли ведомый набор координат (Х, у) В...

Определить принадлежность точки заштрихованной области
Составить программу ,которая печатает true,если точка с координатами (x,y) принадлежит...

Определить принадлежность точки заштрихованной области
Нужно написать программу, в которой вводится значение точки (x) (y), и праграмма вычисляет...

	20.11.2013, 08:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

20.11.2013, 08:49

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

Определить принадлежность точки заштрихованной области
Точка А задана координатами X,Y. Написать программу, которая выводит слово «Принадлежит», если...

Определить принадлежность точки закрашенной области
помогите написать прогу

Определить принадлежность точки заштрихованной области
паскаль выдает ошибку :НЕВЕРНОЕ ВЫРАЖЕНИЕ program z1; var x,y :real; begin write ('введите ...

Наверх