Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
rector
0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 15
#1

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

18.12.2012, 23:51. Просмотров 595. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос блок-схема для двумерного массива( по сделанной программе) (Turbo Pascal):

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

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

Нужна блок схема для двумерного массива - Turbo Pascal
program Project2; const k=10; {$APPTYPE CONSOLE} Var FlagCh, FlagKr, FlagM : Boolean; a: array of integer; g,l,m,i,j, n:...

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

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

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

3
Lemur8063
10 / 6 / 3
Регистрация: 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 / 3
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Блок схема для двух мерного массива - Turbo Pascal
Помогите с блок схемой Program lab6; const n=5; var i,j:byte; a:array of byte; begin for i:=1 to n do begin for j:=1 to n...

Блок схема по программе - Pascal
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer; begin clrscr; randomize; ...

Блок схема по программе - Turbo Pascal
К программе сделайте блок схему, не могу сделать 1)program bb; uses crt; const n=10; var a:arrayof integer; i,m,p:integer; ...


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

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

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