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

Сделать с кода Pascal код C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Перемножение матриц http://www.cyberforum.ru/cpp-beginners/thread143465.html
Помогите пожалуйста написать программу в которой будет содержаться функция для перемножения двух прямоугольных матриц.
C++ Поменять каждые два соседних слова в строке местами прога должна менять каждые 2 сосенних слова местами) пол дня сижу не могу решить вот последняя моя мысль но всеравно не работает помогите исправить код #include <fstream> #include <iostream> #include<clocale> using namespace std; http://www.cyberforum.ru/cpp-beginners/thread143463.html
Вывести список сотрудников, проработавших на предприятии более 20 лет. C++
8. Информация о сотрудниках предприятия содержит ФИО, номер отдела, должность, дату начала работы. Вывести список сотрудников, проработавших на предприятии более 20 лет.
Матрица - заполнение по спирали. C++
Ребята я вижу что вы во всем этом хорошо разбираетесь, помогите пожалуйста решить задачу. ЗАДАЧА:Получить целочисленную квадратную матрицу порядка 7, Элементами которой являются числа 1,2,3,...,49, расположенные в ней по спирали.
C++ надо написать программу и блок-схему http://www.cyberforum.ru/cpp-beginners/thread143456.html
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>. -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184...
C++ Масcив Задан масив A содержащий n элементов Определить кратно ли 3 минимальный элимент массива. зарание спасибо) подробнее

Показать сообщение отдельно
megabobik
 Аватар для megabobik
0 / 0 / 0
Регистрация: 15.01.2010
Сообщений: 45
10.06.2010, 07:58     Сделать с кода Pascal код C++
Нужно переделать код Паскаля на Си.
Я немного сделал не похоже ето не то.

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
63
64
65
66
67
68
69
70
71
72
73
74
75
program Lab6;
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,imx:byte;
    mx:integer;
 
procedure Init;
begin
 randomize;
 repeat
  write('Size of matrix=');
  readln(n);
 until n in [1..nmax];
 writeln('Input matrix:');
 for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
end;*/
/*procedure Bowser;
begin
for j:=1 to n do
 begin
  mx:=a[1,j];
  imx:=1;
  for i:=1 to n do
  if a[i,j]>mx then
   begin
    mx:=a[i,j];             {находим максимальный в столбце}
    imx:=i;             {номер строки с ним}
   end;
  for k:=1 to n do
  if (k<>j)then a[imx,k]:=0;        {обнуляем строку кроме макс.}
 end;
writeln;
end;
 
procedure output;
begin
writeln('Matrix of optimal productivity:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
writeln('Distribution of workers on machines: ');
for i:=1 to n do
 begin
  write('Worker ',i:2,' on tool ');
  for j:=1 to n do
  if a[i,j]>0 then writeln(j:2);
 end;
readln
end;
 
begin
 clrscr;
  writeln('Condition problem:');
 writeln('N different machines together in assembly line.');
 writeln('There are N workers.We have matrix C[N][N],');
 writeln('where C[i][j] the performance of i-th worker in the j-th machine.');
 writeln('Determine which machine each worker should work for maximum productivity');
  Init;
 Bowser;
 output;
end.
C++
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
63
64
65
66
67
68
69
70
71
#include "stdlib.h"
#include "conio.h"
#include "stdio.h"
#include "math.h"
#include "time.h"
#include "iostream"
 
using namespace std;
int const nmax=10;
int A[80],mx,imx,i;
float n,j,k;
 
void bowser(int A[80])
{
    for (j=1;j<n;j++)
    {
        mx==A[1,j];
        imx=1;
        for (i=1;i<n;i++)
        if A[i,j]>mx;
        {
            mx==A[i,j];                 //находим максимальный в столбце}
            imx=i;                      //номер строки с ним}
        }
        for (k=1;k<n;k++)
        {
            if (k<>j) A[imx,k]==0;      //обнуляем строку кроме макс.}
        }
    }
}
 
void output(int A[80])
{
    ("Matrix of optimal productivity:");
    for (i=1;j<n;i++)
    {
        for (j=1;j<n;j++)
            printf_s("%4d",A[i,j]);
    }
    puts("Distribution of workers on machines: ");
    for (i=1;i<n;i++)
    {
    printf_s("Worker %3d on tool",i);
    for (j=1;j<n;j++)
    if A[i,j]>0 printf("%4d",j);
    }
}
 
void main()
{
 
    puts("<=====================>");
    puts("Condition problem:");
    puts("N different machines together in assembly line.");
    puts("There are N workers.We have matrix C[N][N],");
    puts("where C[i][j] the performance of i-th worker in the j-th machine.");
    puts("Determine which machine each worker should work for maximum productivity\n");
    cout << "Size of matrix :"<<endl;
    cin >>n;
    for (i=1;i<n;n++)
        {
            for (j=1;j<n;j++)
            {
                srand(time(NULL));
                A[i]==rand()%10+1;
                printf("%3d",A[i,j]);
            }
        }
    bowser(A);
    output(A);
}
Добавлено через 9 часов 4 минуты
Ну ребят , помогите тут немного нужно :
Си ругается на запись A[i,j].
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 21:38. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru