Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Объединить массивы: разместить в новый массив сначала первый по убыванию, затем второй по возрастанию https://www.cyberforum.ru/ pascal/ thread1157341.html
Прошу расписать задачу полностью (от вара до энда) в рамках 7-ого класса. Спасибо! 1) Объединить массивы А и В так, чтобы сначала располагались в порядке убывания элементы массива А, а затем в порядке возрастания элементы массива B. 		Отсортировать четные строки двумерного масива по возрастанию Pascal
Отсортировать четные строки двумерного массива по возрастанию.
Pascal Из последовательности слов напечатать все слова, отличные от последнего слова Надо написать программу, а я в программирование не силен. Дана непустая последовательность слов, содержащая от 1 до 8 букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, отличные от последнего слова. https://www.cyberforum.ru/ pascal/ thread1157228.html Pascal Переменной L присвоить значение True, если в массиве нечетное число элементов https://www.cyberforum.ru/ pascal/ thread1157015.html
Создать файл, содержащий массив целых чисел. Определить количество элементов массива. Переменной L присвоить значение True, если в массиве нечетное число элементов, и значение False в противном случае.Спасибо заранее
Вводится предложение. Удалить из него 2, 3 и 5 слова Pascal
Вводится предложение. Удалить из него 2, 3 и 5 слова. 		Pascal Ошибка 207 в рекурсивной функции https://www.cyberforum.ru/ pascal/ thread1156885.html
Здравствуйте! Волею судеб пришлось вспоминать Паскаль в свои преклонные годы. Вот такая примитивная задача: Найти сумму членов ряда 1\(i*i), где i от 1 до n. Все это дело вылилось в такой код: program test; uses crt; var n: byte;
Pascal Шифрование. В выходной файл вывести единственную строку, в котором содержится расшифровано сообщение https://www.cyberforum.ru/ pascal/ thread1156839.html
В первой строке входных данных записано закодированное сообщение . Вторая строка - 26 латинских букв верхнего регистра , задающие код для соответствующего символа алфавита: первый символ дает код для буквы , которая стоит от него справа через один символ в данной строке , и т.д. , предпоследний будет соответствовать первому символу , последний - второму. Используются только буквы верхнего... 		Pascal Вывести все возможные способы расстановки n тур (бьют по вертикали или горизонтали) на шахматной доске
Есть задача: нужно вывести все возможные способы расстановки n тур (бьют по вертикали или горизонтали) на шахматной доске (n*n). Задачу нужно решить методом поиска с возвращением. Желательно разбить всё по процедурам и функциям как-можно детальнее. Учитель показывал алгоритмом, но не запомнил его. Там было, на примере n=3: есть 2 указателя (x,y) , сначала они x=1 y=1 , проверяем ячейку ...
Pascal Подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом (Ссылка на сторонний ресурс удалена) Требуется подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом. Формат входных данных На вход программы поступает целое число N (1N100). Формат выходных данных Выведите количество искомых последовательностей. Пример Входные данные 5 Выходные данные 13 https://www.cyberforum.ru/ pascal/ thread1156702.html Pascal Для каждого элемента последовательности найти среднее значение его цифр Вводится последовательность из н целых элементов. Для каждого элемента последовательности найти среднее значение его цифр. Создать функцию для расчета среднего значения цифр в числе. https://www.cyberforum.ru/ pascal/ thread1156548.html
Pascal Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток
Идет k-я секунда суток. Определить полное количество часов и минут, прошедших от начала суток. 		Pascal Преобразовать стек в очередь https://www.cyberforum.ru/ pascal/ thread1156351.html
Program rabotniki; uses crt; Type elementtype=record nam:string; dat:string; adr:string; end;
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
26.04.2014, 06:51 0

Дан массив. Получить все числа, которые входят в последовательность по 1-му разу - Pascal - Ответ 6089874

26.04.2014, 06:51. Показов 1366. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Pascald как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Const nmax=100;
Var A:array[1..nmax] of integer;
    i,j,n,k:byte;
Begin
    write('Введите 1<=n<=',nmax,': ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(11);
      write(A[i]:3);
    End;
    writeln;
    writeln('Числа,которые входят по 1 разу');
    For i:=1 to n do
    Begin
      k:=0;
      For j:=1 to n do
       if A[i]=A[j] then inc(k);
      if k=1 then write(A[i]:3);
    End;
    readln;
End.


Вернуться к обсуждению:
Дан массив. Получить все числа, которые входят в последовательность по 1-му разу Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 26.04.2014, 06:51
Готовые ответы и решения:

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все числа, которые входят...

Получить все числа которые входят в последовательность по одному разу
помогите написать программу даны целые числа A1..........An. получить все числа которые входят в...

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

Получить все числа, которые входят в последовательность по одному разу
ввести с клавиатуры целое число n , целые числа a0,,,,,,,,an-1 (в последовательности могут быть...

1
26.04.2014, 06:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 26.04.2014, 06:51
Помогаю со студенческими работами здесь

Получить все числа, которые входят в последовательность по одному разу
Люди,пожалуйста,помогите решить задачу.я в VBA полный ноль,экзамены и сессия на носу,нужно рещить...

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n 20). Получить все числа, которые входят в...

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n ≤ 20). Получить все числа, которые входят в...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru