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

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

Ответить
Настройки темы
Разное - перевести с кода C++ на Pascal...

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


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

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


Изменения
Автор: Drongo
Дата: 03-06-2010
Описание: Тег код - #
помогите перевести с 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

 


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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Всё о 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




 
Переход