Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод кода с Pascal -> C++

Ответить
Настройки темы
C/C++ - Перевод кода с Pascal -> C++

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: Drongo
Дата: 24-11-2010
Описание: [code]
ПОМОГИТЕ ПЕРЕВЕСТИ КОД С ПАСКАЛЯ НА СИ!!!!

Код: Выделить весь код
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.
Думаю тем кто учил паскаль не сложно будет!!!
помогите пожалуйста!!!

Отправлено: 20:55, 24-11-2010

 

Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


Паскаль - фигня. Какие строки непонятны?

Отправлено: 21:12, 24-11-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 154
Благодарности: 11

Профиль | Отправить PM | Цитировать


Код для 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;
}
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:42, 24-11-2010 | #3


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата belk94:
min=2e9; »
это что за строка!??

Отправлено: 06:47, 25-11-2010 | #4


Новый участник


Сообщения: 15
Благодарности: 6

Профиль | Отправить PM | Цитировать


Maybe it's 2*2*2*2*2*2*2*2*2

-------
Ничто так не разрушает мечты, как компромисс..


Отправлено: 12:00, 25-11-2010 | #5


Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


Цитата:
Код для Visual Studio, строчки в комментах для Borland C.
Вот после таких ответов и получаются "программисты".

Отправлено: 19:46, 25-11-2010 | #6


Старожил


Сообщения: 154
Благодарности: 11

Профиль | Отправить PM | Цитировать


Цитата 2008kedr2008:
это что за строка!?? »
Это 2*10^9, близко к максимальному значению int.
Цитата Любезный:
Вот после таких ответов и получаются "программисты". »
Что не так?

Отправлено: 23:17, 25-11-2010 | #7


Старожил


Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать


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

Отправлено: 19:10, 26-11-2010 | #8



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод кода с Pascal -> C++

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод с Pascal на C++ Snake750 Программирование и базы данных 14 14-09-2015 04:48
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) Loading Программирование и базы данных 41 20-05-2015 15:28
C/C++ - Перевод процедуры с Pascal на C++ Snake750 Программирование и базы данных 56 05-04-2011 09:39
Разное - перевести с кода C++ на Pascal... radeon37 Программирование и базы данных 0 03-06-2010 12:20
C/C++ - Перевод с Pascal на C++ DimaZone88 Программирование и базы данных 0 13-05-2010 13:52




 
Переход