Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.12.2009, 19:24   #1 (permalink)
Sergei47
Member
 
Аватар для Sergei47
 
Регистрация: 05.10.2009
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Надо построить блок-схемы..

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[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 вам в помощь! Ваш модератор.
Sergei47 вне форума   Ответить с цитированием

Старый 28.12.2009, 19:24
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что проблема получила свое решение по этим ссылкам

Помогите, пожалуйста, нарисовать блок-схемы?
Блок питания для схемы TDA7294
Помогите построить сеть Wi-Fi
Построение блок-схемы
Построить блок-схему
Составить алгоритмы блок-схемы

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:43.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.