Не могу нарисовать блок-схему маленькой программы

Тема в разделе "Delphi - Базы данных", создана пользователем prikolist, 24 ноя 2008.

  1. prikolist

    prikolist Гость

    Здравствуйте ув.программисты! Нарисуйте пожалуйста блок-схему этой маленькой программки, не знаю как, пожалуйста, меня скоро будут спрашивать. :unsure:

    Вот листинг программы.

    Program Xai;
    Uses crt;
    Var min,i;integer;
    v1,v2,v3:array[1..5] of integer;

    Begin ClrScr;

    writeln;
    writeln('Введите 5 элементов вектора V1');
    for i:=1 to 5 do read(v1);
    readln;
    min:=10000;
    for i:=1 to 5 do begin
    if v1<min then min:=v1;
    end;
    writeln;
    write('Min=');
    writeln(min);
    readln
    end.
     
  2. MADMAN

    MADMAN Гость

    Еслит честно уж фиг знает скока лет блок схемы не чертил но вроде так!

    [​IMG]
     
  3. ugadai

    ugadai Гость

    Люди, помогите написать блок-схемы к двум задачам!!! Срочно надо!!!
    1.Найти наименьшее значение k>0 (целое), при котором значение функции Y=X^k становится меньше А. Величина Х и А заданы, k=1,2,3...
    2.Определить число эллементовмассива Т(8х16), удовлетворяющих условию 0,1<sin(t)<0,5. Если это число превысит 50, то все элементы массива записать равными 0.
    Люди, плиз!!!!
     
  4. DmitriyO

    DmitriyO Гость

    Программа для автоматического построения Блок схем по коду Delphi
    www.dmitriyo.narod.ru
    AvtoShema

    [​IMG]
     
  5. lazorjak

    lazorjak Гость

    нарисуйте пожалуста кто та
    блок схему очень нужно
    заранее спасиба

    [codebox]PROGRAM EMBLEMU;

    USES CRT,GRAPH;


    PROCEDURE LG;
    VAR Gd,Gm,x,y:Integer;
    BEGIN
    Gd:=Vga; Gm:=VGaHi; InitGraph(Gd,Gm,'');
    SetColor(Red); SetFillStyle(1,REd);
    FillEllipse(225,240,160,160);
    SetColor(White); SetFillStyle(1,White);
    FillEllipse(175,180,20,20);
    Bar(220,160,235,320); Bar(230,320,265,305);
    Arc(225,240,90,360,125);
    Arc(225,240,90,360,140);
    Line(225,100,225,115);
    Bar(265,235,365,250);
    FloodFill(220,110,White);
    SetColor(LightGray); SetTextStyle(3,0,1);
    SetUserCharSize(4,1,4,1);
    for x:=420 to 421 do
    for y:=150 to 151 do OutTExtXY(x,y,'LG');
    Readln; SetBkColor(LightRed); Readln; SetBkColor(White);
    readln; CloseGraph;
    end;

    PROCEDURE SONY;

    Const r:Byte=10;
    draw:Boolean=true;
    Var Gd,Gm,x,y,columns,row:Integer;
    Begin
    Gd:=Vga; Gm:=VgaHi; InitGraph(Gd,Gm,'');
    SetBkColor(LightGray); SetColor(Blue);
    SetFillStyle(1,Blue);
    for columns:=1 to 7 do
    begin
    for row:=1 to 7 do
    begin
    if columns>5 then
    case columns of 6:draw:=Not(row in [2,3] );
    7:draw:=Not(row in [1..4,7]);
    end;
    if draw then FillEllipse(170+columns*35,60+row*35,r,r)
    end;
    if columns in [1,3,5] then Inc(r,2)
    end;
    SetTextStyle(1,0,1); SetUserCharSize(3,1,2,1);
    for x:=200 to 201 do
    for y:=320 to 321 do OutTextXY(x,y,'S O N Y');
    readln;
    SetBkColor(White); readln;
    SetPalette(1,5);
    SetBkColor(Cyan); readln; closeGraph;
    end;

    PROCEDURE PILIPS;
    Var Gd,Gm,x,y,y0,i,k:integer;
    begin
    Gd:=Vga; Gm:=VgaHI; InitGraph(Gd,Gm,'');
    SetBkColor(Blue); SetColor(White);
    for k:=0 to 1 do
    begin
    LIne(220+k,90,220+k,250);
    LIne(420-k,90,420-k,250);
    Arc(320,250,180,360,100-k);
    Circle(320,250,90+k);
    for i:=1 to 3 do
    for x:=230 to 410 do
    PutPixel(x,232+Round(6*Sin(x/15-6))+i*10+k,15);
    x:=270+k*100; y:=205+k*90; MoveTo(x,y-30);
    LineTo(x+2,y-2); LineTo(x+30,y);
    LineTo(x+2,y+2); LineTo(x,y+30);
    LineTo(x-2,y+2); LineTo(x-30,y);
    LineTo(x-2,y-2); LineTo(x,y-30);
    x:=290+k*60; y:=185+k*130; MoveTo(x,y-20);
    LineTo(x+1,y-1); LineTo(x+20,y);
    LineTo(x+1,y+1); LineTo(x,y+20);
    LineTo(x-1,y+1); LineTo(x-20,y);
    LineTo(x-1,y-1); LineTO(x,y-20);
    FloodFill(x,y,White);
    end; {for}
    SetFillStyle(1,White); SetTextStyle(6,0,4);
    for x:=238 to 239 do
    for y:=100 to 102 do OutTextXY(x,y,'P H I L I P S');
    readln;
    SetBkColor(Cyan); readln; SetBkColor(Red);
    readln; CloseGraph;
    end;

    PROCEDURE SAMSUNG;
    Const x1=160; y1=270; x2=480; y2=241;
    var Gd,Gm:Integer;
    x,y,a,b:LongInt;

    begin

    Gd:=Vga; Gm:=VgaHI; InitGraph(Gd,Gm,'');
    for x:=150 to 495 do

    begin
    a:=Sqr(x-x1);
    b:=Sqr(x-x2);
    for y:=180 to 300do
    if Sqrt(a+Sqr(y-y1))+Sqrt(b+Sqr(y-y2))<334 then PutPixel(x,y,1)
    {else PutPixel(x,y,7)}
    end;
    SetColor(White); SetTextStyle(3,0,1);
    SetUserCharSize(1,1,1,1);
    for x:=230 to 230 do
    for y:=240 to 240 do OutTextXy(x,y,'S A M S U N G');
    readln; SEtBkColor(Cyan); readln; SetBkColor(Blue);
    SetPalette(Blue,White); SetPalette(White,Blue);
    readln; CloseGraph;
    end;
    var
    k:integer;
    label 1,2;
    begin
    clrscr;
    writeln ('1 - LG');
    writeln ('2 - SONY');
    writeln ('3 - PILIPS');
    writeln ('4 - SAMSUNG');
    writeln ('5 - EXIT');
    1: readln(k);
    case k of
    1: LG;
    2: SONY;
    3: PILIPS;
    4: SAMSUNG;
    5: goto 2;
    end;
    goto 1;
    2:
    end.[/codebox]
     
Загрузка...

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