Показать сообщение отдельно
  (#1 (permalink)) Старый
sandzhi sandzhi вне форума
Member
 
Аватар для sandzhi
 
Сообщений: 509
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.10.2008
Адрес: Элиста
По умолчанию Срочно Пожалуйста помогите составить блок схему по программе!!!!!!!! - 17.12.2008, 21:31

Пожалуйста помогите составить блок схему
даны след-е прог-мы

program lr41;
const n=15;
var a:array [1..n]of integer;
i:integer;
begin
writeln ('massiv a:');
for i:=1 to n do
begin a[i]:=i*i*i;
write(a[i]:5);
end;
end.

program lr43;
const n=7;
var a:array [1..n, 1..n] of integer;i,j:integer;
begin
for j:=1 to n do
for i:=1 to n do
if j mod 2=0 then a[i,j]:=0
else a[i,j]:=j;
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.


program lr44;
const n=7;
var a:array [1..n, 1..n] of integer;i,j,x:integer;
begin
writeln ('ishodnuy massiv');
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:= random (30);
write (a[i,j]:3);end;
writeln;
end;
For i:=1 to n div 2 do
for j:=1 to n do begin
x:=a[i,j]; a[i,j]:=a[n+1-i,j];a[n+1-i,j]:=x end;
writeln ('posle perestanovki');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:3);
writeln;
end;
end.
пожалуйста выручайте!!!!!!!!!!!!!!!!!!!!!!!!!!
я в прог-ии очень плохо разбираюсь!!!!!!!!!
Ответить с цитированием
Ads