1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

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

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

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

Наш партнер Genesis Hackspace
  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 Гость

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

    Не могу нарисовать блок-схему маленькой программы
     
  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

    Не могу нарисовать блок-схему маленькой программы
     
  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]
     
Загрузка...

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