Построение Блок-Схем

@Sharp · Регистрация: 29.06.2009

Author24 — интернет-сервис помощи студентам

Добрый вечер! Кто-нибудь может мне помочь. Мне нужно до утра построить Блок-Схемы к задачам. Коды к задачам я написал, вроде работают, а вот Блок-Схемы к таким задачам не могу построить. Помогите пожалуйста кто чем сможет.
1. Заданы размеры A,B прямоугольного отверстия и размеры X,Y,Z кирпича. Определить, пройдет ли кирпич через отверстие.

Pascal

Program Zadacha_2;
Uses CRT;
Var a,b,x,y,z:real;f:boolean;
Function prohodit(o1,o2,s1,s2:real):boolean;
Begin CLRSCR;
Prohodit:=false;
If (s1<=o1) and (s2<=o2) then prohodit:=true;
If (s2<=o1) and (s1<=o2) then prohodit:=true;
End;
Begin CLRSCR;
Write('Введите размер отверстия A: ');
Readln(a);
Write('Введите размер отверстия B: ');
Readln(b);
Write('Введите размер кирпича X: ');
Readln(x);
Write('Введите размер кирпича Y: ');
Readln(y);
Write('Введите размер кирпича Z: ');
Readln(z);
f:=false;
If prohodit(a,b,x,y) then
Begin CLRSCR;
Writeln('Кирпич проходит в отверстие сторонами X ',x:5:2,' и Y ',y:5:2);
f:=true;
End;
If prohodit(a,b,x,z) then
Begin CLRSCR;
Writeln('Кирпич проходит в отверстие сторонами X ',z:5:2,' и Z ',z:5:2);
f:=true;
End;
If prohodit(a,b,z,y) then
Begin CLRSCR;
Writeln('Кирпич проходит в отверстие сторонами Z ',z:5:2,' и Y ',y:5:2);
f:=true;
End;
If not f then writeln('Кирпич ВООБЩЕ не проходит в отверстие');
Readkey;
End.

2. В целочисленной последовательности есть нулевые элементы. Найти произведение индексов этих переменных.

Pascal

Program Zadacha_2;
Const
  count=10;
  vp=10;
  np=-10;
Var
  p:array[1..count] of integer;
  i,pr:integer;
Begin randomize;
For i:=1 to count do
Begin p[i]:=random(vp-np)+np;
Writeln('p[',i,']=',p[i]);
End;
pr:=1;
For i:=1 to count do
If p[i]=0 then pr:=pr*i;
Writeln('Произведение индексов нулевых элементов pr = ',pr);
Writeln('Нажмите Enter для продолжения');
Readln;
End.

3. Вычислить суммы и число положительных элементов матрицы a(M,n) в конце строки.

Pascal

Program Zadacha_4;
Const m=4;
      n=5;
      vp=10;
      np=-10;
Var a:array[1..m,1..n] of integer;
    i,j,sp,chp:integer;
Begin randomize;
For i:=1 to m do
Begin;
For j:=1 to n do
Begin;
a[i,j]:=random(vp-np)+np;
Write('a[',i,',',j,']=',a[i,j],'  ');
End;
Writeln;
End;
sp:=0;
chp:=0;
For i:=1 to m do
Begin;
If a[i,n]>0 then
Begin;
sp:=sp+a[i,n];
chp:=chp+1;
End;
End;
Writeln('Сумма положительных элементов к конце строки sp = ',sp);
Writeln('Количество положительных элементов в конце строки chp = ',chp);
Writeln('Нажмите Enter для продолжения');
Readln;
End.

4. Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами.

Pascal

Program Zadacha_5;
Const
  m=4;
  n=5;
  vp=10;
  np=-10;
Var a:array[1..m,1..n] of integer; temp,i,j,mini,minj,maxi,maxj:integer;
Begin randomize;
  mini:=1;
  minj:=1;
  maxi:=1;
  maxj:=1;
For i:=1 to m do
Begin;
For j:=1 to n do
Begin;
a[i,j]:=random(vp-np)+np;
Write('a[',i,',',j,']=',a[i,j],'  ');
If a[i,j]<a[mini,minj] then
Begin;
mini:=i;
minj:=j;
End;
If a[i,j]>a[maxi,maxj] then
Begin;
maxi:=i;
maxj:=j;
End;
End;
Writeln;
End;
Writeln('Максимальный элемент a[',maxi,',',maxj,']=',a[maxi,maxj]);
Writeln('Максимальный элемент a[',mini,',',minj,']=',a[mini,minj]);
Temp:=a[maxi,maxj];
a[maxi,maxj]:=a[mini,minj];
a[mini,minj]:=temp;
Writeln('Полученная матрица');
For i:=1 to m do
Begin;
For j:=1 to n do
Write('a[',i,',',j,']=',a[i,j],'  ');
Writeln;
End;
Writeln('Нажмите Enter для продолжения');
Readln;
End.

