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

из Паскаль в С++ - C++

Восстановить пароль Регистрация
 
Rom@
22 / 31 / 3
Регистрация: 29.11.2009
Сообщений: 210
20.04.2010, 21:24     из Паскаль в С++ #1
1.
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
program zada4a11;
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
kol, sd,i,j,k,n,m,max,s:integer;
begin
randomize;
writeln('Vveditе razmer n');
readln (n);
writeln('matryca');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
sd:=0;
for i:=1 to n do
sd:=sd+a[i,i];
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
if s>sd then inc(kol);
end;
writeln('koli4estvo stolbcov, hde summa>summy diagonaly=',kol);
readln;
end.
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
zada4a22;
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
i,j,k,n,m,max,s:integer;
begin
randomize;
writeln('Vvedite razmer n');
readln (n);
writeln('matryca');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
max:=a[1,1];
k:=1;
m:=1;
for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
k:=i;
m:=j;
end;
end;
writeln( 'maxsimalniy element =',a[k,m], '   ','eho koordinaty=(',k,',',m,')');
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('Summa=',s);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2010, 21:24     из Паскаль в С++
Посмотрите здесь:

из Паскаль в С++ C++
Паскаль и С++ C++
Перевод з С++ в Паскаль)) C++
C++ перевести с С на паскаль
C++ Транслятор с С в Паскаль
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
PointsEqual
ниначмуроФ
 Аватар для PointsEqual
832 / 516 / 33
Регистрация: 12.10.2009
Сообщений: 1,915
20.04.2010, 21:26     из Паскаль в С++ #2
Rom@, напиши лучше задание, проще помоему будет
toxa92
 Аватар для toxa92
167 / 94 / 2
Регистрация: 16.04.2010
Сообщений: 464
20.04.2010, 22:49     из Паскаль в С++ #3
1.
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
#include <time.h>
#include <stdlib.h>
 
int main()
{
struct{
int mas[100][100];
}a;
int kol=0,sd=0,i=0,j=0,k=0,n,m=0,max=0,s=0;
srand(time(0));
printf("vvedite razmer n");
scanf("%d", &n);
printf("matrica");
for (i=0;i<n;i++)
{
    for (j=0;j<n;j++)
    {
    a.mas[i][j]=rand()%10;
    printf("%d ",a.mas[i][j]);
    }
printf("\n");
}
sd=0;
for (i=0;i<n;i++)
    sd+=a.mas[i][i];
for (j=0;j<n;j++)
{
    s=0;
    for (i=0;i<n;i++)
    s+=a.mas[i][j];
    if (s>sd) kol++;
}
printf("koli4estvo stolbcov, hde summa>summy diagonaly=%d",kol);
getchar();
return 0;
}
2.
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
#include <time.h>
#include <stdlib.h>
 
int main()
{
struct {
int mas[100][100];
}a;
int kol,sd,i,j,k,n,m,max,s;
srand(time(0));
printf("vvedite razmer n");
scanf("%d", &n);
printf("matrica");
for (i=0;i<n;i++)
{
    for (j=0;j<n;j++)
    {
    a.mas[i][j]=rand()%10;
    printf("%d ",a.mas[i][j]);
    }
printf("\n");
}
max=a.mas[1][1];
k=1;
m=1;
for (i=0;i<n;i++)
    for (j=0;j<n;j++)
    {
        if (max<a.mas[i][j])
        {
            max=a.mas[i][j];
            k=i;
            m=j;
        }
    }
printf("maxsimalniy element =%d,eho koordinaty=%d,%d",a.mas[k][m],k,m);
s=0;
for (i=0;i<n;i++)
s+=a.mas[i][i];
printf("Summa=%d",s);
getchar();
return 0;
}
Я переменные объявил все вместе. можно по раздельности, в любом месте программы, но до её использования
neske
1419 / 786 / 55
Регистрация: 26.03.2010
Сообщений: 2,689
20.04.2010, 22:51     из Паскаль в С++ #4
Второе задание, С++
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
#include <iostream>
#include <ctime>
 
int main()
{
    setlocale(LC_ALL, "Russian");
    const int size=100;
    int MAS[size][size];
 
    srand(time(NULL));
    for (int i=0; i<size; i++)
    for (int j=0; j<size; j++)
    MAS[i][j]=rand()% 100; // зааполняем случайными числами.
 
    int max=MAS[0][0]; // тут будет максимальное число.
    int row, column; // строка, столбец максимального элемента
 
    for (int i=0; i<size; i++)
    for (int j=0; j<size; j++)
        if (max<MAS[i][j])
        {
            max=MAS[i][j];
            row=i;
            column=j;
        }
 
    std::cout << "Максимально элемент: " << max << std::endl;
    std::cout << "Координаты:["<< row <<"]["<< column <<"]\n";
    std::cout << std::endl;
    system("pause");
    return 0;
}


Rom@, у Вас массив 100х100. То есть элементов всего - 10.000
Вы заполняете массив случайными числами.
Почти 100% шанс, что максимальным элементом будет вторая границы рандома.
toxa92
 Аватар для toxa92
167 / 94 / 2
Регистрация: 16.04.2010
Сообщений: 464
20.04.2010, 22:57     из Паскаль в С++ #5
И еще. Делайте программы читабельными (используйте табуляцию и разумные названия переменных)=))
neske
1419 / 786 / 55
Регистрация: 26.03.2010
Сообщений: 2,689
20.04.2010, 22:58     из Паскаль в С++ #6
toxa92, без обид, но тебе тоже нужно над этим поработать
toxa92
 Аватар для toxa92
167 / 94 / 2
Регистрация: 16.04.2010
Сообщений: 464
21.04.2010, 20:50     из Паскаль в С++ #7
neske, Я не делал задание (переменные оставил такие же как у пользователя). Я только исправил синтаксис
Rom@
22 / 31 / 3
Регистрация: 29.11.2009
Сообщений: 210
21.04.2010, 21:50  [ТС]     из Паскаль в С++ #8
toxa91! Если можно, там во второй задачке плохо считает координаты:

и надо если есть 2 или больше макс елемента то и их координатьі тоже
Миниатюры
из Паскаль в С++  
neske
1419 / 786 / 55
Регистрация: 26.03.2010
Сообщений: 2,689
21.04.2010, 21:57     из Паскаль в С++ #9
Rom@, на счет координат, все ок, только их вывести можно было по-другому чуть, чтобы вопросов таких не возникало.
Напомню, что первый элемент с индексом 0, последний, с индексом N-1.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2010, 22:17     из Паскаль в С++
Еще ссылки по теме:

C++ С++ переделать в паскаль
Паскаль C++
C++ Паскаль/С++

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

Или воспользуйтесь поиском по форуму:
toxa92
 Аватар для toxa92
167 / 94 / 2
Регистрация: 16.04.2010
Сообщений: 464
21.04.2010, 22:17     из Паскаль в С++ #10
чтобы выводились координаты начиная с единицы в 36 строчку сделай такой
C
1
printf("maxsimalniy element =%d,eho koordinaty=%d,%d",a.mas[k][m],k+1,m+1);
Yandex
Объявления
21.04.2010, 22:17     из Паскаль в С++
Ответ Создать тему
Опции темы

Текущее время: 14:28. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru