|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.12.2009, 19:24 | #1 (permalink) |
Member
Регистрация: 05.10.2009
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Надо построить блок-схемы..
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[i]='*') AND (b=FALSE) THEN BEGIN Imin:=i; b:=TRUE; END; IF (S[i]='*') 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 вам в помощь! Ваш модератор. |
28.12.2009, 19:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что проблема получила свое решение по этим ссылкам Помогите, пожалуйста, нарисовать блок-схемы? Блок питания для схемы TDA7294 Помогите построить сеть Wi-Fi Построение блок-схемы Построить блок-схему Составить алгоритмы блок-схемы |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|