5. Сформировать квадратную матрицу порядка n по заданному образцу:

1 2 3 ... n
n n-1 n-2 ... 1
1 2 3 ... n
n n-1 n-2 ... 1
. . . . .
. . . . .
. . . . .
n n-1 n-2 ... 1

Pascal

Program Zadacha_6;
Const n=5;
Var a:array[1..n,1..n] of integer;
    i,j:integer;
Begin;
For i:=1 to n do
Begin;
For j:=1 to n do
Begin;
If (((i/2)-int(i/2))=0.5) then a[i,j]:=j else a[i,j]:=n-j+1;
Write('a[',i,',',j,']=',a[i,j],'  ');
End;
Writeln;
End;
Write('Нажмите Enter для продолжения');
Readln;
End.

@Sharp · 06.07.2009, 13:26 **[ТС]**

Осталась только №2 и №3. Пожалуйста! Я знаю, какая это нудная работа.
Или скиньте ссылочку на похожую задачу с Блок Схемой.

Добавлено через 20 часов 25 минут 18 секунд
Осталась только №2.

@Puporev · 06.07.2009, 20:31

Перерисуй как по правилам.

@Sharp · 23.08.2009, 11:41 **[ТС]**

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

Перерисуй как по правилам.

Большое спасибо, Puporev.

@Puporev · 23.08.2009, 11:46

Не по теме:

Так долго сдавал?

@Sharp · 06.11.2009, 18:50 **[ТС]**

Просто преподаватель, которому я сдавал, ушла в декрет и лабораторную работу можно было сдать другому преподавателю в другое время. Еще раз БОЛЬШОЕ СПАСИБО!

@Давид · 06.11.2009, 19:04

Sharp, Вот еще раз все блок-схемы!ко всем вашим программам!

@Давид · 06.11.2009, 19:06

Где какая думаю разберетесь!

@Sharp · 07.11.2009, 12:54 **[ТС]**

Большое спасибо! Но не стоило, я уже все давно сдал.

@smartboy68 · 21.04.2010, 01:06

Помогите построить блок-схемы к программам:

Pascal

unit HORD;
interface
uses crt;
type Thord=object
     a,b,c,cp,eps:real;
     constructor init;
     procedure shag;
     function poisk:real;
end;
  implementation
  function funct(x:real):real;
  begin
   funct:=2*x*exp(x)-5
  end;
   constructor Thord.init;
    begin
         clrscr;
         writeln('  Metod HORD');
         write('Vvedite pogreshnost eps = ');
         readln(eps);
         write('Vvedite nachalo otrezka: a = ');
         readln(a);
         write('Vvedite konets otrezka: b = ');
         readln(b);
         cp:=b;
         c:=b-(funct(b)*(a-b))/(funct(a)-funct(b));
    end;
     procedure Thord.shag;
     begin
          if(funct(a)*funct(c)>0)
          then a:=c
          else b:=c;
          cp:=c;
          c:=b-(funct(b)*(a-b))/(funct(a)-funct(b));
     end;
      function Thord.poisk:real;
       begin
            while (abs(c-cp)>eps) do
             begin
              if(funct(c)=0) then
               begin
                    break;
               end
                else
                 begin
                      shag;
                 end;
             end;
                poisk:=c;
       end;
end.

Pascal

unit TRAP;
interface
uses crt;
type TTrap=object
     a,b,eps,s,x:real;
     constructor init;
     function poisk:real;
end;
    implementation
    function funct(x:real):real;
    begin
         funct:=x*x;
    end;
      constructor TTrap.init;
       begin
            clrscr;
            writeln('  Metod trapecii  ');
            write('Vvedite tochnost vichislenia eps = ');
            readln(eps);
            write(' Vvedite nachalnoe znachenie: a = ');
            readln(a);
            write(' Vvedite konechnoe znachenie: b = ');
            readln(b);
            x:=a;
       end;
         function TTrap.poisk:real;
          begin
               s:=0;
               while (x+eps<=b) do
               begin
               s:=s+abs(eps*funct(x+eps/2));
               x:=x+eps;
          end;
       poisk:=s;
   end;
end.

Pascal

unit EILER;
interface
uses crt;
type TEiler=object
     xn,yn,h,b,x,y:real;
     i:integer;
     constructor init;
     procedure shag;
     procedure poisk;
