Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Отредактировать программу, убрав set of byte Здравствуйте, может кто нибудь помочь убрать тип set of byte? program lab10; uses crt; type mtr=array of real; mnz=set of byte; function nomera(x:mtr;m,n:integer):mnz; https://www.cyberforum.ru/ pascalabc/ thread2250542.html	Pascal ABC Дан список стран с указанием занимаемой площади и численности населения. Вывести названия стран с максимальной площадью Решить задачу по обработке записей: Дан список стран с указанием занимаемой площади и численности населения. Вывести названия стран с максимальной площадью. помогите пожалуйста дописать программу. Спасибо Program strani; Type str=record St:string; Nas:string; plo:string; end;
Pascal ABC Все ненулевые элементы матрицы D(k, l) расположить в начале массива Е и подсчитать их количество https://www.cyberforum.ru/ pascalabc/ thread2250345.html Все ненулевые элементы матрицы D(k, l) расположить в начале массива Е(к·1) и подсчитать их количество.	Pascal ABC Дан одномерный массив. Составить программу, находящую количество элементов, которые превышают среднее значение массива https://www.cyberforum.ru/ pascalabc/ thread2250309.html Массив заполнить случайными числами на отрезке . На экран вывести исходный массив, среднее значение и количество с поясняющим текстом. program OKR; uses crt; type mas=array of real; var m:mas; sr,sum:real; kol,i,a,n,b:integer; begin clrscr;
Pascal ABC Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6 Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов >4 и <6, в которых нет повторяющихся символов. Если таких слов нет, то полностью переписать файл g в файл f.	Pascal ABC Сведения об автомобиле состоят из его марки, номера и фамилии владельца 1. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий сведения о нескольких автомобилях. Найти: а) фамилии владельцев и номера автомобилей данной марки; б) количество автомобилей каждой марки. Найденные данные записать в файл g. uses crt; const nmax=20; line='--------------------------------------------'; shap='\| Марка \| ... https://www.cyberforum.ru/ pascalabc/ thread2250208.html
Pascal ABC В двумерном массиве найти сумму тех строк массива, в которых положительных элементов больше, чем отрицательных https://www.cyberforum.ru/ pascalabc/ thread2250193.html Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N,M). Найти сумму тех строк массива, в которых положительных элементов больше, чем отрицательных. Из полученных значений сформировать одномерный массив.	В двумерном массиве найти номер строк, элементы которых одинаковы Pascal ABC Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N,M). В массиве найти номер строк, элементы которых одинаковы. Из полученных значений сформировать одномерный массив.
Pascal ABC Определить количество положительных элементов среди четных строк двумерного массива Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N,M). Определить количество положительных элементов среди чётных строк массива. https://www.cyberforum.ru/ pascalabc/ thread2250190.html	Pascal ABC Сформировать массив y из отрицательных элементов массива х Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N). Сформировать массив Y из отрицательных элементов массива X. https://www.cyberforum.ru/ pascalabc/ thread2250188.html
Pascal ABC Найти наименьший элемент, если он отрицательный, то заменить все элементы массива на их модули Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N). Найти наименьший элемент. Если он отрицательный, то заменить все элементы массива на их модули.	Pascal ABC Найти наименьший элемент и поменять его местами с последним элементом. Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N). Найти наименьший элемент и поменять его местами с последним элементом. https://www.cyberforum.ru/ pascalabc/ thread2250184.html

вероник

0 / 0 / 0

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

Сообщений: 19

24.05.2018, 10:03 [ТС]

Вывести 25 векторов, координаты которых заданы случайным образом - Pascal ABC - Ответ 12417911

24.05.2018, 10:03. Показов 1408. Ответов 24

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

Ответ

Подскажите пожалуйста зачем в коде нужны .

Pascal

y:=10;
for i:=1 to n do
 begin
  x:=10;
  for j:=1 to n do
   begin
    k:=random(2);
    if k=0 then

Почему y и x присваивать 10.

И k - для чего?
В остальном разобралась спасибо.

Вернуться к обсуждению:
Вывести 25 векторов, координаты которых заданы случайным образом Pascal ABC

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

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

IT_Exp

Эксперт

8794 / 1073 / 104

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

Сообщений: 12,602

Блог

24.05.2018, 10:03

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

Вычислить суммы А+B; C+D векторов, заданных случайным образом
добрый день! помогите мне дописать чуть -чуть программу... задание: Вычислить суммы А+B; C+D...

Модуль Graph: Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом
Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом

Заданы координаты вершин треугольника. Вывести их в порядке обхода треугольника по часовой стрелке, координаты
Заданы координаты вершин треугольника. Вывести их в порядке обхода треугольника по часовой стрелке,...

Массивы. Вывести элементы массива, размещая их там случайным образом, с задержкой в 2 секунды
Программа должна сформировать случайным образом массив из 20 целых чисел из отрезка и вывести...

	24.05.2018, 10:03

BasicMan

Эксперт

19315 / 2622 / 84

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

Сообщений: 10,364

Блог

24.05.2018, 10:03

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

создать одномерный массив X[1..10] случайным образом.Вывести его в строку.Затем сделать циклическую перестановку
создать одномерный массив X случайным образом.Вывести его в строку.Затем сделать циклическую...

Дана матрица размером 7X7 элементов, случайным образом заполненная. Соседями элемента Aij называют элементы, Akp для которых выполняются неравенства i
Дана матрица размером 7X7 элементов, случайным образом заполненная. Соседями элемента Aij называют...

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

Заданы координаты концов двух векторов, выходящих из начала координат. Найти длины этих векторов
Заданы координаты концов двух векторов, выходящих из начала координат. Найти длины этих векторов.

Блоги программистов
Обновление сайта 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 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

Наверх