|
|
Другие темы раздела | |
Pascal Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово. Программу надо написать в Pascal ABC. Заранее спасибо))) https://www.cyberforum.ru/ pascal/ thread510968.html |
Тип данных множество. Pascal Дан текст из строчных латинских букв, за которым следует точка. Определить каких букв-гласных (a,e,o,i,u) или согласных - больше в этом тексте. Программу надо написать в Pascal ABC. Заранее спасибо))) |
Pascal Даны матрицы A и B порядка n. Получить матрицу AB-BA. Даны матрицы A и B порядка n. Получить матрицу AB-BA. Программу нужно составить в Pascal ABC.Заранее спасибо))) https://www.cyberforum.ru/ pascal/ thread510966.html | Pascal Определить, является ли строка набором симметричных символов и подсчитать длину текста и еще одну нужно тут)) Дана символьная строка. Определить, является ли она набором симметричных символов и подсчитать длину текста. Может, кто знает???:) https://www.cyberforum.ru/ pascal/ thread510960.html |
Удаление дублирующихся букв из строки Pascal плииз, кто-нибудь)))дана символьная строка, если какой то символ встречается в ней более одного раза подряд, то оставить только один, подсчитать длину сформировавшегося текста |
Pascal цикл с условием
https://www.cyberforum.ru/ pascal/ thread510957.html хелп с задачей: Гражданин 1 марта открыл счет в банке, вложив 1000 рублей. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить через сколько месяцев размер вклада превысит 1200р. |
Pascal Работа с файлами на паскале
https://www.cyberforum.ru/ pascal/ thread510949.html Почти готово, не могу расчитать средние рост и вес -_- Файл содержит сведения о школьниках: фамилия, имя, рост и вес. Выведите список школьников, рост которых превышает задаваемую величину, и определите их средние показатели роста и веса. Среди всех найдите самого высокого школьника. program pr; uses crt; Var vvod,vivod:text; f:string ; i:string ; s,s1,s2,s3,s4,s5,s6,s7: string; ... |
Типизированные файлы Pascal Помогите с составлением кода по теме типизированные файлы. Тоже условие задачи по теме Записи(STRING) у меня есть. Как связать это с типизированными файлами. Спасибо за помощь. Разработать программу записи подготовленных данных во внешний файл, вывод исходных данных из файла, добавление данных в файл и обработка данных согласно варианту: Студенты получающие стипендию (со средним баллом на... |
Pascal перестановка строк в матрице Необходимо написать программу которая должна переставлять местами строки между собой. (четные и нечетные). вот то до чего я додумал Program df; const n = 6; m = 6; type t1 = array of integer; https://www.cyberforum.ru/ pascal/ thread510940.html |
Pascal Упорядочить массив
https://www.cyberforum.ru/ pascal/ thread510937.html Заполнить массив случайными числами : 1. Вывести на экран сумму положительных и отриццательных элементов массива 2. Найти кол-во эллементов равных нулю 3. Упорядочить массив по возрастанию 4. Упорядочить массив по убыванию, перед этим заменив все отриццательные числа на положительные Всего должно получится 4 программы. Помогите пожалуйста. Спасите девушку от 2))) |
Pascal Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее. |
Pascal помогите решить пожалуйста( Ребят помогите кто сможет, хоть 1 задачу решить(а то уже надо сдавать контрольную по программированию, а я вообще не догоняю(((( 1. Дана действительная матрица размера m x n. Определите числа b1, b2, …, bm равные соответственно суммам элементов строк. 2. В массиве A , состоящем из целых чисел, найдите самую длинную последовательность идущих подряд нулей. Укажите начало и конец. 3. Дана... https://www.cyberforum.ru/ pascal/ thread510928.html |
maris
|
|
0 | |
Написать программу для нахождения сумм расстояний от заданных точек до фиксированной прямой (в пространстве) - Pascal - Ответ 275393501.12.2011, 19:49. Показов 1085. Ответов 5
Метки (Все метки)
Программа почему-то не считает сумму..., проверьте пожалуйста...
Задание. Написать программу для нахождения сумм расстояний от заданных k (k<=10) точек до фиксированной прямой (в пространстве). Подготовить и использовать процедуру определения расстояния от точки до прямой (в пространстве). Код: program proga; uses crt; const Kmax=10; var S: real; a,b,c: real; K,i: integer; var x,y,z: array [1..Kmax] of real; function calcdist(var a,b,c,x,y,z: integer):real; begin calcdist:=(a*x+b*y+c)/sqrt (a*a+b*b); end {calcdist}; begin write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© a: '); readln (a); write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© b: '); readln (b); write ('‚ўҐ¤ЁвҐ §**зҐ*Ёп Їаאַ© c: '); readln (c); write ('‚ўҐ¤ЁвҐ зЁб«® в®зҐЄ (<=10) '); readln (K); for i:= 1 to K do begin readln (x[i],y[i],z[i]); end; S:=0; for i:= 1 to K do begin l:= (a*x[i]+b*y[i]+c)/ sqrt(a*a+b*b); end {l}; begin for i:= 1 to K do; S:=S+l; for i:= 1 to K do readln (S); end. Вернуться к обсуждению: Написать программу для нахождения сумм расстояний от заданных точек до фиксированной прямой (в пространстве) Pascal |
01.12.2011, 19:49 | |
Готовые ответы и решения:
5
Помогите пожалуйста...Программа для нахождения сумм расстояний.... Написать программу для нахождения площади полой прямой призмы с трапецией в основании Написать программу для нахождения инвариантных точек и прямых Дано m точек в n-мерном пространстве. Упорядочить точки по неубыванию их расстояний |
01.12.2011, 19:49 | |
01.12.2011, 19:49 | |
Помогаю со студенческими работами здесь
0
Написать (переделать) программу с использованием ссылок в качестве параметров функций для нахождения минимального элемента из 3-х заданных Написать программу, определяющую номера точек, расположенных ближе всего друг к другу, среди n заданных точек Дано n точек в пространстве. Упорядочить точки по неубыванию их расстояний до начала координат Дано n точек в пространстве, упорядочить точки по неубыванию их расстояний до начала координат |