end;
    implementation
    function proizv(x,y:real):real;
     begin
          proizv:=0.1*(x*x+y*y);
     end;
       constructor TEiler.init;
        begin
             clrscr;
             xn:=1;
             yn:=1;
             h:=0.4;
             b:=5.4;
             Writeln('--------------------');
             Writeln('| N |  x  |   y   |');
             Writeln('--------------------');
             x:=xn; y:=yn; i:=1;
        end;
         procedure TEiler.shag;
          begin
               y:=y+h*proizv(x,y);
               x:=x+h;
               i:=i+1;
          end;
            procedure TEiler.poisk;
             begin
              repeat
              Writeln('|', i:2, ' |', x:5:2,'|', y:7:4,'|');
              shag;
              until (x>b)
             end;
end.

@diam · 21.04.2010, 09:47

Для первого юнита блок-схема в прицепе.
С остальными - во фриланс или в личку, если никто больше не сделает.

@Puporev · 21.04.2010, 09:51

Не по теме:

diam, А в рассылке Subscribe ссылка на твой продукт не работает.

@diam · 21.04.2010, 10:12

Puporev, спасибо, только я в этой рассылке ничего своего не рекламировал. Если не сложно - кинь ссылку на страницу с моей прогой мне в личку.

Новые блоги и статьи
В чем разница между let и var в JavaScript InfoMaster 20.01.2025 JavaScript прошел длинный путь эволюции с момента своего создания в 1995 году. Одним из важнейших аспектов развития языка стало совершенствование механизмов объявления и управления переменными. . . .	Эффективная работа со строками в Go InfoMaster 20.01.2025 Язык программирования Go предлагает уникальный подход к работе со строками, который существенно отличается от многих других языков программирования. В Go строки представляют собой неизменяемые. . .	Как проверить, что отображение (map) содержит ключ в Go InfoMaster 20.01.2025 Отображения (maps) в языке программирования Go представляют собой мощные структуры данных, которые позволяют хранить пары ключ-значение и обеспечивают быстрый доступ к данным по уникальным. . .	Как организовать домашнее хранилище фильмов с общим доступом для всей семьи InfoMaster 20.01.2025 Преимущества домашнего медиасервера В современном мире, где цифровой контент стал неотъемлемой частью нашей жизни, организация домашнего медиасервера становится все более актуальной задачей. . . .	Перспективы развития жестких дисков: есть ли у них будущее? InfoMaster 20.01.2025 История и эволюция жестких дисков История развития жестких дисков начинается в 1956 году, когда компания IBM представила первое устройство для хранения данных на магнитных пластинах - IBM 350. . .	Распознавание изображений (компьютерное зрение) на C++ InfoMaster 20.01.2025 Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .
Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .

@Sharp 0 / 0 / 0 Регистрация: 29.06.2009 Сообщений: 5
	06.07.2009, 13:26 [ТС]	2
	Осталась только №2 и №3. Пожалуйста! Я знаю, какая это нудная работа. Или скиньте ссылочку на похожую задачу с Блок Схемой. Добавлено через 20 часов 25 минут 18 секунд Осталась только №2. 0

@Sharp 0 / 0 / 0 Регистрация: 29.06.2009 Сообщений: 5
	23.08.2009, 11:41 [ТС]	4
	Сообщение от Puporev Перерисуй как по правилам. Большое спасибо, Puporev. 0

@Puporev
	23.08.2009, 11:46 #5
	Не по теме: Так долго сдавал? 0

@Sharp 0 / 0 / 0 Регистрация: 29.06.2009 Сообщений: 5
	06.11.2009, 18:50 [ТС]	6
	Просто преподаватель, которому я сдавал, ушла в декрет и лабораторную работу можно было сдать другому преподавателю в другое время. Еще раз БОЛЬШОЕ СПАСИБО! 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.11.2009, 19:04	7
	Sharp, Вот еще раз все блок-схемы!ко всем вашим программам! 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.11.2009, 19:06	8
	Где какая думаю разберетесь! Миниатюры 1

@Sharp 0 / 0 / 0 Регистрация: 29.06.2009 Сообщений: 5
	07.11.2009, 12:54 [ТС]	9
	Большое спасибо! Но не стоило, я уже все давно сдал. 0

@Puporev
	21.04.2010, 09:51 #12
	Не по теме: diam, А в рассылке Subscribe ссылка на твой продукт не работает. 0

@diam 846 / 84 / 7 Регистрация: 06.12.2009 Сообщений: 344
	21.04.2010, 10:12	13
	Puporev, спасибо, только я в этой рассылке ничего своего не рекламировал. Если не сложно - кинь ссылку на страницу с моей прогой мне в личку. 0