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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Rom@
22 / 31 / 3
Регистрация: 29.11.2009
Сообщений: 210
#1

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

20.04.2010, 21:24. Просмотров 878. Ответов 9
Метки нет (Все метки)

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++
Привет всем, помогите, пожалуйста... Нужно перевести код программы из паскаля в с++ код: repeat Write('Введите строку (пустая...

Паскаль и С++ - C++
Напечатать в растущем порядке все трехзначные натуральные числа, в записи которых нет одинаковых цифр. Мы перешли с Паскаля на С++.На...

из Паскаль в С++ - C++
Помогите перевести задачи из Паскаля в С++: 1.uses graph; var y1,x1,x2,y2,d,m,r,i:integer; x,y:real ; begin detectGraph(D,M); ...

Паскаль - C++
вычислить значения функции у=х в квадрате, для всех х от 1 до n с шагом 1.

перевести с С на паскаль - C++
Переведете пожалуйста код с С++ на паскаль. Очень нужно! Программа должна удалять лишние элементы в последовательности, так, чтобы после...

Перевести с Паскаль на С++ - C++
я не знал извините то поможете

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
PointsEqual
ниначмуроФ
834 / 518 / 33
Регистрация: 12.10.2009
Сообщений: 1,915
20.04.2010, 21:26     из Паскаль в С++ #2
Rom@, напиши лучше задание, проще помоему будет
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
1479 / 846 / 75
Регистрация: 26.03.2010
Сообщений: 2,904
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
167 / 94 / 2
Регистрация: 16.04.2010
Сообщений: 464
20.04.2010, 22:57     из Паскаль в С++ #5
И еще. Делайте программы читабельными (используйте табуляцию и разумные названия переменных)=))
neske
1479 / 846 / 75
Регистрация: 26.03.2010
Сообщений: 2,904
20.04.2010, 22:58     из Паскаль в С++ #6
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
1479 / 846 / 75
Регистрация: 26.03.2010
Сообщений: 2,904
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++
uses crt; var m,k, a, b, c, d,v: integer; n,p,z, i,q: real; s:string; function NOD(x,y:integer):integer; Begin If x&lt;&gt;0 then...

Перевод з С++ в Паскаль)) - C++
#include &quot;stdafx.h&quot; #include &lt;iomanip&gt; #include &lt;iostream&gt; using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевести с Паскаль на С++ - C++
Само задание: вводить массив малых латинских букв, и отсортировать в алфавитном порядке program sort; var s:string; i,j:integer; ...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...


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

Или воспользуйтесь поиском по форуму:
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     из Паскаль в С++
Ответ Создать тему
Опции темы

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