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

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

06.04.2010, 16:09. Просмотров 385. Ответов 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
uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,m,n,k:integer;
 
begin
    clrscr;
  writeln('BBeDuTe m n');
  readln(m,n);
  for i:=1 to n do
      for j:=1 to m do
          begin
               clrscr;
               writeln('BBeDuTe ',i,' ',j,' element');
               readln(a[i,j]);
          end;
          clrscr;
      for i:=1 to n do
       begin
            for j:=1 to m do
                write(a[i,j],' ');
            writeln;
       end;
    writeln;
 
  for i:=1 to n do
      begin
           k:=a[i,1];
           for j:=1 to m do
               if k>a[i,j] then
                  k:=a[i,j];
           for j:=1 to m do
               if k=a[i,j] then
                  begin
                       a[i,j]:=a[i,1];
                       a[i,1]:=k;
                  end;
           k:=a[i,1];
           for j:=1 to m do
               if k<a[i,j] then
                  k:=a[i,j];
           for j:=1 to m do
               if k=a[i,j] then
                  begin
                       a[i,j]:=a[i,m];
                       a[i,m]:=k;
                  end;
      end;
    for i:=1 to n do
       begin
            for j:=1 to m do
                write(a[i,j],' ');
            writeln;
       end;
    writeln;
       readln;
end.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2010, 16:09
Ответы с готовыми решениями:

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

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

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

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

1
3301 / 1362 / 109
Регистрация: 28.04.2009
Сообщений: 4,823
06.04.2010, 16:16 2
во вложение схема
1
Вложения
Тип файла: rar ывавап.rar (8.3 Кб, 14 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2010, 16:16

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

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

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

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

Составить блок-схему к программе:
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.