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

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

18.05.2014, 17:46. Просмотров 448. Ответов 1
Метки нет (Все метки)

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Program kursovaya;
const
  n = 12; m = 12; k1 = -50; k2 = 50;
type
  matr = array[1..n, 1..m] of integer;
  mas = array[1..m] of integer;
var
  a, c1: mas;
  b, c: matr;
  i, j, min, k, r, sum, tmp : integer;
  
begin
          {Первое задание}
  writeln('Matrica "B":');
   for i := 1 to n do
begin
   for j := 1 to m do
begin
     b[i, j] := trunc((k2 - k1) * random + k1);
     write(b[i, j]:5);
end;
     writeln;
end;
     writeln;
          {Второе задание}
     writeln('Massiv "A":');
   for i := 1 to n do
begin
     k := 1;
     while b[k, i] < 0 do
     inc(k);
     min := b[k, i];
   for j := 1 to m do
begin
   if b[j, i] > 0 then
   if b[j, i] < min then
     min := b[j, i];
end;
     a[i] := min;
end;
   for i := 1 to m do
     write(a[i]:5);
     writeln;
     writeln;
          {Третье задание}
     writeln('Matrica "C":');
   for i := 1 to n do
begin
   for j := 1 to m do
begin
     c[i, j] := b[i, m + 1 - j];
     write(c[i, j]:5);
end;
     writeln;
end;
         {Четвертое задание}
   for i:=1 to n do
begin
   for j:=1 to m do
begin
   if i mod 2<>0 then sum:=sum+b[i,j];
end;
end;
     writeln;
     writeln('Сумма нечетных строк массива C1 = ',sum);
 
        {Пятое задание}
   for i:=1 to n do
begin
   for j:=1 to m do
begin
end;
     writeln;
   for k:=1 to m do
   for i:=2 to n do
   for j:=n downto i do
   if c[j,k]>c[j-1,k] then
begin
     tmp:=c[j,k];
     c[j,k]:=c[j-1,k];
     c[j-1,k]:=tmp;
end;
 
     writeln('Упорядоченные по убыванию элементы каждого нечетного столбца матрицы C:');
   for i:=1 to n do
begin
   for j:=1 to m do
   if j mod 2 <> 0 then
     write(c[i,j]:5);
     writeln;
end;
     readln;
end;
     writeln;
end.
Помогите пожалуйста, а то не шарю в блок-схемах
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2014, 17:46
Ответы с готовыми решениями:

Составить блок схему по программе
составить блок схему по программе Program N_3; uses crt; var s:string; i,k,mx,mn:byte;...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x :...

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

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

1
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 12
18.05.2014, 17:57 2
Для создания блок схем есть две программки (те о которых я знаю): diamFC (которая бесплатная для коротких программ, большие активацию требуют) и FCEditor.

P.S. сам бы сделал и выложил, но у тебя в 75 строке ошибка какаято (запускал через PascalABC). Сам не шарю в паскале- исправить не смог.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2014, 17:57

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

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

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

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

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


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

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

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