Форум программистов, компьютерный форум CyberForum.ru

Перекодировка с Паскаля на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Реализовать фунуцию Convert http://www.cyberforum.ru/cpp-beginners/thread70862.html
задача по С. Реализовать фунуцию Convert, которая осуществляет преобразование целого числа, переданного в параметре в виде строки, из одной системы счисления в другую. Основания исходной и целевой систем счисления (значения от 2 до 16), передаются во втором и третьем параметре соответственно.
C++ динамические структуры данных Задание: Разработать программу работы с бинарным деревом. Программа должна содержать следующие процедуры, вызываемые из меню: - построение пустого дерева; - добавление нового элемента; - удаление указанного элемента; - просмотр дерева в следующем порядке: узел, левая ветвь, правая ветвь. Помагите пожалуйсто решить данную задачку ) http://www.cyberforum.ru/cpp-beginners/thread70859.html
C++ Структуры
Не могли бы помочь с программой. Информация о сотрудниках фирмы включает ФИО, табельный номер, количество отработанных часов за месяц, почасовой тариф. Рабочее время свы- ше 144 часов считается сверхурочным и оплачивается в двойном размере. Вы- вести размер заработной платы каждого сотрудника фирмы за вычетом подо- ходного налога, который составляет 12 % от суммы заработка....
C++ Массив картинок
у мя есть игра пятнашки..там массив кнопок..как мне вмсто массива кнопок сделать массив моих картинок?которые я нарезал....
C++ Работа с системой http://www.cyberforum.ru/cpp-beginners/thread70780.html
напишите пожалуйста программу, которая выводит сведения о системе(видеокарта, частота процессора, и т.д.)!
C++ Граф Герца Всем привет! не могли бы вы помочь с написанием задачи вот на такую тему. ориентированный граф сильно связен, если для любой пары вершин u,v существует путь из u в v. Компонентой сильной связности назовем произвольный максимальный сильно связный подграф. Конденсацией ориентированного графа (или графом герца или фактор-графом) называется орграф, который получается стягиванием в одну вершину... подробнее

Показать сообщение отдельно
АДМ
1 / 1 / 0
Регистрация: 04.12.2009
Сообщений: 13

Перекодировка с Паскаля на C++ - C++

05.12.2009, 18:54. Просмотров 408. Ответов 1
Метки (Все метки)

задача:задан в массиве вещественных чисел {aij} i и j от т1 до n, упорядочить по убыванию столбец,сумма элементов которого больше заданного числа B,код паскаля

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
57
58
59
60
61
62
program masss;
const
 m = 10;
 n = 15;
type
 DataItem = array [1..m,1..n] of real;
 MasItem = array [1..n] of real;
var
 A : DataItem;
 ST : MasItem;
 sum,x : real;
 i,j,k : byte;
begin
 
  randomize;
  writeln ('Input:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(3);
      write(A[i,j]:0:1,'|')
    end;
    writeln
  end;
  writeln;
  writeln ('Sum:');
  sum:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do sum:=sum+A[j,i];
    ST[i]:=sum;
    write (i,' column: (',sum:0:1,'); ');
    sum:=0
  end;
  writeln;
 
  for i:=1 to n-1 do
  begin
    j:=i;
    for k:=i+1 to n do
     if ST[k]>ST[j] then j:=k;
    x:=ST[j];
    ST[j]:=ST[i];
    ST[i]:=x;
    for k:=1 to m do
    begin
      x:=A[k,i];
      A[k,i]:=A[k,j];
      A[k,j]:=x
    end
  end;
  writeln;
  writeln ('Output:');
  for i:=1 to m do
  begin
    for j:=1 to n do write (A[i,j]:0:1,'|');
    writeln
  end;
 
  readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 06:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru