1 / 1 / 0
Регистрация: 15.02.2018
Сообщений: 199
|
|
|
1
|
Перевести код из Паскаля
17.05.2018, 20:01. Показов 440. Ответов 0
помогите преобразовать,решает не коректно.
| 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
| procedure TForm1.Button3Click(Sender: TObject);
var n,i,j,max:integer;
begin
randomize;
n:=strtoint(inputbox('Введите количество элементов массива:','Ввод',' '));
stringgrid1.colcount:=n+1;
stringgrid2.colcount:=n+1;
for i:=1 to n do
begin
a[i]:=-10+random(20);
if a[i]<0 then
max:=a[i];
stringgrid1.Cells[i,0]:=inttostr(i);
stringgrid1.Cells[i,1]:=inttostr(a[i]);
end;
for i:=1 to n do
if(a[i]<0) and(a[i]>max)then
max:=a[i];
showmessage('Максимальный отрицательный элемент = '+inttostr(max));
for i:=1 to n do
begin
if a[i]>0 then
a[i]:=max;
stringgrid2.Cells[i,0]:=inttostr(i);
stringgrid2.cells[i,1]:=inttostr(a[i]);
end;
end; |
|
| C++ | 1
2
3
4
5
6
7
8
9
10
11
| void masss( int* &t)
{
cout << ("Введите кол-во строк = ");
cin >> n;
t = new int[n];
for (int i = 0; i < n; i++)
{
t[i] = rand() % 100;
}
cout << endl << endl;
} |
|
| 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
| void zadacha1(int* &t)
{
int max;
for (int i = 0; i < n; i++) {
if (t[i] < 0)
max = t[i];
}
for (int i = 0; i < n; i++) {
if (t[i] < 0&&t[i]>max) {
max = t[i];
cout << "max ";
}
}
printf("\n Измененная матрица:\n"); //исходматрица
for (int i = 0; i < n; i++) {
if (t[i] > 0) {
t[i]=max;
cout << t[i];
}
}
} |
|
| C++ | 1
2
3
4
5
6
7
| int main()
{
int* t = 0;
masss(t)
zadacha1(t);
return 0;
} |
|
вопрос решен.
0
|
(
