![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - перевести с кода C++ на Pascal... |
|
Разное - перевести с кода C++ на Pascal...
|
Новый участник Сообщения: 1 |
помогите перевести с C++ на PASCAL...
вот код: #include <iostream.h> #include <stdio.h> #include <stdlib.h> #define RND ((float) rand()/32768.0) void main() { int n=4,i,j, d; double a [4][4], temp; printf("d= "); scanf("%d", &d); printf("-----DO-----\n"); for (i=0;i<n;i++) { for (j=0;j<n;j++) { a[i][j]=RND*(50); printf(" %5.0lf ",a[i][j]); } printf("\n"); } // сдвиг for(j=0; j<d; j++) { temp=a[0][0]; for(i=0; i<n*4-5; i++) { if(i<n-1) a[0][i]=a[0][i+1]; if(i>=n-1 && i<2*n-2) a[i-n+1][n-1]=a[i-n+2][n-1]; if(i>=2*n-2 && i<3*n-3) a[n-1][3*n-i-3]=a[n-1][3*n-i-4]; if(i>=3*n-3 && i<4*n-5) a[4*n-i-4][0]=a[4*n-i-5][0]; } a[4*n-i-4][0]=temp; } // printf("\n-----POSLE-----\n"); for (i=0;i<n;i++) { for (j=0;j<n;j++) printf(" %5.0lf ",a[i][j]); printf("\n"); } } очень нужно(((( |
|
Отправлено: 12:20, 03-06-2010 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) | Loading | Программирование и базы данных | 41 | 20-05-2015 15:28 | |
[решено] перевести с С на AutoIT | JaguarSP | AutoIt | 1 | 23-04-2010 08:39 | |
Помогите перевести... | Disconnect | Выбор отдельных компонентов компьютера и конфигурации в целом | 4 | 17-10-2009 17:57 | |
перевести txt на html | cirgiq1980 | Хочу все знать | 1 | 26-12-2008 09:10 | |
Как перевести с Английского | APOSTOL | Программирование и базы данных | 5 | 21-01-2004 16:46 |
|