Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal CУБД с использованием файлов Привет, у меня возникла проблема при напизании запросов к субд, очень прошу написать их к этом заданию: В базе данных каталога библиотеки хранятся сведения о книгах. Одна запись базы данных содержит сведения: шифр, Ф.И.О. автора, название, год издания, количество экземпляров. В СУБД предусмотреть следующие запросы: - поиск по шифру книги; - поиск наиболее ранней книги заданного автора; - книг... https://www.cyberforum.ru/ pascal/ thread387368.html	Pascal Задача на процедуру.(у меня в коде ошибка) Вот мой код(тут есть ошибка в процедуре): program asd; const m=5;n=4; type mas=array of real; mas1=array of real; var b,c:mas;
Pascal даны две матрицы целых чисел.. даны две матрицы целых чисел s,k,в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы program lb9_2; uses crt; type mass=array of integer; const s:mass=((1,2,6),(9,4,5),(6,7,3)); k:mass=((1,2,8),(3,4,5),(6,7,8)); var i,j,n,m,r:integer; {-----------------------------------------} procedure sravn(b:mass); https://www.cyberforum.ru/ pascal/ thread387314.html	Pascal Сформировать список студентов группы https://www.cyberforum.ru/ pascal/ thread387309.html Сформировать список студентов группы со следующими сведениями: Фамилия, имя, отчество, знает ли языки программирования Turbo Pascal, Cи (если да, где обучался и сколько лет). Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько - оба языка
даны две матрицы целых чисел s[1..3,1..3],k[1..3,1..3],в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы Pascal даны две матрицы целых чисел s,k,в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы program lb9_2; uses crt; type mass=array of integer; const s:mass=((1,2,6),(9,4,5),(6,7,3)); k:mass=((1,2,8),(3,4,5),(6,7,8)); var i,j,n,m,r:integer; {-----------------------------------------} procedure sravn(b:mass);	Pascal Одномерный массив Помогите пожалуйста написать программу: упорядочить элементы массива, имеющие четные индексы по убыванию. Массив Х(5, 11, 7, 9, 6, 3, -8, 1, 0, 2). Заранее спасибо!:) https://www.cyberforum.ru/ pascal/ thread387270.html
Pascal Арифметические циклы https://www.cyberforum.ru/ pascal/ thread387241.html Помогите пожалуйста с простенькой задачкой: Вычислить сумму и произведение полученных значений функции. Составить три варианта программы – с операторами repeat, while, for. t=\|sin(ax2+bx-c)\| 1<=x<=5; ∆x=0,2 a=2,1; b=3; c=-14,2	Задача на процедуры. Pascal Задача:Составить процедуру ,формирующую одномерный массив из произведений элементов в строках заданной матрицы.Используя эту процедуру,подсчитать количество отрицательных произведений элементов в строках заданной матрицы P. Вот матрица P -0.51 1.003 -1.0 5.02 -1.0 -3 71.4 5.9 -7.1 program asd; type mas=array of real; mas1=array of real; var p:mas;p1:mas1;
Pascal помогите пожалуйста с задачей.даны две матрицы целых чисел s[1..3,1..3],k[1..3,1..3],в которых имеется по 2 одинаковых числа. https://www.cyberforum.ru/ pascal/ thread387221.html даны две матрицы целых чисел s,k,в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы Добавлено через 42 минуты program lb9_2; uses crt; type mass=array of integer; const s:mass=((1,2,6),(9,4,5),(6,7,3)); k:mass=((1,2,8),(3,4,5),(6,7,8)); var i,j,n,m,r:integer;	Pascal написал программу и меню, но не могу заставить нормально работать.=( в чём ошибка? есть программа: Program perevozki; { uses crt; } Const N=6; Type Mas=array of real; Mas1=array of real; Var A:Mas;B:Mas1; i,j:byte; s,max,z:real; nv,vb,imax,jmax,imin:integer; Sum_str:array of real; Sum_st:array of real; https://www.cyberforum.ru/ pascal/ thread387200.html
Pascal Определить номера позиций гласных букв в заданном тексте помогите с задачей пожалуйста. определить номера позиций гласных букв в заданном тексте Добавлено через 2 минуты var a: array of string; i:integer; n:set of char; begin write('введите текст: '); for i:=1 to 10 do	Pascal Реализация алгоритмов двоичного кодирования цифр средствами языка программирования Pascal https://www.cyberforum.ru/ pascal/ thread387177.html тема: Реализация алгоритмов двоичного кодирования цифр средствами языка программирования Pascal. 1. Общие требования к программе: - в каждый момент времени пользователю должны быть доступны только те операции, которые могут быть выполнены - каждая из основных задач должна быть представлена отдельной подпрограммой - пользователь должен иметь возможность работать как с терминалом, так и с...

log(n)

110 / 110 / 72

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

Сообщений: 227

19.11.2011, 22:05

нахождение все возможных комбинации чисел которые можно получить из одного числа. - Pascal - Ответ 2189828

19.11.2011, 22:05. Показов 7111. Ответов 2

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

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

Решение

Сообщение от wikikino

Помогите плиз написать программу которая находит все возможные комбинации чисел которые можно получить из одного числа.
Например: Вводим число 1234
Программа должна выдавать 24 числа : 1243, 1324, 1342, 1423, 1432 ...
Жду ответа

Pascal

var
  S: String;N: Integer; 
 
procedure SwapChar(a, b: byte);
var
  c: Char; 
begin
  c := S[a]; S[a] := S[b]; S[b] := c; 
end;
 
procedure Generate(k: Integer);
var
  i: Integer; 
begin
  if k = N then WriteLn(S) 
  else begin
    for i := k + 1 to N do 
    begin
      SwapChar(k + 1, i); 
      Generate(k + 1); 
      SwapChar(k + 1, i); 
    end; 
  end; 
end;
 
begin
  ReadLn(S); 
  N := Length(S); 
  Generate(0); 
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

19.11.2011, 22:05

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

Вывести на экран все трехзначные числа, которые можно получить из цифр данного числа
Дано трехзначное число. Вывести на экран все трехзначные числа, которые можно получить из цифр...

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

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

Найти количество различных чисел, которые можно получить из числа ровно за C команд
#include <iostream> using namespace std; int c(int x, int y) { if (x == y || y == 0) return 1;...

	19.11.2011, 22:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

19.11.2011, 22:05

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

Получить все возможные варианты трехзначных чисел, которые можно составить из двух заданных
Заданы две цифры от 0 до 9. Получить все возможные варианты трехзначных чисел, которые можно...

Получить все возможные варианты трёхзначных чисел, которые можно составить из двух заданных
Помогите. Заданы две цифры от 0 до 9. Получите все возможные варианты трёхзначных чисел,которые...

Даны натуральные числа n и m. Среди чисел n, n+1, ... , m найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел
Здравствуйте. Помогите пожалуйста написать код к следующей задаче: Даны натуральные числа n и m....

Получить все возможные комбинации чисел
есть числа подскажите, пожалуйста, как при помощи средств delphi можно получить все их возможные...

Наверх