Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Как подсчитать количество чисел, равных заданному Т ? https://www.cyberforum.ru/ pascal/ thread2192545.html Как подсчитать количество чисел, равных заданному Т ? Добавлено через 23 секунды И в чём тут ошибка помогите пожалуйста ? Добавлено через 5 секунд program cal;{Вычислите сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т.} const n = 100;	Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей Pascal Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей. Составьте очередь из элементов, содержащих наиболее полную информацию о людях, воспользовавшись уже созданными очередями и запросив какую-то дополнительную информацию. Решение в программе оформляйте через подпрограммы.} ВОТ КОД МНЕ СКАЗАЛИ ЧТО У МЕНЯ ТОЛЬКО ОДНА...
Pascal Составьте очередь из элементов, содержащих наиболее полную информацию о людях https://www.cyberforum.ru/ pascal/ thread2192383.html Program Cal;{ЛАБА 6 - Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей. Составьте очередь из элементов, содержащих наиболее полную информацию о людях, воспользовавшись уже созданными очередями и запросив какую-то дополнительную информацию. Решение в программе оформляйте через подпрограммы.} Type EXO = ^O; O =...	Pascal Найти наибольший по модулю элемент массива и поменять его местами с первым https://www.cyberforum.ru/ pascal/ thread2192175.html Помогите !!! Составить программу,использую процедуру. В массивах X(60) и Y(50) найти наибольшее по модулю элементов массива и поменять их местами с первыми элементами массивов.
Дописать программу на Паскаль.Массивы Pascal Задание: Запишите полные тексты двух последних программ и выполните их на компьютере. 1 программа k: = 0 ; for i: =1 to 10 do if a >50 then k: = k+1 ; write (' k=' , k) 2 программа) s: = 0 ; for i: = 1 to 10 do	Pascal Указатели Помогите, пожалуйста, с решением вот такой задачи. Реализовать программу эмулирующую работу с динамической памятью. 1. Определить структуры данных представляющие собой:1 статический сегмент памяти и 4 сегмента динамиче-ской памяти. Размер каждого сегмента 32 байта. В качестве сегментов памяти можно использовать массивы. 2. Реализовать функцию размещения в статическом сегменте указателя... https://www.cyberforum.ru/ pascal/ thread2191490.html
Pascal Выбрать три различные точки первого множества так, чтобы круг, ограниченный окружностью, проходящей через три точки https://www.cyberforum.ru/ pascal/ thread2191457.html Даны два множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг, ограниченный окружностью, проходящей через три точки, содержал все точки второго множества имел минимальную площадь.	Pascal Итерационные циклы for … to … do Здравствуйте, помогите пожалуйста с написанием кода для следующего задания на Pascal'е. Задача:
Pascal Заменить часть строки на другие символы У нас есть массив строк, мы считываем с клавиатуры строку пользователя и проверяем, если в ней есть строки из нашего массива, то программа заменяет их на заранее установленные символы. Как это реализовать? https://www.cyberforum.ru/ pascal/ thread2191224.html	Pascal Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до 1 . Вычислить https://www.cyberforum.ru/ pascal/ thread2191127.html Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до 1 . Вычислить
Pascal Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряд Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряде следует найти максимальное число . Сохранить только максимальные числа и вывести их на экран в Pascal ABC .	Pascal Найти наименьший чётный элемент массива, если такого нет, то вывести первый элемент; подсчитать сумму нечётных элементов https://www.cyberforum.ru/ pascal/ thread2190241.html Сделайте так что бы размер массива водился с клавиатуры Добавлено через 1 минуту Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива Добавлено через 12 секунд Найдите наименьший четный элемент массива. Если такого нет, то выведите первый элемент. И посчитайте сумму нечетных элементов массива. Добавлено...

xamelione25

-4 / 5 / 2

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

Сообщений: 1,836

Объясните работу программы по её коду - Pascal - Ответ 12135941

19.02.2018, 21:58. Показов 1130. Ответов 3

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

Author24 — интернет-сервис помощи студентам

Pascal

program lab;
 
uses  crt;
var
  n, k: integer;
 
type
  t_razm = array[1..9]of byte;
 
var
  a: t_razm;
  m: set of 1..9;
 
procedure write_razm(const a: t_razm);
var
  i: byte;
begin
  for i := 1 to k do
    write(a[i], ' ');
  write('  ');
end;
 
procedure razmeshenie(i: byte);
var
  x: byte;
begin
  for x := 1 to n do
    if x in m
        then
    begin
      a[i] := x;
      if i = k
        then write_razm(a)
                else
      begin
        exclude(m, x);
        razmeshenie(i + 1);
        include(m, x)
      end;
    end
end;
 
begin
  clrscr;
  writeln('Введите m : ');
  read(n);
  writeln('Введите n : ');
  read(k); 
    m := [1..n];
  razmeshenie(1);
  writeln; 
  readln;
end.

генерирует размещения, из N по M, вводимые с клавиатуры

Вернуться к обсуждению:
Объясните работу программы по её коду Pascal

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

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

Лучшие ответы (1)

Сообщение: #12140145

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

19.02.2018, 21:58

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

Объясните работу программы
#include "stdafx.h" #include <stdio.h> #include <conio.h> #include <math.h> int...

Объясните работу программы
Объясните, пожалуйста, следующий код: #include <stdio.h> int main() { int i, bit_a,...

Объясните работу программы
Код для решения ханойской башни с тремя стержнями: domains позиция = правый;средний;левый ...

Объясните работу программы
Есть программа с рекурсивной функцией, которая меняет порядок значениий в массиве наоборот....

	19.02.2018, 21:58

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

19.02.2018, 21:58

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

Объясните работу программы
Почему для завершения цикла в данной программе нужно нажать EOF аж целых 5 раз? Почему если убрать...

Объясните работу программы
Не понимаю что происходит с 19 по 26 строку. Вот в цикле for each мы создаем переменную или объект?...

Объясните пожалуйста работу программы
#include <iostream> #include <stdio.h> #include <conio.h> using namespace std; int main(int...

Объясните работу программы по решению СЛАУ
Объясните пжлйста очень подробно работу программы,т.е что выполняется в тот или иной момент проги:...

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх