Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Smiikee
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 14
1

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

21.04.2015, 20:19. Просмотров 319. Ответов 2
Метки нет (Все метки)

Ребят помогите составить блок схему по паскалевскому коду Пожалуйста, уже впритык очень нужно.
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
uses crt;
 
const n=10;
var
matrix:array [1..n,1..n] of integer;
i,j:integer;
zeropresent:boolean;
x:integer;
 
begin  clrscr;
Randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      matrix[i,j]:=Random(10)-4;
      write(matrix[i,j]:3);
      end;
    writeln;
    end;
 
i:=1;
  while i<=n do begin
    zeropresent:=False;
    for j:=1 to n do
      if matrix[i,j]=0 then
        zeropresent:=True;
    if not zeropresent then begin
      WriteLn('Stroka ',i,' ne soderjit ni odnogo 0 elementa');
      Break;
    end;
    Inc(i);
  end;
  
  if i>n then
    Writeln('Net strok bez 0 elementov');
  Readln;
  writeln;
 
for i:= 1 to n-1 do
  for j:=i+1 to n do
    if (matrix[j,n] > matrix[i,n])
     and(matrix[j,n]>0) and (matrix[i,n]>0)
    then begin
     x:=matrix[i,n];
     matrix[i,n]:= matrix[j,n];
     matrix[j,n]:= x;
     end;
 
 
for i:=1 to n do begin
  for j:=1 to n do
    write(matrix[i,j]:3);
  writeln;
end;
Readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2015, 20:19
Ответы с готовыми решениями:

Составить блок схему к готовому коду
Прошу составить блок-схему, вот программа: uses wincrt; var x : array of integer; i,...

Составить блок схему к готовому коду
var x: array of integer; i:integer; begin randomize; for i:=1 to 20 do x:=random(100);...

Составить блок-схему к готовому коду
Составьте пожалуйста блок-схему по программе. Program max 2; Type MAS=array of integer; Var...

Составить блок-схему к готовому коду
ПОМОГИТЕ СОСТАВИТЬ БЛОК СХЕМУ: program lab_3; var n: integer; begin writeln ('ИНФОРМ ЧАСТЬ,...

Составить блок-схему к готовому коду
здравствуйте! помогите, пожалуйста, сделать блок-схему и программу по задаче: Сформировать и...

2
SuperKir
456 / 413 / 286
Регистрация: 10.03.2015
Сообщений: 1,768
Завершенные тесты: 1
21.04.2015, 21:52 2
Smiikee, Да разберитесь вы 1 раз с этим построением, потом все легко будет и понятно.
0
FREYfMI
2 / 2 / 2
Регистрация: 17.10.2014
Сообщений: 111
21.04.2015, 23:54 3
Smiikee, Вот, неплохая презентация http://festival.1september.ru/articles/588437/
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2015, 23:54

Составить блок-схему к готовому коду
11. Дано натуральное число n, действительные числа a1, ..an ..получить сумму положительных и...

Составить блок схему к готовому коду
Можете составить блок схему этого задача uses crt; const nmax=20;//максимальный размер матрицы...

Составить блок-схему к готовому коду
Здравствуйте. У меня возникла не большая проблема. Я студент, строительного института, по-этому не...


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

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

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