Блок-схема (Pascal)

[spinogryz_ua]

С блок-схемами тут в тупик зашел.
Мож поможете?

Программа:

Uses crt;
var i,n:integer;
function Sum(x:integer):integer;
var res,j:integer;
begin
res:=0;
for j:=1 to x-1 do
   if x mod j=0 then res:=res+j;
   Sum:=res;
end;
begin
writeln(' введіть число');
readln(n);
writeln ('Досконалі числа');
for i:=1 to n-1 do
 if Sum(i)=i then writeln(i);
end.

То что у меня получилось. Но не думаю что правильно:




Вот еще одна...

Program p2;
 const n = 17;m=17;
 Var  matrix: array [0..n,0..m] of integer;
     i,j,max_value:integer;
begin
  for i := 1 to n do
   begin
    for j := 1 to m do
     begin
           matrix[i,j] := Random(90)+10;
           write( matrix[i,j],' ')
     end;
  writeln;
end;
max_value := matrix[0,0];
  for i := 0 to n do
    for j := 0 to m do
      if max_value < matrix[i,j] then max_value := matrix[i,j];
 writeln; writeln(' max = ',max_value); writeln;
  for i := 0 to n do
    for j := 0 to m do
      if matrix[i,j] =max_value then writeln( 'matrix[',i,',',j,']=',max_value) ;
end.

[spinogryz_ua]

Ну что же вы жадины такие...
Как кто то просит с нуля сделать так бегом. А тут помоч прошу и хоть бы хто отозвался.

[gaw4]

Как кто то просит с нуля сделать так бегом
а сейчас уже мигом надо
воскресенье у людей

первая б-с вообще не от того кода (вернее код не от той б-с )

[gaw4]

к первому коду

[gaw4]

почему в коде 1
for i:=1 to n-1 do а не for i:=1 to n do


в коде 2 наверное надо везде работать либо от 0 либо от 1

[spinogryz_ua]

Сообщение от gaw4

первая б-с вообще не от того кода (вернее код не от той б-с )

Нет, это значит я до такой степени нуб что даже похожую сделать не могу.
Даные блок схемы это то, до чего хватило мого образования в этом деле.

[spinogryz_ua]

Ой, блин... Вот же дурак! 1 б-с действительно не к той программе.

#include<stdio.h>
#include<conio.h>
int main()
{
int i,j,d,n;
printf("%s\n","vvedite n ");
scanf("%d",&n);
for (i=n-1; i>0;--i)
{
d=0;
for ( j=1 ;j<i; ++j) 
if (i%j ==0)
d+=j;
if (i==d)
printf("%s%d\n","Sover. chislo: ",j);
}
getch();
return 0;
}

Вот к этой.

[spinogryz_ua]

Сообщение от gaw4

почему в коде 1
for i:=1 to n-1 do а не for i:=1 to n do


в коде 2 наверное надо везде работать либо от 0 либо от 1

Если чесно понятия не имею. На р-тат программы никак не влияет но когда преподше показал for i:=1 to n do то она исправила на for i:=1 to n-1

[gaw4]

для 2 кода