Войти

Показать полную графическую версию : Перевод кода с Pascal -> C++


2008kedr2008
24-11-2010, 20:55
ПОМОГИТЕ ПЕРЕВЕСТИ КОД С ПАСКАЛЯ НА СИ!!!!

uses crt;
const n=20;
var i,j,k,m,min:longint;
a:array[1..n,1..n]of longint;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=i*i*i+j*j*j;//создаем матрицу сумм кубов разумного предела до 20
min:=high(integer); //по двум направлениям ищем минимальное такое
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
for m:=1 to n do
if(a[i,j]=a[k,m])and (i<>k)and (j<>m) //чтоб числа совпадали, а никакие номера не совпадали
and(i<>m) and (j<>k) and (a[i,j]<min) then
begin
min:=a[i,j];
writeln('Chislo=',a[i,j],' 1var: ',i,'; ',j,' 2 var ',k,'; ',m);
end;
readln;
end.
Думаю тем кто учил паскаль не сложно будет!!!
помогите пожалуйста!!!

Любезный
24-11-2010, 21:12
Паскаль - фигня. Какие строки непонятны?

belk94
24-11-2010, 23:42
Код для Visual Studio, строчки в комментах для Borland C.

#include <stdio.h>
#include <windows.h> //#include<conio.h>
int main()
{
const int n=20;
int i,j,k,m,min;
int a[n][n];
system("cls"); //clrscr();
for(i=1;i<=n;i++)
for(j=1;j<=n;j++)
a[i-1][j-1]=i*i*i+j*j*j;
min=2e9;
for(i=0;i<n;i++)
for(j=0;j<n;j++)
for(k=0;k<n;k++)
for(m=0;m<n;m++)
if(a[i][j]==a[k][m] && i!=k && j!=m && i!=m && j!=k && a[i][j]<min)
{
min=a[i][j];
printf("Chislo=%i 1var: %i;%i 2var %i;%i\n",a[i][j],i+1,j+1,k+1,m+1);
}
system("pause") //getch();
return 0;
}

2008kedr2008
25-11-2010, 06:47
min=2e9; »
это что за строка!??

Hilaly
25-11-2010, 12:00
Maybe it's 2*2*2*2*2*2*2*2*2 :cool:

Любезный
25-11-2010, 19:46
Код для Visual Studio, строчки в комментах для Borland C.

Вот после таких ответов и получаются "программисты".

belk94
25-11-2010, 23:17
это что за строка!?? »
Это 2*10^9, близко к максимальному значению int.
Вот после таких ответов и получаются "программисты". »
Что не так?

Любезный
26-11-2010, 19:10
Что не так?

Получаются "программисты", которые, вместо того чтобы думать, ищут в инете ответы даже на самые простые вопросы.




© OSzone.net 2001-2012