Задачи с массивами

21.12.2011, 12:22. **Показов** 1157. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Текст задач:

Добавлено через 1 минуту
1)Дано множестве n точек на плоскости, заданных координатными парами (х,y). Найти две ближайшие.

Добавлено через 22 секунды
2)Дана матрица размером N*N. Определить, где положительных чисел больше - над главной диагональю (включая ее) или под ней (не включая главную диагональ). Построить функцию или фрагмент программы

Добавлено через 1 минуту
просьба помочь мне с их решением, код первой задачи я написал,но я не знаю почему он не работает :var x,y:real;
N:integer;
d:array[1..2,1..100] of real;
i,j,k:real;
begin
writeln ('введите n,количество точек');
readln (N);
For i:=1 to N do
readln(d[1,i],d[2,i]);
min:=sqrt(sqr(d[1,2]-d[1,1])+sqr(d[2,2]-d[2,1]));
for i:=1 to n do
for j:=1 to n do begin
if i<>j then
k:=sqrt(sqr(d[1,i]-d[1,j])+sqr(d[2,i]-d[2,j]));
if k<min then min:=k;
end;
end.

Добавлено через 16 секунд
помогите пожалуйста

@КонецСвета · 21.12.2011, 14:15

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

2)Дана матрица размером N*N. Определить, где положительных чисел больше - над главной диагональю (включая ее) или под ней (не включая главную диагональ). - фрагмент программы

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n,kn,kp: integer;
 
begin
write('Óêàæèòå ðàçìåð ìàññèâà ');
readln(n);
writeln('Äàíà ìàòðèöà');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(101)-50;
        write(a[i,j]:4);
        if (j>=i) and (a[i,j]>0) then inc(kn);
        if (j<i) and (a[i,j]>0) then inc(kp);
        end;
    writeln;
    end;
writeln('Êîëè÷åñòâî ïîëîæèòåëüíûõ íàä äèàãîíàëüþ ',kn);
writeln('Êîëè÷åñòâî ïîëîæèòåëüíûõ ïîä äèàãîíàëüþ ',kp);
if kn>kp then writeln('íàä äèàãîíàëüþ - áîëüøå') else
   if kn<kp then writeln('ïîä äèàãîíàëüþ - áîëüøå') else
      writeln('ðàâíîå êîëè÷åñòâî');
readkey
end.

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

Zeuzor

	Задачи с массивами 21.12.2011, 12:22. Показов 1157. Ответов 1 Метки нет (Все метки) Текст задач: Добавлено через 1 минуту 1)Дано множестве n точек на плоскости, заданных координатными парами (х,y). Найти две ближайшие. Добавлено через 22 секунды 2)Дана матрица размером NN. Определить, где положительных чисел больше - над главной диагональю (включая ее) или под ней (не включая главную диагональ). Построить функцию или фрагмент программы Добавлено через 1 минуту* просьба помочь мне с их решением, код первой задачи я написал,но я не знаю почему он не работает :var x,y:real; N:integer; d:array[1..2,1..100] of real; i,j,k:real; begin writeln ('введите n,количество точек'); readln (N); For i:=1 to N do readln(d[1,i],d[2,i]); min:=sqrt(sqr(d[1,2]-d[1,1])+sqr(d[2,2]-d[2,1])); for i:=1 to n do for j:=1 to n do begin if i<>j then k:=sqrt(sqr(d[1,i]-d[1,j])+sqr(d[2,i]-d[2,j])); if k<min then min:=k; end; end. Добавлено через 16 секунд помогите пожалуйста

Опции темы

Задачи с массивами

Решение