|
|
Другие темы раздела | |
Turbo Pascal Зеркально отразить элементы матрицы относительно побочной диагонали
https://www.cyberforum.ru/ turbo-pascal/ thread302887.html Дана кв. матрица N*M, состоящая из натуральных чисел. Зеркально отразить её элементы относительно побочной диагонали и вывести результат на экран. uses crt; var mas:arrayof integer; i,j,tmp,n:integer; begin |
Найти площадь n-угольника, вершины которого заданы Turbo Pascal составьте пожайлуста программу Дано науральное n, действительные числа х1,х2,y1, y2...xn,yn.Обчислить плошадь n-угольника,вершины которого при какомто последовательном обходе имеют координаты(х1,y1), (x2,y2)...(xn,yn). (Вычисление площади триугольника за координатами его вершин оформить в виде подпрограммы) |
Turbo Pascal За один проход цикла найти два максимальных значения среди всех данных и удалить их
https://www.cyberforum.ru/ turbo-pascal/ thread302869.html Задача: За один проход цикла найти два максимальных значения среди всех данных и удалить их. Затем добавить в начало данных число, равное среднему арифметическому удаленных максимальных значений. procedure lin_din_spis; procedure print_lin_din_spis(root:uk); begin while(root<>nil)do begin write(root^.chi,' '); root:=root^.adr; end; |
Turbo Pascal Создать список К-тый элемент которого содержит сумму первых К введенных чисел
https://www.cyberforum.ru/ turbo-pascal/ thread302865.html С клавиатуры вводится несколько целых чисел. Создать список К-тый элемент которого содержит сумму первых К введенных чисел . например вводится - 2 3 8 1 - ответ должен быть таким - 2 5 13 14- но нижняя пр. сумирует по две нужно ее чуть переделать. помогите пожалуйста ! program Project1; type (*Тип, описывающий элемент списка.*) TPElem = ^TElem; TElem = record Data :... |
Turbo Pascal Выполнить через функцию. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях. тут выполнена не через функцию, нужно сделать через функцию. program z3 uses crt; var m,m1:arrayof integer; i,j,n,k:integer; begin |
Turbo Pascal Создать список К-тый элемент которого содержит сумму первых К введенных чисел С клавиатуры вводится несколько целых чисел. Создать список К-тый элемент которого содержит сумму первых К введенных чисел . например вводится - 2 3 8 1 - ответ должен быть таким - 2 5 13 14- но нижняя пр. сумирует по две нужно ее чуть переделать. помогите пожалуйста ! program Project1; type (*Тип, описывающий элемент списка.*) TPElem = ^TElem; TElem = record Data :... https://www.cyberforum.ru/ turbo-pascal/ thread302858.html |
Turbo Pascal Ошибка в типе.
https://www.cyberforum.ru/ turbo-pascal/ thread302839.html var n,x,i:integer; z:arrayof integer; a,b:file of integer; sr:real; begin assign(a,'путь к файлу'); assign(b,'путь к файлу'); {$I-} reset(a); |
Turbo Pascal вывести строку символов, состояую из латинских букв,цифр и пробелов. осуществить проверку правильности выведенных символов вывести строку символов, состояую из латинских букв,цифр и пробелов. осуществить проверку правильности выведенных символов |
Turbo Pascal Даны указатели Р1 и P2 на начало и конец непустой очереди
https://www.cyberforum.ru/ turbo-pascal/ thread302821.html Даны указатели Р1 и P2 на начало и конец непустой очереди. Извлекать из очереди элементы, пока значение начального элемента очереди не станет четным, и выводить значения извлеченных элементов (если очередь не содержит элементов с четными значениями, то извлечь все ее элементы). Вывести также новые адреса начала и конца очереди (для пустой очереди дважды вывести nil). После извлечения элементов из... |
Turbo Pascal Дан указатель Р1 на вершину непустого стека Дан указатель Р1 на вершину непустого стека. Создать два новых стека, переместив в первый из них все элементы исходного стека с четными значениями, а во второй — с нечетными (элементы в новых стеках будут располагаться в порядке, обратном исходному; один из этих стеков может оказаться пустым). Вывести адреса вершин полученных стеков (для пустого стека вывести nil). Операции выделения и... https://www.cyberforum.ru/ turbo-pascal/ thread302820.html |
Построить массив, элементы которого соответствуют элементам y (i) Turbo Pascal ребят помогите плиз срочно. сдаю экз. прогу нужно написать. вот задание дан масив у1,..у20. построить массив z1,..z20,элементы которого соответствуют элементам y(i),сдвинутым на одну позицию,т.е z1=y2,z2=y3,...z20=y1. уножить все элементы z(i) на 2 плизззз момогите. Добавлено через 5 минут пожалуйста люди добрые момогите!!! хелпп |
Turbo Pascal Трансформация фигур Мне нужна программа про трансформацию фигур (квадрат вытянулся в прямоугольник,прямоугольник превратился в ромб - это как пример). Может кто знает код такой программы или может дать совет как это сделать, буду очень благодарен. https://www.cyberforum.ru/ turbo-pascal/ thread302804.html |
0 / 0 / 0
Регистрация: 03.03.2011
Сообщений: 4
|
|
24.05.2011, 19:54 [ТС] | 0 |
Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга - Turbo Pascal - Ответ 168629124.05.2011, 19:54. Показов 741. Ответов 2
Метки (Все метки)
Ответ
ап.
help please Вернуться к обсуждению: Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга Turbo Pascal
0
|
24.05.2011, 19:54 | |
Готовые ответы и решения:
2
Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга Найти среди точек пару наиболее удаленных друг от друга Определить пару наиболее удаленный друг от друга точек. Определить пару наиболее удаленных друг от друга точек |
24.05.2011, 19:54 | |
24.05.2011, 19:54 | |
Помогаю со студенческими работами здесь
0
Определить пару наиболее удаленных друг от друга окружностей Движение окон по часовой стрелке, не перекрывающих друг друга Рекурсия: найти пару треугольников, максимально удаленных друг от друга Избежать смешивания цветов при наложении цветных кругов друг на друга |