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

  • Автор темы prikolist
  • Дата начала
P

prikolist

Гость
#1
Здравствуйте ув.программисты! Нарисуйте пожалуйста блок-схему этой маленькой программки, не знаю как, пожалуйста, меня скоро будут спрашивать. :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.
 
M

MADMAN

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

 
U

ugadai

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

DmitriyO

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

 
L

lazorjak

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

[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]