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

Определить, сколько разных элементов содержит данный массив

18.03.2010, 17:13. Показов 3056. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1) по разветвляющимся алгоритмам
Написать программу, которая определяет, к какой четверти плоскости принадлежит точка с координатами Х,У?

2) по массивам
Определить, сколько разных элементов содержит данный массив. Записать в порядке возрастания порядковые номера равных элементов массива.

3) по циклическим алгоритмам.
Найти сумму целых положительных чисел, кратных 4 и меньше 100
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.03.2010, 17:13
Ответы с готовыми решениями:

Определить, сколько разных символов содержит строка
Задана символьная строка, определить сколько разных символов она содержит. ...

Определить, сколько места занимает в динамической памяти данный массив
Даны квадратная матрица A. Элементы вектора и матрицы задаются случайным образом. Размерность матрицы не ограничена (в рамках динамической...

Сколько положительных элементов содержит массив?
алгоритм программы: Дано натуральное число n. Выяснить, сколько положительных элементов содержит массив A, если aij = sin(i+j/2).

1
 Аватар для koorya
334 / 181 / 68
Регистрация: 18.03.2010
Сообщений: 586
Записей в блоге: 11
18.03.2010, 17:58
Лучший ответ Сообщение было отмечено Nazeka как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
    x,y:integer;
begin
    clrscr;
  readln(x,y);
  if x>0 then
     if y>0 then
        writeln('I')
     else
         writeln('II') 
  else
     if x<0 then
     if y>0 then
        writeln('III')
     else
         writeln('IV')
     else writeln('находиться на какой-то из осей');
 
 
    readln;
end.
насчет расположения плоскостей я не уверен, но там по логике догадаться не трудно, что подправить

Добавлено через 27 минут
3)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
const n=10;
var
   i,s:integer;
begin
    clrscr;
  s:=0;
  for i:=1 to 100 do
      if i mod 4=0 then
         s:=s+i;
  writeln(s);
    readln;
end.
второе позже может быть
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.03.2010, 17:58
Помогаю со студенческими работами здесь

Определить, сколько различных чисел содержит целочисленный массив
Определить, сколько различных чисел содержит целочисленный массив . Например, в массиве (5, 8, 5, 7, 8) таких чисел три: 5, 7 и 8....

Определить, сколько различных чисел содержит целочисленный массив
Определить, сколько различных чисел содержит целочисленный массив X(n). Например, в массиве (5, 8, 5, 7, 8) таких чисел три: 5, 7 и 8. ...

Определить, сколько различных чисел содержит целочисленный массив
3. Определить, сколько различных чисел содержит целочисленный массив . Например, в массиве (5, 8, 5, 7, 8) таких чисел три: 5, 7 и 8.

Определить сколько различных чисел содержит целочисленный массив
определить сколько различных чисел содержит целочисленный массив Х(н)!! например в массиве (5,8,5,7,8) таких чисел три: 5,7,8

Определить, сколько различных чисел содержит целочисленный массив
Определить, сколько различных чисел содержит целочисленный массив X(n). Например, в массиве (5, 8, 5, 7, 8) таких чисел три: 5, 7 и 8. ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru