1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. anerita

    anerita New Member

    Репутация:
    0
    Регистрация:
    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;
     
Загрузка...

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