Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Заменить все отрицательные элементы массива на его среднее арифметическое Прочитать n чисел, где n не больше 1000 в одномерном массиве, распечатать выводной файл и заменить все отрицательные значения на ср. арифметическое из этого массива и ещё раз распечатать массив. Нужно составить блок схему, но кто может, помогите с алгоритмом, а блок схему попробую сделать сама) спасибо заранее) https://www.cyberforum.ru/ turbo-pascal/ thread409388.html	Turbo Pascal В массиве нужно заменить каждый элемент на среднее аримм.своих соседей Помогите, пожалуйста! Не используя другого массива, заменить каждый элемент массива на среднее арифметическое своих соседей(первый и последний считаются соседними)
Turbo Pascal матрица по спирали. https://www.cyberforum.ru/ turbo-pascal/ thread409367.html Сформировать квадратную матрицу порядка n (размерностью не меньше 3 и не больше 10) по заданному образцу. 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9 заранее благодарен)	Turbo Pascal Представить длинное число в экспоненциальной форме https://www.cyberforum.ru/ turbo-pascal/ thread409331.html Доброго времени суток! Столкнулся с небольшой проблемой в курсовой работе: Написал программу, предназначенную нахождения значений функции, заданной в виде разложения в ряд. Результат вывожу таблицей: номер по порядку, значение аргумента, соответствующие ему, значение функции и номер члена ряда, на котором закончилось вычисление значение функции. Суть проблемы в том, что для некоторых...
Turbo Pascal Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сформировать переменную Bagaj, содержащую сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно-действительное (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее...	Turbo Pascal Сменить текущий каталог на созданный https://www.cyberforum.ru/ turbo-pascal/ thread409315.html 1. Создать каталог под именем РК11. 2. Сменить текущий каталог на созданный. 3. В редакторе Блокнот создать текстовый файл и сохранить в корневом каталоге диска D:. 4. Скопировать файл в созданный каталог. 5. Вывести на экран текущее время и дату. 6. Установить текстовый режим. 7. Установить текстовое окно размером (3 8 27 17). Фон – 7, цвет текста в диапазоне 0-14. 8....
Turbo Pascal нужно разобраться с примером. Всем доброго времени суток! Прошу вас помогите разобраться. Нужно решить задание 5.91... а я не знаю правильно ли я рассуждаю . Вот мои код var a, b , c, i: integer; s:real; begin s:=0; for i:=1 to 50 do begin s:=sqrt(i)+ S; writeln(s); end; end. https://www.cyberforum.ru/ turbo-pascal/ thread409314.html	Записи и поиск в них Turbo Pascal Здравствуйте. Пожалуйста подскажите... Вот задача: 1. В библиотеке имеется список книг. Каждая запись этого списка содержит фамилии авторов, название книги, год издания. Определить, имеются ли в данном списке книга, в названии которых встречается некоторое ключевое слово (например, "simvol"). Если имеются, то выдать на печать фамилии авторов, название и год издания всех таких книг. Ключевое...
Turbo Pascal В массиве определить количество соседств различных чисел https://www.cyberforum.ru/ turbo-pascal/ thread409279.html в заданном одномерном числовом массиве определить количество соседств различных чисел	Turbo Pascal РАБОТА С ОЧЕРЕДЬЮ https://www.cyberforum.ru/ turbo-pascal/ thread409265.html Сначала нужно сформировать и заполнить элементами структуру «очередь». Для проверки вывести ее на экран. Из «очереди» удалить три элемента и поместить их в конец той же «очереди». Результат проверить. Помогите, пожалуйста, я запутался и никак не могу разобраться: как можно переместить три элемента в конец очереди:(. Вот код: Program SpizMass; Uses WinCrt; Type Queue=^pQueue; {для...
Количество соседств различных чисел Turbo Pascal в заданном одномерном числовом массиве определить количество соседств различных чисел	Turbo Pascal Найти количество слов, число букв в которых равно количеству предыдущих слов Найти количество слов, число букв в которых равно количеству предыдущих слов, конец ввода F2. Вот всё что смог сделать но всё таки не работает,если есть возможность можно с блок схемой ..помогите плз (((.!!!!!!! program ghg; var s:string;cw:integer;pwc:integer;wg:integer;i:integer; begin readln(s); wg:=1; cw:=0; https://www.cyberforum.ru/ turbo-pascal/ thread409260.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

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

Сообщений: 5,377

17.12.2011, 00:39

создать массив из различных элементов. - Turbo Pascal - Ответ 2293992

17.12.2011, 00:39. Показов 1730. Ответов 1

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

Сообщение было отмечено nastenkaa как решение

Решение

см здесь

Добавлено через 31 минуту
вот вариант без множеств и логических переменных
учти, что приведенный вариант выбора случайных чисел возможен только при количестве элементов до 20

Pascal

uses crt;
const n=20;
var a:array[1..n] of integer;
    m,i,j,x,k:integer;
begin
clrscr;
randomize;
m:=1;
a[1]:=random(19)-9;
for i:=2 to n do
  begin
    repeat
      k:=0;
      x:=random(19)-9;
      for j:=1 to m do
      if a[j]=x then inc(k);
    until k=0;
    a[i]:=x;
    m:=m+1;
  write(a[i]:4);
 end;
readkey
end.

если будет надо генерировать больше элементов, необходимо увеличить диапазон генератора случайных чисел, например

Pascal

1	x:=random(101)-50;

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

17.12.2011, 00:39

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

Создать массив из различных элементов заданного массива
Дан целочисленный массив из M элементов, среди элементов есть одинаковые. Создать массив из...

Дан целочисленный массив А[п], среди элементов есть одинаковые. Создать массив из различных элементов А[п]
Помогите пожалуйста с поставленной задачей: Дан целочисленный массив А, среди элементов есть...

Создать массив из различных элементов A[n]
помогите плиз с задачкой!!! Дан целочисленный массив A, среди элементов есть одинаковые.Создать...

Создать массив из различных элементов
Дан целочисленный массив А , среди элементов есть одинаковые. Создать массив из различных элементов...

	17.12.2011, 00:39

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

17.12.2011, 00:39

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

Создать массив из различных элементов массива
Доброго времени суток. Не могу написать программу. Задание такое: Дан целочисленный массив...

Создать массив из различных элементов исходного
Кто чем может.Новичок ,только учусь 2. Дан целочисленный массив А, среди элементов которого...

Создать новый массив из различных элементов исходного
Дан целочисленный массив A, среди элементов есть одинаковые. Создать массив из различных элементов...

Создать новый массив из различных элементов исходного массива
Написать программу на Pascal. Дан одномерный целочисленный массив, среди элементов есть...

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

Наверх