С Новым годом! Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 13.04.2014
Сообщений: 98
1

Ошибки в программе

03.05.2014, 12:43. Показов 460. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
С++ только начал изучать... Цель-переписать с паскаля на С++. это сделал но не удовлетворен работой... не могу разобраться( в док..файле код паскаля и С++ ..Помогите ПЛИЗ.

ПАСКАЛЬ abc
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
uses
  crt;
 
type
  int = 0..10;
  vec = array [0..10] of real;
  matr = array [0..10, 0..10] of real;
 
var
  x, x_1, ax, ax_1, c: vec;
  e, a, a_1, b, b_1, br, br_1: matr;
 
{преобразование строковой дроби в числовой вид (1/2 --> 0.5)}
function drob(var s: string): double;
var
  a, b, c: integer;
begin
  if s.Split('/').Length > 1 then begin
    if integer.TryParse(s.Split('/')[0], c) then
      a := c
    else begin
      writeln('Error!'); 
    end;
    
    if integer.TryParse(s.Split('/')[1], c) then
      b := c
    else begin
      writeln('Error!'); 
    end;
    result := a / b;
  end else
  if integer.TryParse(s, c) then
    result := c
  else begin
    writeln('Error!'); 
    exit;
  end;
end;
 
procedure readvec(var x: vec; name: char; n: int);
var
  i: int;
  s: string;
begin
  writeln(' Ввести вектор ', name, ' размера n=', n); for i := 0 to n - 1 do
  begin
    write(' ', name, '[', i:2, ']='); 
    
    readln(s);
    writeln('Получившаяся дробь: ', drob(s));
    {вызов функции преобразования}
    x[i] := drob(s);
  end;
end;
 
 
 
procedure writevec(var x: vec; name: char; n: int);
var
  i: int;
begin
  writeln(' Вывести вектор ', name, ' размера n=', n); for i := 0 to n - 1 do
  begin
    write(' ', name, '[', i:2, ']='); 
    writeln(x[i]:10:5)
  end;
end;
 
procedure readmatr(var y: matr; name: char; n, m: int);
var
  i, j: int;
  s: string;
begin
  writeln('  Ввести матрицу ', name,
  ' размера : n=', n, ', * m=', m); for i := 0 to n - 1 do
    for j := 0 to m - 1 do
    begin
      write('  ', name, '[', i:2, ' ,', j:2, ']= ');
      readln(s);
      writeln('Получившаяся дробь: ', drob(s));
      {вызов функции преобразования}
      y[i, j] := drob(s);
    end;
end;
 
procedure writematr(var y: matr; name: char; n, m: int);
var
  i, j: int;
begin
  writeln('  Вывести матрицу ', name,
  ' размера: n=', n, ', * m=', m);
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
    begin
      write('  ', name, '[', i:2, ' ,', j:2, ']= ');
      writeln(y[i, j]:8:4)
    end;
end;
 
procedure Em(var E: matr; n: int);
var
  i, j: int;
begin
  for i := 0 to n do
    for j := 0 to n do
      if i = j then E[i, j] := 1 else E[i, j] := 0;
end;
 
procedure Rmatr(var a, b, c: matr; n, m: int);
var
  i, j: int;
begin
  for i := 0 to n do
    for j := 0 to m do
      c[i, j] := a[i, j] - b[i, j];
end;
procedure obrmatr(var  AIS, AP: matr; n: int);
var
  i, j, k: integer;
  a: matr;
begin
  a := AIS;
  n := n - 1;
  for k := 0 to n do 
  begin
    for j := 0 to n do
      if (j <> k) then AP[k, j] := -a[k, j] / a[k, k];
    for i := 0 to n do
      if (i <> k) then AP[i, k] := a[i, k] / a[k, k];
    for i := 0 to n do
      for j := 0 to n do
        if (i <> k) and (j <> k)
          then AP[i, j] := a[i, j] - a[i, k] * a[k, j] / a[k, k];
    AP[k, k] := 1 / a[k, k]; a := AP;
  end;
end;
 
procedure matrvec(var b: matr; var c, x: vec; n: int);
var
  i, j: int;
begin
  for j := 0 to n - 1 do 
  begin
    x[j] := 0;
    for i := 0 to n - 1 do
      x[j] := x[j] + b[i, j] * c[i]
  end;
end;
 
begin
  clrscr;
  readvec(c, 'C', 2);
  readmatr(a, 'A', 2, 2);
  readmatr(a_1, 'Z', 2, 2);
  Em(e, 2); 
  rmatr(e, a, br, 2, 2); rmatr(e, a_1, br_1, 2, 2); 
  obrmatr(br, b, 2); obrmatr(br_1, b_1, 2); 
  matrvec(b, c, x, 2); matrvec(b_1, c, x_1, 2); matrvec(a, x, ax, 2); matrvec(a_1, x_1, ax_1, 2);
  if (ax[0] <= c[0]) and (ax[1] <= c[1]) then
    writeln('Экономика матрица A -  эффективна') else
    writeln('Экономика матрица A -  не эффективна');
  if (ax_1[0] <= c[0]) and  (ax_1[1] <= c[1]) then
    writeln('Экономика матрица A_1 -  эффективна') else
    writeln('Экономика матрица A_1 -  не эффективна');
  readln();
  writematr(b, 'B', 2, 2);
  writematr(b_1, 'Z', 2, 2);
  writevec(x, 'x', 2);
  writevec(x_1, 'y', 2);
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
#include <iostream>;
 
// VEC
double x[10], x_1[10], ax[10], ax_1[10], c[10];
 
// MATR
double e[10][10], a[10][10], a_1[10][10], b[10][10], b_1[10][10], br[10][10], br_1[10][10];
 
double drob(int a, int b) {
    return static_cast<double>(a)/b;
}
 
void readvec(char *name, int n) {
    int a,b;
 
    std::cout << "Vvesti vektor " << name << " razmera " << n << "\n";
    for (int i=0; i < n;i++) {
        std::cout << " " << name << "[" << i << "]=";
        std::cin >> a >> b;
        std::cout << "Poluchivsshazsa drob: " << drob(a,b) << "\n";
        x[i] = drob(a,b);
    }
    std::cout << "\n";
}
 
void readmatr(char *name, int n, int m, char *type) {
    int c,b;
 
    std::cout << "Vvesti matricu " << name << " razmera " << n << "x" << m <<"\n";
    for (int i=0; i < n;i++) {
        for (int j=0; j < m;j++) {
        std::cout << " " << name << "[" << i << ", " << j << "]=";
        std::cin >> c >> b;
        std::cout << "Poluchivsshazsa drob: " << drob(c,b) << "\n";
        if (strcmp(type,"A") == 0)
        a[i][j] = drob(c,b);
        if (strcmp(type,"B") == 0)
        a_1[i][j] = drob(c,b);
        }
    }
    std::cout << "\n";
}
 
void Em(int n) {
    for (int i=0; i==n;i++) {
        for (int j=0; j==n;j++) {
            if (i == j)
                e[i][j] = 1;
            else 
                e[i][j] = 0;
        }
    }
}
 
void Rmatr(double a[10][10], double b[10][10], int n, int m, char *type) {
    for (int i=0; i==n;i++) {
        for (int j=0; j==m;j++) {
            if (strcmp(type,"A") == 0)
            br[i][j] = a[i][j] - b[i][j];
            if (strcmp(type,"B") == 0)
            br_1[i][j] = a[i][j] - b[i][j];
        }
    }
}
 
void obrmatr(double AIS[10][10], double AP[10][10], int n, char *type) {
    double a[10][10];
    for (int i=0; i<10;i++)
        for (int j=0; j<10;j++)
            a[i][j] = AIS[i][j];
 
    for (int k=0; k<n;k++){
        for (int j=0;j<n;j++)
            if (j != k){
                if (strcmp(type,"A") == 0)
                b[k][j] = -a[k][j] / a[k][k];
                if (strcmp(type,"B") == 0)
                b_1[k][j] = -a[k][j] / a[k][k];
            }
        for (int i=0;i<n;i++)
            if (i != k){
                if (strcmp(type,"A") == 0)
                b[i][k] = a[i][k] / a[k][k];
                if (strcmp(type,"B") == 0)
                b_1[i][k] = a[i][k] / a[k][k];
            }
        for (int i=0;i<n;i++)
            for (int j=0;j<n;j++)
                if (i != k && j != k){
                    if (strcmp(type,"A") == 0)
                    b[i][j] = a[i][j] - a[i][k] * a[k][j] / a[k][k];
                    if (strcmp(type,"B") == 0)
                    b_1[i][j] = a[i][j] - a[i][k] * a[k][j] / a[k][k];
                }
        if (strcmp(type,"A") == 0)
            b[k][k] = 1 / a[k][k];
        if (strcmp(type,"B") == 0)
            b_1[k][k] = 1 / a[k][k];
 
        for (int i=0; i<10;i++)
            for (int j=0; j<10;j++)
                a[i][j] = AP[i][j];
    }
}
 
 
 
 
 
 
 
 
 
 
 
void matrvec(double b[10][10], double c[10], int n, char *type) {
    for (int j=0;j<n;j++) {
        if (strcmp(type,"A") == 0)
        x[j] = 0;
        if (strcmp(type,"B") == 0)
        x_1[j] = 0;
        if (strcmp(type,"C") == 0)
        ax[j] = 0;
        if (strcmp(type,"D") == 0)
        ax_1[j] = 0;
        for (int i=0;i<n;i++){
            if (strcmp(type,"A") == 0)
            x[j] = x[j] + b[i][j] * c[i];
            if (strcmp(type,"B") == 0)
            x_1[j] = x_1[j] + b[i][j] * c[i];
            if (strcmp(type,"C") == 0)
            ax[j] = ax[j] + b[i][j] * c[i];
            if (strcmp(type,"D") == 0)
            ax_1[j] = ax_1[j] + b[i][j] * c[i];
        }
    }
}
 
void writematr(double y[10][10], char *name, int n, int m) {
    std::cout << "Vivesti matricu " << name << " razmera " << n << "x" << m << "\n";
    for (int i=0;i<n; i++) 
        for (int j=0;j<m;j++) {
            std::cout << " " << name << "[" << i << ", " << j << "]=" << y[i][j] << "\n";
        }   
}
 
void writevec(double x[10], char *name, int n) {
    std::cout << "Vivesti vektor " << name << " razmera " << n << "\n";
    for (int i=0;i<n; i++) {
        std::cout << " " << name << "[" << i << "]=" << x[i] << "\n";
    }
}
 
int main() {
    readvec("C", 2);
    readmatr("A", 2, 2, "A");
    readmatr("Z", 2, 2, "B");
 
    Em(2);
 
    Rmatr(e, a, 2, 2, "A");
    Rmatr(e, a_1, 2, 2, "B");
 
    obrmatr(br, b, 2, "A"); 
    obrmatr(br_1, b_1, 2, "B"); 
 
    matrvec(b, c, 2, "A"); 
    matrvec(b_1, c, 2, "B"); 
    matrvec(a, x, 2, "C"); 
    matrvec(a_1, x_1, 2, "D");
 
    if (ax[0] <= c[0] && ax[1] <= c[1])
        std::cout << "Aconomika matrica A - affektivna \n";
    else
        std::cout << "Aconomika matrica A - ne affektivna \n";
    if (ax_1[0] <= c[0] && ax_1[1] <= c[1])
        std::cout << "Aconomika matrica A_1 - affektivna \n";
    else
        std::cout << "Aconomika matrica A_1 - ne affektivna \n";
    std::cout << "\n";
 
    writematr(b, "B", 2, 2);
    writematr(b_1, "Z", 2, 2);
    writevec(x, "x", 2);
    writevec(x_1, "y", 2);
 
    system("pause");
    return 0;
}
Ошибки в программе

Вложение 394481
Миниатюры
Ошибки в программе  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.05.2014, 12:43
Ответы с готовыми решениями:

Ошибки в программе
Здравствуйте! Обращаюсь к вам по такому вопросу, я пишу курсовую по С++. И почти написал, но не...

Ошибки в программе
Подскажите пожалуйста почему при вводе имени на руском языке выводится только 'Привет и знак !'а...

ошибки в программе
include &quot;stdafx.h&quot; #include &lt;cstdlib&gt; int _tmain(int argc, _TCHAR* argv) { int...

Ошибки в программе
#include &lt;iostream&gt; using namespace std; struct employe { int number; float...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33006 / 21309 / 8183
Регистрация: 22.10.2011
Сообщений: 36,614
Записей в блоге: 8
03.05.2014, 13:21 2
Кроме цели, неплохо было бы написать и задание, которое должна выполнять программа.
0
0 / 0 / 0
Регистрация: 13.04.2014
Сообщений: 98
03.05.2014, 13:35  [ТС] 3
Задание.doc Вот задание.
0
0 / 0 / 0
Регистрация: 13.04.2014
Сообщений: 98
03.05.2014, 13:44  [ТС] 4
Heeelp me please
0
03.05.2014, 13:44
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.05.2014, 13:44
Помогаю со студенческими работами здесь

Ошибки в программе
Подскажите пожалуйста как возвести в квадрат число кроме умножения его самого на себя. /Составить...

Ошибки в программе
// laba3.cpp: определяет точку входа для консольного приложения. // #include &quot;stdafx.h&quot;//...

Ошибки в программе
Всем здравствуйте!!! Не так давно начала изучать С++ и вот делая очередную практическую наткнулась...

Ошибки в программе С++
Помогите их исправить в выделенном фрагменте пишет не объявленный индификатор #include...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru