шифрования

[Snake08]

Известный метод шифрования квадратом: некоторое сообщение вписывается в квадрат по строкам. При этом пропуска заменяют знаком '*', а если в последней строке квадрата остались свободные клеточки, они заполняются точками ('.'). После этого, прочитавши содержимое квадрата столбец за столбцом, получают зашифрованный текст.
Ваша задача состоит в том, чтобы зашифровать входное сообщение.
Входные данные:
В файле Z1.dat содержится сообщения, длиной не больше 5000 символов. При считывании символы переведения строки необходимо игнорировать.
Исходные данные: В файл Z1.sol вывести зашифрованное сообщение.
Пример:
Z1.dat:
Attack at dawn or we are done for
Промежуточное представление в виде квадрата:
A t t a c k
* a t * d a
w n * o r *
w e * a r e
* d o n e *
f o r . . .
Z1.sol:
A*ww*ftanedott**ora*oan.cdrre.ka*e* .

[Snake08]

Ну помогите хто нибудь!! Пожалуста!

[lexus_ilia]

Лови, сделал только потому, что понравилось задание... Кстати если создать файл z1.sol, то его нереально прочитать, поэтому я в твою задачу добавил вывод на экран, что-бы понять, как оно выводиться в файл...Разбирайся, что не понятно, спрашивай.

Program xa;
var
 a:array [1..70,1..70] of char;
 i,n,j,k,l:integer;
 f:file;
 name,s:string;
begin
 Writeln('BBedute HauMeHoBaHu9 Faula c DaHHblmu');
 readln(name);
 assign(f,name);
 reset(f,1);
 i:=1;
 while not eof(f) do
 begin
  blockread(f,s[i],1);
  inc(i);
 end;
 close(f);
 l:=i;
 n:=round(sqrt(i))+1;
 writeln(i, ' n= ' ,n);
 i:=1;
 j:=1;
 k:=1;
 for i:=1 to n do
  for j:=1 to n do
  begin
   if k>l then
    a[i,j]:='.'
   else
    if s[k]<>' ' then
     a[i,j]:=s[k]
    else
     a[i,j]:='*';
   inc(k);
  end;

 {for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j], ' ');
  Writeln;
 end;}

 assign(f,'Z1.sol');
 rewrite(f);
 for i:=1 to n do
  for j:=1 to n do
  begin
   blockwrite(f,a[j,i],1);
   write(a[j,i]);
  end;
 close(f);
 readln
end.

[lexus_ilia]

И да, закомментированная строка, это твоя промежуточная матрица, если хочешь раскомментируй.

[Snake08]

Ой извини я не правильно условия записал!
От пример ввода и вывода в файле!
Z1.dat:
Attack at dawn or we are done for
Z1.sol:
A*ww*ftanedott**ora*oan.cdrre.ka*e* .
Помоги пожалуста!

[Snake08]

Ой извини я не правильно условия записал!
От пример ввода и вывода в файле!
Z1.dat:
Attack at dawn or we are done for
Z1.sol:
A*ww*ftanedott**ora*oan.cdrre.ka*e* .
Помоги пожалуста!

[Snake08]

Чото у меня не работает!
Моешь зделать задачу так штобы при вводе
Z1.dat:
Attack at dawn or we are done for
выводило:
Z1.sol:
A*ww*ftanedott**ora*oan.cdrre.ka*e* .
Здель пожалуста умоляю!

[lexus_ilia]

Конечно могу, просто я сделал так, как я сделал из-за того, что при высчитывании порядка матрицы, бывают траблы, но т.к. тебе очень надо, то просто вместо

 n:=round(sqrt(i))+1;

напиши

 n:=round(sqrt(i));

И будет тебе счастье...

[Snake08]

Помоги мне пожалуйста зделать так штоб я вводил данные в файл и выводило их тоже в файл!
var
a:array [1..70,1..70] of char;
i,n,j,k,l:integer;
f:file;
name,s:string;
begin
Writeln('BBedute HauMeHoBaHu9 Faula c DaHHblmu');
readln(name);
assign(f,name);
reset(f,1);
i:=1;
while not eof(f) do
begin
blockread(f,s[i],1);
inc(i);
end;
close(f);
l:=i;
n:=round(sqrt(i))+1;
writeln(i, ' n= ' ,n);
i:=1;
j:=1;
k:=1;
for i:=1 to n do
for j:=1 to n do
begin
if k>l then
a[i,j]:='.'
else
if s[k]<>' ' then
a[i,j]:=s[k]
else
a[i,j]:='*';
inc(k);
end;

{for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j], ' ');
Writeln;
end;}

assign(f,'Z1.sol');
rewrite(f);
for i:=1 to n do
for j:=1 to n do
begin
blockwrite(f,a[j,i],1);
write(a[j,i]);
end;
close(f);
readln
end.
Зделай пожалуйста!

[lexus_ilia]

Так ты их в файл и выводишь, файл называется Z1.sol он у тебя в папке bin появился, просто из-за расширения, прочитать там что-либо как-то сложновато...И не надо копировать целый код программы, для таких вопросов...