0 / 0 / 0
Регистрация: 05.05.2017
Сообщений: 4
1

Как оформить блок-схему

09.05.2017, 18:18. Показов 558. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
program k1;
const n=17;
           var a:array [1..n, 1..n] of integer;
           i, j, s,k,z: integer;
           b:array [1..n] of integer;
           d:array [1..n] of integer;
           c:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i, j]:=random(101)-50;
for i:=1 to n do
    begin
     for j:=1 to n do
     write (' ',a[i,j]:4);
     writeln;
    end;
writeln;
for i:=1 to n do
for j:=1 to n do
if (i+j=n+1) and (a[i,j]>0) then
s:=s+a[i,j];
writeln('Сумма положительных элементов побочной диагонали = ',s);
  write('Массив С:');
For i:=1 to n do
    begin
    k:=0;
    For j:=1 to n do
        begin
        If (A[i,j]>0) then inc(k);
        end;
    c[i]:=k;
    end;
For i:=1 to n do Write(c[i]:3);
writeln();
write ('Массив B:');
   for i:=1 to n do
   begin
   for j:=1 to n do
   if i+j>n+1    then
   begin
   b[i]:=a[i,j];
   write (b[i]:4);
   end;
   end;
   writeln ();
write ('Массив D:');
for i:=1 to n-1 do
for j:=1 to n-i do
if b[j]<b[j+1] then
begin
z:=b[j];
b[j]:=b[j+1];
b[j+1]:=z;
end;
for i:=1 to n do
write(b[i]:4);
writeln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2017, 18:18
Ответы с готовыми решениями:

Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18 if?
Я пишу программу на языке Pascal. Подскажите пожалуйста, как мне записать в блок-схему мои 18...

Как составить блок-схему?
1. Написать программу для решения следуещего, используя по крайней мере, два вида циклов. ...

как составить блок схему
введите с клавиатуры два числа N и M. если оба числа больше 100 то замените каждое из них меньшим и...

Как правильно составить блок-схему
Как правильно составить блок-схему к данной программе Program OKR3; Uses Crt; Var s,u,x:real;...

1
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
10.05.2017, 04:16 2
lnf0, примерно так
Миниатюры
Как оформить блок-схему  
0
10.05.2017, 04:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2017, 04:16
Помогаю со студенческими работами здесь

Как построить блок схему к программке
Здравствуйте, не могу понять как построить блок схему к программке... Можете помочь? Program...

Как составить эту блок-схему?
Вопрос жизни и смерти , кто может составить блок схему к этому Program x; uses Crt, Graph;...

Как построить блок-схему для программы?
Как построить блок-схему для программы? program procedura; uses crt; const n1=5; n2=4; n3=5;...

Подскажите, как составить блок-схему к графической программе.
Не разу не строил блок-схему с графическими программами, т.е. не пойму, как обозначить начиная с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru