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

Блок-схема

14.12.2009, 23:25. Просмотров 358. Ответов 0
Метки нет (Все метки)

построить блок-схему к этой програме:
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
program p;
uses crt;
const m = 3;
var A:array[1..m,1..m] of byte;
    B:array[1..m,1..m] of boolean;
    i,j,k:byte;
begin  clrscr;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    write(a[i,j]:2,' ');
   end;
   writeln
  end;
  for i:=1 to m do
   for j:= 1 to m do
    B[i,j]:=false;
  for i:= 1 to m do begin
   for j:= 1 to m do begin
  k:=0;
  while true do begin
  k:=k+1;
 if k>m then break;
 if (not (A[i,k] = A[k,j])) then break;
 if k=m then begin B[i,j]:= true; break end;
 end;
 end;
 end;
for i:= 1 to m do
 for j:=1 to m do
  if B[i,j]=true then writeln('strochka ',i, ' sovpadaet so stolbcom ', j);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2009, 23:25
Ответы с готовыми решениями:

Блок-схема
составить блок-схему к программе Program Massiv2; сonst n=10; var a: array of real; ...

Блок-схема
сделайте плз. блок-схему на эту программу, "Прогрмма составлена правельно" !!! задание:Дан текст....

Блок схема
Помогите с блок схемой program Ex; const nmax=15; var h,s:array of real; n,i:integer; ...

Блок схема
Помогите с блок схемами данных программ Program Lab_6_1_1; uses crt; var i,a,n,pol,otr,nul:...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2009, 23:25

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

Блок-схема
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF');...

Блок схема
Ребят, помогите пожалуйста написать блок схему к задаче. Даны 2 массива --> упорядочить по...

блок схема
Есть 4 задачи по всем нада блок схему составить помогте срочно, а то башка уже не варит: uses crt;...

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; ...


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

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

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