| Chrono | Дата: Четверг, 16.06.2011, 15:30 | Сообщение # 1 |
|
Группа: Гости
| Здравствуйте, прошу вашей помощи, завтра экзамен, и к нему нужна блок схема по программному коду Pascal, программа по массивам. Очень надеюсь на вас, заранее огромное спасибо
Код Pascal:
Program massive;
Uses crt;
Const n=10;
type mas=array[1..N] of integer;
var a:mas;
sym,max,nmax:integer;
procedure vvod_massiv(var b:mas); var i: byte;
begin
for i:=1 to n do
b[i]:=random(18) -7;
end;
procedure vivod_massiv(b:mas);
var i:byte;
begin
for i:=1 to n do
write(b[i]:4);
end;
function symma(b:mas):integer;
var i:byte;
s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+b[i];
symma:=s;
end;
procedure maximum(B:mas; var m,nomm:integer);
var i:integer;
begin
m:= b[1];nomm:=1;
for i:=2 to N do
if m< b[i] then begin m:=b[i];
nomm:=i;
end;
end;
procedure perest(nom1,nmax:byte;var B:Mas);
var t:integer;
begin
t:=b[nom1];
b[nom1]:=b[nmax];
b[nmax]:=t;
end;
begin
clrscr;
randomize;
vvod_massiv(a);
vivod_massiv (a); writeln;
maximum(a,max,nmax) ;
write('max=',max,'nmax=',nmax); writeln;
perest(1,nmax,a);
vivod_massiv (a);
end.
|
| |
| |
| diamFC | Дата: Четверг, 16.06.2011, 20:44 | Сообщение # 2 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| С радостью вам бы помог, но есть правила оформления, которые нужно читать. Там всего 3 пункта.
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
