Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Lenka455
1 / 1 / 0
Регистрация: 25.09.2010
Сообщений: 73
1

Блок - схему

09.10.2010, 14:41. Просмотров 1393. Ответов 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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array of array of integer;
    n,i,j,k,imx,jmx:byte;
    x,sm:integer;
begin
randomize;
write('Razmer matricy n=');
readln(n);
Setlength(a,n,n);
writeln('Ishodnaya:');
for i:=0 to n-1 do
 begin
   for j:=0 to n-1 do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for k:=0 to n-2 do //делаем n-1 раз
 begin
//ищем максимальный в квадрате из непереставленной части матрицы
  imx:=k;jmx:=k;
  for i:=k to n-1 do
  for j:=k to n-1 do
  if a[i,j]>a[imx,jmx] then
   begin
    imx:=i;
    jmx:=j;
   end;
  writeln('Max: a[',imx,',',jmx,']=',a[imx,jmx]);
  //переставляем строку
  for j:=0 to n-1 do
   begin
    x:=a[k,j];
    a[k,j]:=a[imx,j];
    a[imx,j]:=x;
   end;
   //переставляем столбец
  for i:=0 to n-1 do
   begin
    x:=a[i,k];
    a[i,k]:=a[i,jmx];
    a[i,jmx]:=x;
   end;
  //выводим промежуточный результат
writeln('Perestanovka ',k+1);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
write('Press Enter...'); 
readln
end;
//считаем сумму(если нужно)
sm:=0;
for i:=0 to n-1 do
sm:=sm+a[i,i];
writeln('Summa na glavnoj=',sm);
readln
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2010, 14:41
Ответы с готовыми решениями:

блок схему
В массиве хранятся данные о количестве осадков в миллиметрах, выпавших в Москве за последние 20...

составить блок-схему
Есть код,по нему надо стоставить блок-схему. Program Hanoi3_NoRecursion; Var d : array of...

Составит блок-схему
пожалуйста составит блок-схемы 1) проверить является ли введенное число из диапозона от 1 до 10...

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

Создать блок-схему
Народ прошу помощь помогите составить блок-схему для этой программки var p1,p2,p3:double; ...

1
WolfCF
3295 / 1356 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
09.10.2010, 14:44 2
пожалуйста
1
Вложения
Тип файла: rar Program.rar (55.7 Кб, 75 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2010, 14:44

составить блок-схему
сформулируйте задачу на приминение циклов та опишите процес ее решения

Нарисовать блок-схему
Может кто-нибудь по моему коду накидать блок-схему? Вот код begin repeat write('Enter a...

составить блок схему
Здравствуйте Не совсем понял как можно составить блок схему.Помагите если не сложно Условие...


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

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

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