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

Puporev

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

64303 / 47600 / 32742

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

Сообщений: 115,181

24.05.2018, 10:10

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

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

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

Ответ

Сообщение от вероник

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

Это отступы по 10 пикселей от правого и верхнего краев.

Pascal

k:=random(2);//случайно к или 0 или 1
if k=0 then//если 0
  begin
   v[i,j].x1:=x+5;//начало вектора слева
    v[i,j].x2:=x+95;//конец справа
     end
    else//если к=1, наоборот
     begin
      v[i,j].x2:=x+5;
      v[i,j].x1:=x+95;
     end;

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

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

24.05.2018, 10:10

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

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

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

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

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

	24.05.2018, 10:10

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

24.05.2018, 10:10

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

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

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

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

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

Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с 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 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .

Наверх