Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
rector
0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 15
1

блок-схема для двумерного массива( по сделанной программе)

18.12.2012, 23:51. Просмотров 615. Ответов 3
Метки нет (Все метки)

составьте пожалуйста блок-схему


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
uses crt; 
var
gryz: array[1..7,1..3] of real; 
m,n,i,k,x,y:byte; 
sum,max,gr: real;
present: boolean; 
begin
write('Введите количество отправителей M (Не больше 7): '); readln(M);
write('Введите количество получателей N (Не больше 3): '); readln(N);
writeln;
if (m>7) or (n>3) then writeln('Ошибка') else 
begin 
for i:=1 to m do 
for k:=1 to n do 
begin 
write('Введите массу груза от ',i,'-го отправителя к ',K,'-му получателю: '); 
readln(gryz[i,k]); 
end;
writeln;
delay(1000);
write(' '); 
for i:=1 to n do 
write(i,' получатель '); к
writeln; 
for i:=1 to m do 
begin 
write(i,' отправитель '); 
for k:=1 to n do 
write(gryz[i,k]:1:2,' '); 
writeln; 
end; 
writeln;
for i:=1 to m do 
begin 
write('Сумма ',i,'-й строки: '); 
sum:=0; 
for k:=1 to n do 
sum:=sum+gryz[i,k]; 
writeln(sum:1:2); 
end; 
writeln;
for i:=1 to m do
begin
max:=-1;
for k:=1 to n do
if gryz[i,k]>max then begin max:=gryz[i,k]; x:=i; y:=k; end; 
writeln('Максимальный груз ',i,'-го отправителя: ',max:1:2,' его индексы: ',x,' ',y);
end;
writeln;
for i:=1 to n do
begin
max:=-1;
for k:=1 to m do
if gryz[k,i]>max then begin max:=gryz[k,i]; x:=i; y:=k; end;
writeln('Максимальный груз ',i,'-го получателя: ',max:1:2,' его индексы: ',y,' ',x); 
end;
writeln;
write('Введите массу груза для поиска: ');
readln(gr);
writeln('Индексы груза(ов) указанной массы: ');
present:=true; 
for i:=1 to m do 
for k:=1 to n do 
if gr=gryz[i,k] then begin writeln('Отправитель ',i,', получатель ',k); present:=false; end; //
if present then writeln('Груз данной массы отсутствует');
end; 
readln; 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2012, 23:51
Ответы с готовыми решениями:

блок схема в паскале по сделанной программе
программа в архиве Определить для произвольного целого десятичного числа типа интежер или ворд...

Блок-схема для двумерного массива
Помогите с Блок-схемой пожалуйста const n=3; m=4; a: array of real =(( 1, -3, 5, ...

Нужна блок схема для двумерного массива
program Project2; const k=10; {$APPTYPE CONSOLE} Var FlagCh, FlagKr, FlagM : Boolean; a:...

Блок-Схема к программе формирования массива на основе двух исходных
program t; var a:array of byte; b:array of shortint; c:array of real; f,n,i,d,e:word; begin...

Нужна блок схема к программе поиска положительных элементов массива
program tmp; uses crt; const count=40; type arr=array of integer; var m,n:integer; V,F:arr; ...

3
Lemur8063
10 / 6 / 11
Регистрация: 18.12.2012
Сообщений: 29
19.12.2012, 02:28 2
Блок-схема
0
Миниатюры
блок-схема для двумерного массива( по сделанной программе)  
rector
0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 15
19.12.2012, 02:34  [ТС] 3
спасибо большое. только один вопрос, как увеличить?( почти не разобрать)
0
Lemur8063
10 / 6 / 11
Регистрация: 18.12.2012
Сообщений: 29
19.12.2012, 02:36 4
нажимаешь на неё,потом правой кнопкой мыши сахронить как,а потом на компе можешь увеличивать.Напиши в скайп Lemur8063 скину тебе нормальную.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2012, 02:36

Создать блок-схему для двумерного массива
uses crt; var A:array of integer; i,j:integer; min:byte; begin For i:=1 to 8 do Begin For...

Блок-схема для одномерного массива
Помогите с Блок-схемой пожалуйста Const R:array of real=(4.3,-8.1,2.4,-0.1,7.5,-1.1,-2.3,4.5);...

Блок схема для двухмерного массива с подпрограммой
Помогите с блок схемой Program tk7; var O,J:integer; procedure asd(x:integer; var n:integer);...


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

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

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