Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0) https://www.cyberforum.ru/ pascal/ thread1387623.html Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0) решить используя циклы Кумир	Pascal Сформировать на экране изображения (случайные эллипсы, сектора, пиксели) Cоставить программу на паскале, которая формирует на экране изображения (случайные эллипсы, сектора, пиксели) В программе должны быть комментарии поясняющие принцип работы) Помогите, очень нужно.
Pascal Использование указателей для создания связанных списков На аптечном складе хранятся лекарства. Сведения о лекарствах содержаться в специальной ведомости: наименования лекарственного препарата; количество; цена; срок хранения( в месяцах). Выяснить какие препараты имеют срок хранения более трех месяцев . Добавлено через 9 минут использование указателей для создания связанных списков!!! https://www.cyberforum.ru/ pascal/ thread1387072.html	Pascal Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г https://www.cyberforum.ru/ pascal/ thread1387063.html Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г.
Pascal Подсчитать сумму нечётных чисел до первого нулевого значения (используя while) подсчитать сумму нечётных чисел до первого нулевого значения (используя while) написал с "for" но нужно обязательно с "while"	Pascal Составить алгоритм и программу для вычисления значений функций, указанных в таблице, при различных значениях x Всем добрый вечер! Столкнулся с проблемами из за задания которое не понимаю до конца :) А звучит так: Составить алгоритм и программу для вычисления значений функций, указанных в таблице, при различных значениях x. Диапазон изменения аргумента задан в таблице. Все функции должны вычисляться в одном общем цикле. Проблема: Как видно по коду я делать могу только без цикла, а вот как в одном... https://www.cyberforum.ru/ pascal/ thread1386984.html
Pascal Операции над множествами Выполнить операции над заданными множествами (A Δ B) ∩ C, где A Δ B = (A U B) \ (A ∩ B) = (A \ B) U (B \ A) реализуя множества двумя способами. Способ 1. Использовать встроенные средства языка Паскаль для описания множества. Способ 2. На базе вектора (одномерного массива). а) вектор, тип элементов которого совпадает с базовым типом элементов множества; б) ... https://www.cyberforum.ru/ pascal/ thread1386648.html	Задача на отзеркаливание массива Pascal Привет форумчане. Требуется ваша помощь. Имеется одномерный массив с определенными числами. Скажем размер массива N. Представим, что в ячейках записаны данные 987654321 в 1,2,3,4 и так далее ячейке соответственно. Мне необходимо отсортировать массив таким образом, что бы данные были в обратном порядке. Не обязательно, что это будет именно такая последовательность, она может иди в любом...
Pascal Сортировка выбором четных строк двумерного массива https://www.cyberforum.ru/ pascal/ thread1386525.html Здравствуйте! Нужно отсортировать по возрастанию в двумерном массиве целых случайных чисел только четные строки. Использовать метод прямого выбора.	Pascal Разработать процедуру, которая добавляет после і-ого элемента копию j-ого https://www.cyberforum.ru/ pascal/ thread1386475.html Создать двухсвязный список. Разработать процедуру, которая добавляет после і-ого элемента копию j-ого. Заранее спасибо!
Pascal Изменить код программы так чтобы работа происходила с консолью а не с файлом Помогите изменить код программы так чтобы работа происходила с консолью а не с файлом. USES Crt; TYPE path = STRING; Stroca = STRING; Simvol = array of CHAR; MATR = array of RECORD STROK, STOLB: Byte; END; CONST INDEX: Simvol = (('А', 'Ж', 'Б', 'М', 'Ц', 'В'),	Pascal Найти и напечатать сумму элементов на четных позициях и сумму элементов, кратных 2 Ввести одномерный массив из N целых чисел. Найти и напечатать сумму элементов на четных позициях и сумму элементов, крастных 2.(КУмир/Паскаль) https://www.cyberforum.ru/ pascal/ thread1385412.html

bormant

Модератор

7769 / 4598 / 2823

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

Сообщений: 13,076

Записей в блоге: 1

09.03.2015, 21:45

В строке и в векторе из 10 компонентов подсчитать количество элементов с одинаковыми порядковыми номерами - Pascal - Ответ 7319652

09.03.2015, 21:45. Показов 887. Ответов 15

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

Ответ

Сообщение от ФедосеевПавел

Как их сравнивать???

Вероятно, имелось в виду следующее:
В строке и в векторе из 10 компонентов подсчитать количество равных элементов с
одинаковыми порядковыми номерами, используя нетипизированный параметр в подпрограмме.
Тогда, например, так:

Pascal

type
  TVector = array [1..10] of Integer;
 
function CountEq(var v, s): Integer;
var
  vv: TVector absolute v;
  ss: String absolute s;
  i, r: Integer;
begin
  r:=0; i:=Length(ss);
  if i>10 then i:=10;
  for i:=1 to i do
    if vv[i]=Ord(ss[i]) then Inc(r);
  CountEq:=r;
end;

Вернуться к обсуждению:
В строке и в векторе из 10 компонентов подсчитать количество элементов с одинаковыми порядковыми номерами Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.03.2015, 21:45

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

Подсчитать количество элементов с одинаковыми порядковыми номерами
В строке и в векторе из 10 компонентов подсчитать количество элементов с одинаковыми порядковыми...

Подсчитать количество элементов с одинаковыми порядковыми номерами
Используя нетипизированный параметр в подпрограмме, в строке и в векторе из 10 компонентов...

В логическом векторе подсчитать число элементов с четными номерами
В логическом векторе подсчитать число элементов с четными номерами, имеющими значение FALSE.

В логическом векторе подсчитать число элементов с четными номерами,имеющими значение false.
очень прошу,помогите решить одну задачу. Задача: В логическом векторе С подсчитать число элементов...

	09.03.2015, 21:45

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.03.2015, 21:45

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

Подпрограммы. Вычислить количество и сумму элементов, значения которых совпадают с порядковыми номерами.
Задана последовательность чисел. Вычислить количество и сумму элементов, значения которых совпадают...

Наверх