IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Определить день недели
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 37
Пол: Мужской

Репутация: -  0  +


Задали мне задачку с таким условием:
ИСПОЛЬЗУЯ СИМВОЛЬНЫЕ ПЕРЕМЕННЫЕ И ДРУГИЕ ТИПЫ ПЕРЕМЕН-
НЫХ,СОСТАВИТЬ ПРОГРАММУ - ОПРЕДЕЛИТЬ ДЕНЬ НЕДЕЛИ В ЗАВИСИМОСТИ ОТ ДАТЫ В ТЕКУЩЕМ ГОДУ.
Я наклепал следующее:
Код
program Lab411;
type month=1..12;
    days=1..31;
var
   x:integer;
   y:real;
   d:days;
   m:month;
label 1,2;
BEGIN
writeln('введите число, месяц');
readln(d,m);
if m>12 then goto 1;
case m of
1,3,5,7,8,10,12:if d>31 then goto 1;
2:if d>28 then goto 1;
4,6,9,11:if d>30 then goto 1;
end;
case m of
1:x:=d;
2:x:=31+d;
3:x:=59+d;
4:x:=90+d;
5:x:=120+d;
6:x:=151+d;
7:x:=181+d;
8:x:=212+d;
9:x:=243+d;
10:x:=273+d;
11:x:=304+d;
12:x:=334+d;
end;
y:=x-7*(int(x/7));
if y=0 then writeln('вторник');
if y=1 then writeln('среда ');
if y=2 then writeln('четверг');
if y=3 then writeln('пятница');
if y=4 then writeln('суббота ');
if y=5 then writeln('воскресенье');
if y=6 then writeln('понедельник');
goto 2;
1: writeln('ошибка ввода ');
2:END.

Вроде как работает, но всё ли правильно?

Сообщение отредактировано: volvo -


--------------------
coitus interruptus
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Женский

Репутация: -  0  +


2oleg309
по собственному опыту?  ;D

___
свои мысли он уже показал.. см. самое начало ..


--------------------
непонимающая..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Spinne   Определить день недели   6.12.2003 0:32
fms   Re: Определить день недели   6.12.2003 1:38
Spinne   Re: Определить день недели   6.12.2003 14:44
Spinne   Re: Определить день недели   6.12.2003 15:03
fms   Re: Определить день недели   6.12.2003 23:52
Spinne   Re: Определить день недели   7.12.2003 16:04
fms   Re: Определить день недели   7.12.2003 16:12
Spinne   Re: Определить день недели   7.12.2003 23:12
fms   Re: Определить день недели   8.12.2003 1:17
oleg309   Re: Определить день недели   8.12.2003 1:26
fms   Re: Определить день недели   8.12.2003 2:05
Spinne   Re: Определить день недели   8.12.2003 22:56
trminator   Re: Определить день недели   8.12.2003 23:56
Spinne   Re: Определить день недели   9.12.2003 2:52
fms   Re: Определить день недели   9.12.2003 14:25
Spinne   Re: Определить день недели   9.12.2003 22:38
fms   Re: Определить день недели   10.12.2003 0:27
Spinne   Re: Определить день недели   10.12.2003 1:01
fms   Re: Определить день недели   10.12.2003 1:13
Spinne   Re: Определить день недели   10.12.2003 1:31
fms   Re: Определить день недели   10.12.2003 2:07


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 3.12.2020 11:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name