![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Перевод кода с Pascal -> C++ |
|
C/C++ - Перевод кода с Pascal -> C++
|
Новый участник Сообщения: 2 |
ПОМОГИТЕ ПЕРЕВЕСТИ КОД С ПАСКАЛЯ НА СИ!!!!
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
|
Профиль | Отправить PM | Цитировать Паскаль - фигня. Какие строки непонятны?
|
Отправлено: 21:12, 24-11-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 154
|
Профиль | Отправить 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
|
Профиль | Отправить PM | Цитировать Цитата belk94:
|
|
Отправлено: 06:47, 25-11-2010 | #4 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Maybe it's 2*2*2*2*2*2*2*2*2
![]() |
|
------- Отправлено: 12:00, 25-11-2010 | #5 |
Старожил Сообщения: 295
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
Отправлено: 19:46, 25-11-2010 | #6 |
Старожил Сообщения: 154
|
Профиль | Отправить PM | Цитировать |
Отправлено: 23:17, 25-11-2010 | #7 |
Старожил Сообщения: 295
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
Отправлено: 19:10, 26-11-2010 | #8 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|