Надо построить блок-схемы..

[Sergei47]

Надо построить блок-схемы..

Program data;
VAR
A, B, C:INTEGER;
A_corr, B_corr, C_corr, Date_corr, vis:BOOLEAN;
Begin
Write('Enter day');ReadLn(A);
Write('Enter mouth'); ReadLn(B);
Write('Enter year'); ReadLn(C);
IF C>0 then C_corr:=True else C_corr:=FALSE;
IF (C_corr) and (C mod 4=0) and (C mod 400<>0) then vis:=true else vis:=false;
IF A<0 Then A_corr:=False else A_corr:=True;
IF B<0 Then B_corr:=False else B_corr:=True;
case B of
1,3,5,7,8,10,12: IF A>31 then A_corr:=False;
4,6,9,11:if A>30 Then A_corr:=false;
2:if ((vis) and(A>29)) or ((vis=false) and (A>28)) Then A_corr:=false;
Else B_corr:=false;
END;
If (a_corr) and (B_corr) and (C_corr) Then
WriteLn('The date is CORRECT')Else
WriteLn('The date is not CORRECT');
ReadLn;
END.
--------------------------------------------------------------------------
Program CJIoBo;
VAR
S:STRING;
i,Imin,Imax:INTEGER;
b:BOOLEAN;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
i:=0;
Imin:=0;
Imax:=0;
b:=FALSE;
REPEAT
i:=i+1;
IF (S='*') AND (b=FALSE) THEN
BEGIN
Imin:=i;
b:=TRUE;
END;
IF (S='*') AND (i>Imin) AND b THEN
Imax:=i;
UNTIL i=Length(S);
IF (Imin>0) AND (Imax>0) THEN
WriteLn('The first "*" position is ',Imin,'; the last "*" position is ',Imax)
ELSE
IF (Imin>0) AND (Imax=0) THEN
WriteLn('The only "*" position is ',Imin)
ELSE
WriteLn('There is no "*" in the string');
ReadLn;
END.
--------------------------------------------------------------------------
Пожалуйста...мне очень надо....заранее огромное спс!!!

Если вам очень надо - откройте MS Word и, используя панель рисования, самостоятельно накидайте блок-схему, ничего особо сложного в этом нет! К вашему сведению, существуют специализированные программы по преобразованию листинга паскалевских программ в графическое представление (блок-схемы). Google вам в помощь! Ваш модератор.