Блок-схема Для Процедуры

Тема в разделе "Другие", создана пользователем anerita, 22 янв 2013.

  1. anerita

    anerita New Member

    Регистрация:
    8 ноя 2012
    Сообщения:
    0
    Симпатии:
    0
    помогите пожалуйста написать блок-схему к двум процедурам.
    1)Procedure MaterialNaBrak ;
    var i,j,k :integer;
    mater,brig,brignum: integer;
    Begin
    Clrscr;
    j:=1;
    mater:=0;
    readfileout1(n);
    readfileout(np);
    begin
    for i:=1 to np do
    begin
    Begin
    for k:=1 to 4 do
    if products.ind=products1[k].ind then
    begin
    mater:=products1[k].rasx*products.razr;
    break;
    end;


    2)Procedure MaterialPoBrigadam;
    var i,j,k :integer;
    sum,mater,brig,brignum: integer;

    Begin
    j:=1;
    sum:=0;
    mater:=0;
    readfileout1(n);
    readfileout(np);
    for j:=1 to 2 do
    begin
    for i:=1 to np do

    if j=products.ozy then
    Begin
    for k:=1 to 4 do
    if products.ind=products1[k].ind then
    begin
    mater:=products1[k].rasx;
    break;
    end;
    sum:=sum+(products.pzy*mater) ;
    End ;
    writeln('Materiala na izdeliya potratila ',j,' brigada ',sum,' gramm');
    sum:=0;
    end;
     
Загрузка...
Похожие Темы - Блок схема Для
  1. MadPolarBear
    Ответов:
    0
    Просмотров:
    1.385
  2. Davidka
    Ответов:
    0
    Просмотров:
    1.212
  3. He3HauKa
    Ответов:
    2
    Просмотров:
    1.252
  4. bumbarashek
    Ответов:
    1
    Просмотров:
    1.255
  5. 203
    Ответов:
    7
    Просмотров:
    3.265

Поделиться этой страницей