Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Host93
1

Составить блок схему по программе

19.05.2013, 18:22. Просмотров 356. Ответов 1
Метки нет (Все метки)

Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из файла input.txt, результат записать в файл output.txt.



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program freedom;
var
 a: array[0..15, 0..15] of char;
 i,j,n,k,l,m:integer;
s:string;
di,dj:integer;
begin
  assign(input, 'C:\Users\trollll\Desktop\kursach\input.txt');
  reset(input);
  assign(output, 'C:\Users\trollll\Desktop\kursach\output.txt');
  rewrite(output);
readln(s);
n:= 5;
for i:=1 to 2*n+1 do
for j:=1 to 2*n+1 do a[i,j]:='/';
for i:=0 to 2*n+2 do begin
a[0,i] := '\';
a[2*n+2,i] := '\';
end;
for j:=0 to 2*n+2 do begin
a[j,0] := '\';
a[j,2*n+2] := '\';
end;
di := 1;
dj := 0;
i := 0;
j := 2*n+1;
k := (2*n+1)*(2*n+1);
    while k >= 0  do begin
      if (a[i+di,j+dj] <> '/') then begin
         if (di = 0) and (dj = 1) then begin
         di := 1;
         dj := 0;
     end else
         if (di=1) and (dj=0) then begin
     di:=0;
     dj:=-1;
     end else
         if (di=0) and (dj=-1) then begin
     di:=-1;
     dj:=0;
     end else
         if (di=-1) and (dj=0) then begin
     di:=0;
     dj:=1;
    end;
        end else begin
        a[i+di,j+dj]:=s[k];
        k := k - 1;
        i := i + di;
        j := j + dj;
        end;
        writeln('1');
      end;
for i:=1 to 2*n+1 do begin
    for j := 1 to 2*n+1 do write(a[i,j]:2);
    writeln;
end;
end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2013, 18:22
Ответы с готовыми решениями:

Составить блок схему к программе
Помочь составить блок схему к программе. uses crt; var a:array of integer; ...

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; ...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1, db2, aw, bw, da1,...

Составить блок схему к программе
Дан одномерный массив Х(N) (N&lt;=60). На место отрицательных элементов массива записать среднее...

1
294 / 272 / 194
Регистрация: 03.05.2012
Сообщений: 567
20.05.2013, 16:12 2
Блок-схема
1
Вложения
Тип файла: rar blc.rar (148.9 Кб, 2 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2013, 16:12

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

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real;...

Составить блок-схему к программе:
uses crt; var i:integer; s:integer; begin clrscr; for i:=1 to 100 do begin if i mod 2...

Составить блок-схему к программе
y=sin(cos(x+3)), y&gt;0. Найти колличество значений х при которых y&gt;0 Нужно сделать блок схему!!!

Составить блок- схему к программе!
Program hhh; Type zapis= Record; Shifr: Integer; Avtor:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.