Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Дан целочисленный массив A размера N. https://www.cyberforum.ru/ pascalabc/ thread399917.html Array57. Дан целочисленный массив A размера N. Переписать в новый це- лочисленный массив B того же размера вначале все элементы исходного массива с четными номерами, а затем — с нечетными: A2, A4, A6, . . ., A1, A3, A5, . . . . Условный оператор не использовать.	Pascal ABC Найти минимальный из его локальных максимумов Array35. Дан массив размера N. Найти минимальный из его локальных мак- симумов(локальный максимум — это элемент, который больше любого из своих соседей)
Pascal ABC Найти два различных элемента массива https://www.cyberforum.ru/ pascalabc/ thread399915.html 46.Дано число R и массив размера N. Найти два различных элемента массива, сумма которых наиболее близка (то есть такой элемент AK, для которого величина \|AK − R\| является минимальной) к числу R, и вывести эти эле- менты в порядке возрастания их индексов	Pascal ABC Обнуление максимальных элементов https://www.cyberforum.ru/ pascalabc/ thread399903.html Дан двумерный массив N*N, N<=10. В этом массиве те элементы, которые являются наибольшими в своём столбике и своей строке, необходимо обнулить. Вывести на экран сперва исходный массив, а затем массив с обнуленными максимальными элементами. Огромное спасибо за помощь! Добавлено через 19 часов 34 минуты Вопрос актуален, всё еще не могу разобраться
Найти глубину дерева, представляемую как наибольшая длина пути от корня к листьям. Pascal ABC В общем дано двоичное дерево надо была найти глубину дерева, представляемую как наибольшая длина пути от корня к листьям. Правильно ли прога это делает? uses crt; type PNode = ^Node; {Указатель на узел} Node = record {Тип запись в котором будет храниться информация} data: integer; left, right: PNode; {Ссылки на левого и правого сыновей}	Pascal ABC Тип.д. Set of https://www.cyberforum.ru/ pascalabc/ thread399847.html ________________
Pascal ABC abcpaskal https://www.cyberforum.ru/ pascalabc/ thread399843.html помогите пожалуйста соеденить 2 анимаций после нажатие пробела это кл #32 перешла на вторую анимацию uses crt,GraphABC; procedure popriguncik; var w,i,pic,x,y,y1: integer; var x0,y0,x2,y2,u,j,R: integer; xz: array of integer; yz: array of integer; begin	Строки Pascal ABC Добрый вечер! Задача: в файле в строке написаны числа (один, два и т.д.) нужно перевести числа ( 1, 2 и т.д.) и найти сумму всех чисел. Числа могут быть отриц. Написал программу, происходит поиск первого вхождения, после замена и сложение(это в кратце) Пример: девяносто один минус один десять Должно вывести сумму чисел во всех строках 100, однако выводит 80 - в этом и проблема, если в...
Pascal ABC соединить две анимаций в паскале https://www.cyberforum.ru/ pascalabc/ thread399733.html uses crt,GraphABC; procedure popriguncik; var w,i,pic,x,y,y1: integer; var x0,y0,x2,y2,u,j,R: integer; xz: array of integer; yz: array of integer; begin setwindowsize(500,500);	Pascal ABC Вычислить среднее геометрическое элементов векторов T (k), кратных трем https://www.cyberforum.ru/ pascalabc/ thread399725.html Уважаемые посететители форума, необходимв ваша помощь. Pascal Вычислить среднее геометрическое элементов векторов T(k), кратных трем.
Двумерные массивы и подпрограммы.. Pascal ABC 1. Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы, заданной матрицы, расположить их в соответствии с ростом характеристик(Оформить в виде процедуры). 2. Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент(Оформить в виде функции)... Добавлено через 13 часов 57 минут помогите...	Pascal ABC Set of https://www.cyberforum.ru/ pascalabc/ thread399705.html Всем доброго вечера. Мне надо вывести знаки арифметических операций и знаки препинания на экран с помощью типа данных Set of. Объясните пожалуйста как это можно сделать.

Африканыч

7 / 7 / 1

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

Сообщений: 40

06.12.2011, 10:31

Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой – остроугольный, прямоугольный или тупоугольный. - Pascal ABC - Ответ 2252373

06.12.2011, 10:31. Показов 13176. Ответов 3

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

Ответ

Сообщение от DiNkOO

найти произведение элементов, стоящих между максимальным и минимальным элементами.
...
for i:=min_index to max_index do

Наверное, наоборот:

Pascal

1	for i := max_index to min_index do

Строго говоря, так. Если по условию задачи.
Если же в любом случае, независимо от того, стоит ли минимальный элемент левее максимального или наоборот, нужно вычислить произведение элементов между ними, тогда так:

Pascal

 if (max_index > min_index) then begin
  for i := min_index to max_index do
  ...
 end else begin
  for i := max_index to min_index do
  ...
 end;

Добавлено через 33 минуты

Сообщение от Asem

Pascal

uses crt;
var x,y,z,k:integer;
begin
write(x,y,z);read(x,y,z);
k:=x+y+z;
if k=90 then write('прямоугольный');
if (k>90) and (k<180) then write('тупой');
if k<90 then write('острый');end.

Pascal

var x,y,z,k:real;
// (ввод значений x,y,z ; должно быть x>=y>=z)
// При условии ввода сторон в порядке невозрастания длин:
if ((x-y-z)>0) then write('никакой')
else begin
// k := (y*y + z*z - x*x)/(2.0*z*y);  - косинус угла между меньшими сторонами.
// однако нам нужен не сам угол, а только его тип (острый, прямой или тупой); 
// следовательно, - важно не само значение косинуса, а лишь его знак;
// поэтому просто:
k := y*y + z*z - x*x;
 if (k>0) then write('остроугольный')
 else if (k=0) then write('прямоугольный')
 else write('тупоугольный');
end;

Вот как-то так...

Вернуться к обсуждению:
Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой – остроугольный, прямоугольный или тупоугольный. Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.12.2011, 10:31

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

Даны длины 3-х отрезков. Можно ли из них составить тупоугольный, прямоугольный или остроугольный треугольник
Треугольник с углами Даны длины 3-х отрезков. Нужно сказать, можно ли из них составить...

Проверьте, можно ли построить треугольник из отрезков с длинами x,y,z, и, если можно, то будет ли он равнобедренным
Помогите пожалуйста) Проверьте, можно ли построить треугольник из отрезков с длинами x,y,z, и,...

Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z
Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой –...

Можно или построить треугольник из отрезков с длинами 1, 2, a?
Можно или построить треугольник из отрезков с длинами 1,2,a? Данные для ввода :1)a=2; 2)a=4.

	06.12.2011, 10:31

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.12.2011, 10:31

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

Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный треугольник
Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный...

Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный треугольник.
Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный...

Проверьте, можно ли построить параллелограмм из отрезков с длинами x, y, v, w
Проверьте, можно ли построить параллелограмм из отрезков с длинами x, y, v, w #include<iostream>...

Можно ли построить треугольник из отрезков с указанными длинами?
Здравствуйте, помогите пожалуйста решить задание. 1.13. Проверьте, можно ли построить...

Определить, можно ли из отрезков с длинами a,b,c построить треугольник
Определить, можно ли из отрезков с длинами a,b,cпостроить треугольник.

Проверить, можно ли из заданных отрезков построить прямоугольный треугольник
Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построит прямоугольный...

Наверх