Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
8 / 8 / 2
Регистрация: 03.03.2010
Сообщений: 90

Одномерный масссив

16.05.2010, 23:30. Показов 1154. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Мне надо было решить такую же задачу, но без массива...долго мучался, закидывал сюда своё решение но никто не помог исправить ошибку...программа работала, но выдавала только одну точку, до которой расстояние менее 4 единицы. Если так не решил,то в массиве по давно не решу.

Эту задачу нужно решить используя одномерный массив. Вот условие:

На плоскости заданы 9 точек своими координатами: (-4;2), (3;1), (4;-2), (3;-1), (0;4), (3;2) ,(-1;3), (6;-9), (4;5), (1;-9) и точка А(4;7). Вычислить сумму расстояний от точки А до остальных точек. Какие точки удалены от точки А на расстояние не менее 4 единиц?
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.05.2010, 23:30
Ответы с готовыми решениями:

Двумерный масссив...
Дана*целая*прямоугольная*матрица*размерности*NxM.*Найти*количество*четных*элементов*в*каждой*строке*и*упорядочить*строки*по*убыванию*этих*эл...

Масссив в обратном порядке
Дан массив, содержащий 10 реальных чисел. Преобразовать массив по следующему правилу: элементы массива расположить в обратном порядке. A

Дан двумерный масссив. Найти и вывести максимальный элемент каждой строки
Дан двумерный масссив. Найти и вывести максимальный элемент каждой строки. Turbo Pascal Проблема заключается в том, что не могу вывести...

1
 Аватар для STGE
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
17.05.2010, 01:15
Лучший ответ Сообщение было отмечено good91 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const x: array[1..10] of shortint=(-4,3,4,3,0,3,-1,6,4,1); 
         y: array[1..10] of shortint=(2,1,-2,-1,5,2,3,-9,5,-9);
         ax=4; ay=7;
var l: integer; i: byte; k: array[1..10] of integer; u: boolean;
begin
u:=false;
clrscr;
for i:=1 to 10 do
begin
k[i]:=sqrt(sqr(x[i]-ax)+sqr(y[i]-ay));
l:=l+k[i];
if k[i]>=4 then u:=true;
end;
writeln('сумма расстояний = ',l);
if u=true then
begin
writeln('точки удалённые от A на расстоянии не менее 4 единиц имеют порядковые номера: ');
for i:=1 to 10 do
if k[i]>=4 then write(i:3);
end
else writeln('все точки находятся на расстоянии менее 4 единиц от A');
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.05.2010, 01:15
Помогаю со студенческими работами здесь

Масссив: Вычислить разность сумм элементов первой и второй половины данной последовательности
Даны четное натуральное число n и последовательность a1..an .Составить программу ,которая вычисляет разность сумм элементов первой и второй...

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный массив,подскажите плз, как...

Одномерный масссив.
Помогите пожалуйста решить задачку: Рассчитать сумму положительных элементов одномерного массива. Заранее спасибо огромное за оказанную...

задачи на одномерный масссив
1. В массив A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К. 2. Дан массив действительных чисел,...

Как вывести одномерный масссив?
Вот код, но у меня выводит 0. Почему? using System; using System.Collections.Generic; using System.Linq; using System.Text; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru