схемы к турбо паскалю

[tanyalove]

Уважаемые программисты помогите пожалуйста нарисовать схемы к следующим программам. Очень на вас надеюсь:

Program Mas;
uses crt;
var a:array[1..10] of real;
    c:array[1..10] of integer;
    count1,count2,max2,i,j,buf:integer;
    max1:real;
begin
   count1:=0;
   count2:=0;
   writeln('Введите массив C:');
   for i:=1 to 10 do
    begin
     write('a[',i,']= ');
     readln(a[i]);
    end;
   writeln;
   writeln('Введите массив C:');
   for i:=1 to 10 do
    begin
     write('c[',i,']= ');
     readln(c[i]);
    end;
   clrscr;
   for i:=1 to 10 do
    begin
     if a[i]=0 then inc(count1);
     if c[i]=1 then inc(count2);
    end;
   if count1=count2
    then
     begin
       max1:=a[1];
       max2:=c[1];
       for i:=1 to 10 do
        begin
         if a[i]>max1 then max1:=a[i];
         if c[i]>max2 then max2:=c[i];
        end;
       writeln;
       writeln('Максимальный элемент массива А = ',max1);
       writeln('Максимальный элемент массива C = ',max2);
     end
    else
     begin        {пузырек}
       for i:=1 to 10 do
        for j:=i+1 to 9 do
         if c[i]>c[j]
           then
             begin
              buf:=c[i];
              c[i]:=c[j];
              c[j]:=buf;
             end;
       writeln;
       writeln('Массив С отсортированный');
       for i:=1 to 10 do
        write(c[i]:3);
     end;
     
     writeln;
     writeln('Количество нулей в массиве А = ',count1);
     writeln('Количество единиц в массиве С = ',count2);
     readln
end.

6.Найти наименьший элемент матрицы X(5,7)и записать 0 в ту строку и столбец, где он находился .

Program Mas2;
uses crt;
var x:array[1..5,1..7] of integer;
    max,i,k,one,two:integer;
begin
  writeln('Введите массив X:');
  for one:=1 to 5 do
   for two:=1 to 7 do
     begin
      write('x[',one,',',two,']= ');
      readln(x[one,two]);
     end;
  clrscr;
  writeln('Массив X');
  for one:=1 to 5 do
  begin
   for two:=1 to 7 do
    write(x[one,two]:3);
   writeln;
  end;

  max:=x[1,1];
  for one:=1 to 5 do
   for two:=1 to 7 do
    if x[one,two]>max
     then
      begin
       i:=one;
       k:=two;
       max:=x[one,two]
      end;
      
   write('Индексы максимального элемента - x[',i,',',k,'].');
   x[i,k]:=0;
   readln
end.

4. Вычислить по схеме Горнера:
1)Y=
2)Y=

Program T;
var
  y1,y2,x: real;
  i: integer;
begin
  write('x='); readln(x);
  y1:=1; y2:=11;
  for i:=1 to 10 do
    begin
      y1:=1+i+y1*x;
      y2:=11-i+y2*x;
    end;
  writeln('y1=',y1);
  writeln('y2=',y2);
  readln;
end.

Помогите пожалуйста очень вас прошу!!!!!!!!!

[ROMA2PVT]

я же вам уже выкладывал схемы.Чем не понравились то?

[tanyalove]

Спасибо конечно, лично мне очень понравились, но преподаватель сказала что они нарисованы не правильно, и завтра последний срок сдавать? Может вы мне их правильно нарисуете? пожалуйста, на вас вся надежда

[ROMA2PVT]

блок-схемы правильные.И я в этом уверен.А по другому как их рисовать то если они верны.Сдавал отчёт по практике и схемы сразу приняли.

[tanyalove]

Можешь еще раз их прислать пожалуйста??????

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=98812
зачем вот ваша тема.
вот вторая.
http://programmersforum.ru/showthread.php?t=98845

[tanyalove]

мНЕ СКАЗАЛИ, ЧТО У МЕНЯ НЕТ СООТВЕТСТВИЯ СХЕМ С ПРОГРАММАМИ

[ROMA2PVT]

может ваш препод олень?там полное соответствие.Единственное что в третьей там надо подкоректировать процедуру нахождения MAX в соответствии со стандартом.

[tanyalove]

возможно и олень ну куда теперь деваться

[ROMA2PVT]

Вот для последней.
P.s:блок описания переменных после начала вставьте только.

да и предпоследняя программа (у вас) неверно написана.Проверьте и увидите.