Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
1

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

20.04.2010, 21:24. Просмотров 2428. Ответов 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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2010, 21:24
Ответы с готовыми решениями:

Определяет кол-во вхождений одной Паскаль-строки в другую Паскаль-строку.
Здравствуйте. Не могли бы вы мне помочь написать программу, совсем не могу понять как ее написать....

Перевести код из паскаль АБС в фри паскаль
Необходимо перевести этот код из паскаля АБЦ в фрипаскаль Спасибо! program test; const n=20;...

Кто учил Паскаль по книге "Паскаль для школьников Ушаков Д.М,Юркова Т.А" отпишитесь
Ребят кто учил Pascal по книге &quot;Паскаль для школьников Ушаков Д.М,Юркова Т.А&quot; ,в общем дело такое...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin ...

9
ниначмуроФ
846 / 530 / 110
Регистрация: 12.10.2009
Сообщений: 1,915
20.04.2010, 21:26 2
Rom@, напиши лучше задание, проще помоему будет
1
167 / 94 / 11
Регистрация: 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;
}
Я переменные объявил все вместе. можно по раздельности, в любом месте программы, но до её использования
1
1545 / 911 / 193
Регистрация: 26.03.2010
Сообщений: 3,105
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% шанс, что максимальным элементом будет вторая границы рандома.
1
167 / 94 / 11
Регистрация: 16.04.2010
Сообщений: 464
20.04.2010, 22:57 5
И еще. Делайте программы читабельными (используйте табуляцию и разумные названия переменных)=))
1
1545 / 911 / 193
Регистрация: 26.03.2010
Сообщений: 3,105
20.04.2010, 22:58 6
toxa92, без обид, но тебе тоже нужно над этим поработать
1
167 / 94 / 11
Регистрация: 16.04.2010
Сообщений: 464
21.04.2010, 20:50 7
neske, Я не делал задание (переменные оставил такие же как у пользователя). Я только исправил синтаксис
0
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
21.04.2010, 21:50  [ТС] 8
toxa91! Если можно, там во второй задачке плохо считает координаты:

и надо если есть 2 или больше макс елемента то и их координатьі тоже
0
Миниатюры
из Паскаль в С++  
1545 / 911 / 193
Регистрация: 26.03.2010
Сообщений: 3,105
21.04.2010, 21:57 9
Rom@, на счет координат, все ок, только их вывести можно было по-другому чуть, чтобы вопросов таких не возникало.
Напомню, что первый элемент с индексом 0, последний, с индексом N-1.
1
167 / 94 / 11
Регистрация: 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);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2010, 22:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

ПАСКАЛЬ!
Напечатайте таблицу соответствия между расстоянием в футах, ярдах и метрах, если известно, что 1...

паскаль
здравствуйте! Помогите пожалуйста написать программку к 5 варианту.

Паскаль
Помогите написать программу...очень надо..... спасибо ...

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


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

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