Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
cuber
7 / 7 / 1
Регистрация: 22.06.2010
Сообщений: 40
#1

блок - схема - Pascal

24.12.2010, 16:08. Просмотров 334. Ответов 2
Метки нет (Все метки)

Доброго времени суток!!!! суть задания состоит в создании блок - схемы, но т.к. я не очень умею их строить прошу помочь, вот код , по которому нужно построить блок - схему. Помогите плиз, срочно нужно, до завтра!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program Project4_2;
{$APPTYPE CONSOLE} 
uses 
  SysUtils; 
label 
  10,
  20;
type 
  WeekDay=array[1..7] of string;
  YearMonth=array[1..12]of string;
var
  s:string;
  MyWeek:WeekDay;
  Month:YearMonth;
  x:integer; 
begin 
  MyWeek[1]:='Ponedelnik';
  MyWeek[2]:='Vtornik';
  MyWeek[3]:='Sreda';
  MyWeek[4]:='4etverg';
  MyWeek[5]:='P9Itnica';
  MyWeek[6]:='Subbota';
  MyWeek[7]:='Voskresen`e';
  writeln(('Vvedite nomer dn9I nedeli 1..7, a 4tobbI zakon4it i vbIiti 0'));
  writeln;
10:readln(x);
  case x of
    0: s:=('Do svidani9I!!!');
    1: s:=(MyWeek[x])+(' - Snova rabotat` :(');
    2: s:=(MyWeek[x])+(' - Prodol)|(aem rabotat`');
    3: s:=(MyWeek[x])+(' - ...mmm...Rabotaem');
    4: s:=(MyWeek[x])+(' - Rabo4ii den`');
    5: s:=(MyWeek[x])+('- Zavtra otdbIxaem!:)');
    6: s:=(MyWeek[x])+(' - Yra! VbIhodnoi xD');
    7: s:=(MyWeek[x])+(' - Snova otdbIhaem, a zavtra...');
    else
      begin
        writeln(('Ne pravilnbIi vvod, povtorite'));
        goto 10;
      end;
end;
  writeln(s);
  writeln;
  writeln(('Vvedite nomer mes9ca 1..12, a 4tobbI zakon4it i vbIiti 0'));
  writeln;
  if x<>0 then goto 20;
    begin
      Month[1]:='9nvar';
      Month[2]:='Fevral';
      Month[3]:='Mart';
      Month[4]:='Aprel';
      Month[5]:='Mai';
      Month[6]:='Iun`';
      Month[7]:='Iul`';
      Month[8]:='Avgust';
      Month[9]:='Sent9br`';
      Month[10]:='Okt9br`';
      Month[11]:='No9br`';
      Month[12]:='Dekabr`';
      20:readln(x);
      case x of
    0:  s:=('Do svidani9I!!!');
    1:  s:=(Month[x])+(' - Snova u4eba :(');
    2:  s:=(Month[x])+(' - Prodol)|(aem u4its9');
    3:  s:=(Month[x])+(' - ...mmm...u4ims9');
    4:  s:=(Month[x])+(' - U4ebnbIi mes9c');
    5:  s:=(Month[x])+(' - U4ebnbIi mes9c:)');
    6:  s:=(Month[x])+(' - Yra! KanikulbI xD');
    7:  s:=(Month[x])+(' - Yra! KanikulbI xD');
    8:  s:=(Month[x])+(' - Yra! KanikulbI xD');
    9:  s:=(Month[x])+(' - Snova u4its9');
    10: s:=(Month[x])+(' - U4ims9');
    11: s:=(Month[x])+(' - Zakan4ivaem u4its9');
    12: s:=(Month[x])+(' - KanikulbI:)');
    else
      begin
        writeln(('Ne pravilnbIi vvod, povtorite'));
        goto 20;
           end;
  end;
    writeln(s);
  readln
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 16:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос блок - схема (Pascal):

Блок-схема - Pascal
составить блок-схему к программе Program Massiv2; сonst n=10; var a: array of real; i,j,k:integer; sum, max:...

Блок-схема - Pascal
uses crt; var k,i: integer; begin write ('k='); readln (k); write('мы нашли ',k); if k in then writeln(' грибов в лесу')...

Блок-схема - Pascal
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); ...

Блок-схема. - Pascal
program t2; type mas=array of integer; var i,j,n,f:integer; a:mas; bool:boolean; function...

Блок-схема - Pascal
Подскажите пожалуйста как для этого построить блок-схему. можно даже на словах) главное суть уловить. А то меня смущает repeat и case. ...

Блок-схема - Pascal
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2; e:=0.000000001; t:=1; s:=0;

2
Siriuss18
0 / 0 / 0
Регистрация: 21.11.2010
Сообщений: 17
24.12.2010, 21:09 #2
Поищи программу в нете для создания блок-схем!
0
cuber
7 / 7 / 1
Регистрация: 22.06.2010
Сообщений: 40
25.12.2010, 00:48  [ТС] #3
искал,не так строит
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 00:48
Привет! Вот еще темы с ответами:

Блок-схема - Pascal
Помогите, пожалуйста!) Мне нужна блок схема по массиву, а именно отсортированый массив, только в Qbasicе)

Блок-Схема - Pascal
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count: integer; zaput: string; zp: st; ...

Блок схема - Pascal
Ребят, помогите пожалуйста написать блок схему к задаче. Даны 2 массива --&gt; упорядочить по возрастанию --&gt; и записать в 3 массив. Всю...

блок-схема - Pascal
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer; i,mi,n:integer; begin mi:=1;


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.