Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
reinkarnaciya
0 / 0 / 0
Регистрация: 20.06.2017
Сообщений: 21
#1

Вывести числа полученные в результате вычисления от меньшего к большему - Turbo Pascal

04.09.2017, 13:50. Просмотров 140. Ответов 1

Данные "х", "ab", "ac", "ba", "bс" "ca" "cb"вводятся с клавиатуры. Переменные x1 x2 x3...xn Bычисляются с помощью переменных ab ac ba bc ca cb.
Например x1:= х*ab*ac*bc; x2:=х*ab*ac*ba; и т.д. Нужно вывести числа x1...xn по убыванию или возрастанию, и , желательно что бы выводило только числа больше "х" и сообщение каким образом были получены эти числа(какие переменные "ас"..."сb" использовались при вычислении)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2017, 13:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести числа полученные в результате вычисления от меньшего к большему (Turbo Pascal):

Заполнить массив "змейкой" от меньшего к большему - Pascal
Немогли вы бы подскзаать как заполнить массив "змейкой" от меньше к большему, допусти чтоб вот так получилось: 123 894 765 Только...

Составить программу для вычисления элементов векторов X, R и матрицы A. Вывести на печать все полученные величины - Pascal
Составить программу для вычисления элементов векторов X, R и матрицы A. Вывести на печать все полученные величины.

Составить программу для вычисления элементов векторов X, R и матрицы A. Вывести на печать все полученные величины. - Pascal
Помогите решить задачку. Составить программу для вычисления элементов векторов X, R и матрицы A. Вывести на печать все полученные...

Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления - Pascal
Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления.

Если числа не равны, то заменить каждое одним числом, равным большему из исходных - Turbo Pascal
Помогите решить! Если числа не равны то заменить каждое из них одним и тем же числом, равным большему из исходных, иначе заменить числа...

Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных - Turbo Pascal
даны 2 числа. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3553 / 2247 / 1149
Регистрация: 22.11.2013
Сообщений: 5,916
04.09.2017, 17:36 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure Swp(var a, b: Integer);
var t: Integer;
begin
  t:=a; a:=b; b:=t;
end;
function NextComb(var a: array of Integer; n, m: Integer): Boolean;
var i, j: Integer;
begin
  NextComb:=True;
  for i:=m-1 downto 0 do
    if a[i]<n-m+i then begin
      Inc(a[i]); for j:=i+1 to n-1 do a[j]:=a[j-1]+1;
      Exit;
    end;
  NextComb:=False;
end;
const n=6; m=3; Cnm=20;
  nm: array [0..n-1] of String[3] = ('ab','ac','ba','bc','ca','cb');
type
  PComb = ^TComb;
  TComb = record
    r: Real;
    vi: array [0..m-1] of 0..n-1;
  end;
var
  a: array [0..n-1] of Integer;
  v: array [0..n-1] of Real;
  x: array [0..Cnm-1] of TComb;
  xp: array [0..Cnm-1] of Integer;
  xx: Real;
  i, j: Integer;
begin
  Write('x'); for i:=0 to n-1 do Write(nm[i]:3); Write(': ');
  Read(xx); for i:=0 to n-1 do Read(v[i]); ReadLn;
  for i:=0 to n-1 do a[i]:=i;
  i:=0;
  repeat
    with x[i] do begin
      r:=xx;
      for j:=0 to m-1 do r:=r*v[a[j]]; 
      for j:=0 to m-1 do vi[j]:=a[j];
    end;
    Inc(i);
  until not NextComb(a,n,m);
  for i:=0 to Cnm-1 do xp[i]:=i;
  for i:=0 to Cnm-2 do for j:=i+1 to Cnm-1 do
    if x[xp[i]].r>x[xp[j]].r then Swp(xp[i],xp[j]);
  i:=Cnm-1;
  if x[xp[i]].r<=xx then WriteLn('Подходящих нет')
  else
    while (i>=0) and (x[xp[i]].r>xx) do with x[xp[i]] do begin
      Write(nm[vi[0]]); for j:=1 to m-1 do Write('*',nm[vi[j]]);
      WriteLn('':4,r);
      Dec(i);
    end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2017, 17:36
Привет! Вот еще темы с ответами:

Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходных,а если равны то заменив числа нулями. - Turbo Pascal
Даны целые числа ш,и: Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходны,а если равны то...

Вывести сообщение о результате - Turbo Pascal
Вывести сообщение о результате, т.е. положительное или отрицательное y (т.е. если результат программы например y=9 то должно выйти...

Отсортировать массив от меньшего к большему по дате и в следующем массиве от меньшего к большему по id - PHP
Ещё раз здрасте всем, как отсортировать такого типа ассоциативный массив.. от меньшего к большему по дате и в следущем массиве от...

Массив от меньшего числа к большему. - Pascal ABC
Суть проста,но по факту не знаю как реализовать... Нужно ввести 10 символов.Распределить от меньшего к большему и запихнуть в массив.PS...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru