Хай! Сейчас в институте изучаем С++ и Паскаль, но в школе мы изучали только С++. и поэтому я прошу переделать задачу из Си в Паскаль.
Условие:
Чтобы зашифровать текст из 121 буквы, его можно записать в квадратную матрицу порядка 11 по строкам, а затем прочитать по спирали, начиная с центра (т. е. элемента, имеющего индексы 6,6).
код на Си: #include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <math.h>
void main()
{
int i,j,n=0,m,c1,c2;
char b[12][12];
char a[123]=" abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopq";
printf(a);
/*
for (i=0;i<150;i++)
{
a[i]=n;
n++;
if (n==10) n=0;
}
for (i=0;i<=11;i++)
{
for (j=0;j<=11;j++)
{b[i][j]=0; printf("%1.1i",b[i][j]);}
printf("\n");
}
*/
n=1;i=5;j=5;m=-1,c1=1,c2=0;
printf("\n \nShifruem");
printf("\n");
while(n<121)
{
while(c2<c1)
{
b[i][j]=a[n];
c2++;
n++;
i+=m;
if (i<0) i=11;
}
c2=0;
m*=-1;
while(c2<c1)
{
b[i][j]=a[n];
j+=m;
c2++;
n++;
}
c2=0;
c1++;
}
printf("\n");
for (i=0;i<11;i++)
{
for (j=0;j<11;j++)
{cout <<b[i][j]<< " ";}
cout << "\n";
}
}
