Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Dimonn1003
0 / 0 / 1
Регистрация: 24.10.2012
Сообщений: 65
1

Есть прога которая выводит следующую дату заданому кварталу, дню недели и название месяца.

26.12.2012, 00:02. Просмотров 306. Ответов 0
Метки нет (Все метки)

Последняя прога которую мне осталось сделать в текущем семестре. Есть прога которая выводит следующую дату заданому кварталу, дню недели и название месяца. Но она как выяснелось сделана правельно но нужно было использовать неопознаный тип type=(
Pascal
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
Uses Crt;
Const
   WeekDay: Array[1..7] of String[11]=('monday',
                                       'tuesday    ',
                                       'wednesday      ',
                                       'thursday    ',
                                       'friday    ',
                                       'saturday    ',
                                       'sunday');
   DayPerMonth: Array[1..12] of byte =
                  (31,       {1 }
                   28,       {2 }
                   31,       {3 }
                   30,       {4 }
                   31,       {5 }
                   30,       {6 }
                   31,       {7 }
                   31,       {8 }
                   30,       {9 }
                   31,       {10}
                   30,       {11}
                   31);      {12}
   NameMonth: Array[1..12] of string[8] =
                  ('january  ',       {1 }
                   'February ',       {2 }
                   'march    ',       {3 }
                   'April  ',       {4 }
                   'May     ',       {5 }
                   'June    ',       {6 }
                   'July    ',       {7 }
                   'August  ',       {8 }
                   'September',       {9 }
                   'October ',       {10}
                   'November  ',       {11}
                   'December ');      {12}
Var nMonth, nDay, nWeekDay : byte;
    xMonth, xDay, xWeekDay : byte;
    kvartal, nKvartal:byte;
 
Begin
  ClrScr;
  Write('Vvedite nomer mesyaca  ');
  repeat
    ReadLn(nMonth);
  until nMonth in[1..12];
 
  Write('Vvedite den   ');
  repeat
    ReadLn(nDay);
  until nDay in[1..DayPerMonth[nMonth]];
 
  Write('Vvedite nomer dnya nedeli  ');
  repeat
    ReadLn(nWeekDay);
  until nWeekDay in[1..7];
 
 
  WriteLn('----------------');
  xWeekDay:=nWeekDay+1;
  If xWeekDay>7 then xWeekDay:=1;
  xDay:=nDay+1;
  xMonth:=nMonth;
  If xDay>DayPerMonth[xMonth] then
    begin
      Inc(xMonth);
      If xMonth>12 then xMonth:=1;
      xDay:=1;
    end;
  WriteLn('   Vasha data');
  WriteLn(nDay,' ',NameMonth[nMonth],' ',WeekDay[nWeekDay]);
  WriteLn('   Sleduyshaya data');
  WriteLn(xDay,' ',NameMonth[xMonth],' ',WeekDay[xWeekDay]);
  ReadLn;
End.
Добавлено через 2 часа 17 минут
исправте плз, заплачу 50 грн тоесть 250р на webmoney прогу нужно переделать с помощью перечислительного типа
type
WeekDay=(mon,wed,...
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2012, 00:02
Ответы с готовыми решениями:

Вывести день недели и название месяца по введенному дню
Цель:Календарик. Пользователь вводит число и месяц (числами), а программа в...

3.1 Написать программу, которая по заданному числу (от 1 до 12) выводит название соответствующего ему месяца.
Написать программу, которая по заданному числу (от 1 до 12) выводит название...

По веденному дню недели,напечать его название.
По веденному дню недели,напечать его название. P.S Заранее спасибо (:

Напишите программу, которая выводит название дня недели по номеру дня
4. Напишите программу, которая выводит название дня недели по номеру дня,...

По введенному номеру месяца, определить к какому кварталу он принадлежит
по введенному номеру месяца, определить к какому кварталу он принадлежит

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2012, 00:02

По номеру месяца и номеру дня найти день недели, приходящийся на эту дату
2. По номеру месяца и номером дня найти день недели приходится на эту дату.

Написать функцию, которая по номеру n определяет соответствующее название дня недели
Написати функцию, которая по номеру n определяет соответствующее название дня...

Составить программу, которая по номеру введенного месяца выводит время года
Составить программу, которая по номеру введенного месяца выводит время года с...


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

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

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