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

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

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

2 страниц V  1 2 >  
 Ответить  Открыть новую тему 
> Определить день недели
сообщение
Сообщение #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  +


вот не моя прогр. (откуда не оч. помню.. sad.gif ). опр-ет день недели и кол-во дней между 2-мя датами.

Код
program Days; {$N+,E+}
var
 r,f:comp;
 y,d,m:integer;

procedure pause; assembler;
asm
     mov      ah,8
     int      21h
     or      al,al
     jne      @
     int      21h
@:
end;

procedure pro80;
var
 w:byte;
 st:string[11];
begin
 f:=365*y+d+31*(m-1);
 if m<=2 then
 begin
   f:=f+trunc((y-1)/4);
   f:=f-trunc(3*(trunc((y-1)/100+1))/4)
 end
 else begin
   f:=f-trunc(0.4*m+2.3)+trunc(y/4);
   f:=f-trunc(3/4*(trunc(y/100)+1))
 end;
 w:=trunc(f-trunc(f/7)*7);
 case w of
   0: st:='вс'; 1: st:='пн';
   2: st:='вт'; 3: st:='четв'; 4: st:='среда';
   5: st:='пт'; 6: st:='сб '
 end;
 writeln('это день --- ',st); writeln
end;

procedure read_dt;
const sp='введите деньмесяцгод: [dd mm yyyy]: ';
begin
 write(sp); read(d,m,y); pro80
end;

begin
 writeln; write('определение дня недели и ');
 writeln('кол-ва дней м/у датами.'); writeln;
 read_dt; r:=f; read_dt;
 writeln('между этими датами -- ',
   abs(f-r):15:0,' дней.'); pause
end { Days }.


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


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


Новичок
*

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

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


Оччень интересно...


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


Новичок
*

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

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


А как насчёт схемы алгоритма?


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


Бывалый
***

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

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


только там не оч. определяется правильность введенной даты.. т.е. можно вводить номер месяца, например, больше 12.. но эт не сложно добавить наверно..


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


Новичок
*

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

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


И всё така алгоритм!


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


Бывалый
***

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

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


дак а что алгоритм?! я ведь не буду программу словами переписывать.. а алгоритма у меня нету..


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


Новичок
*

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

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


Цитата
дак а что алгоритм?!

Помоги мне свой составить!


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


Бывалый
***

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

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


:o
для начала.. хотя бы "пожалуйста" можно говорить..  >:(
а потом.. если у тебя есть 2 варианта решений.. то ты сам не сможешь составить?!


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


профи
**

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

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


Цитата
:o
для начала.. хотя бы "пожалуйста" можно говорить..  >:(
а потом.. если у тебя есть 2 варианта решений.. то ты сам не сможешь составить?!

СОГЛАСЕН! >:( И свои мысли покажи! Халявы сдеся нету!!


--------------------
Тело, находящееся в состоянии покоя, стремится смотреть телевизор.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Бывалый
***

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

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


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

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


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


Новичок
*

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

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


Ну так вот говорю всем ПОЖАЛУЙСТА!!!!!!
А насчёт халявы плохо...
НУ НЕ ПОНИМАЮ Я СХЕМУ АЛГОРИТМА!


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


Четыре квадратика
****

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

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


А чем тебя твоя-то программа не устраивает? Вроде работает...


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

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

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


Работает, согласен. А алгоритм надо. Без него лабораторную не приймут...


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


Бывалый
***

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

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


2Spinne

дак если ты написал 1-ую свою программу.. значит ты знаешь ее алгоритм?! дак в чем проблема?  :-/


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


Новичок
*

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

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


А ты можешь начертить схеиу алгоритма согласно ГОСТ 19.701-90?


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


Бывалый
***

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

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


2Spinne

я не знаю что это за ГОСТ. как то не надо мне было подобного.. тебе что блок схема нужна что ли?!


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


Новичок
*

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

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


может быть........... :-[


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


Бывалый
***

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

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


2Spinne
а ты хоть немного представление имеешь как это сделать?! т.е. может вам на занятиях рассказывали?.. или как? я просто например не знаю про этот ГОСТ. т.к. не оч. надо было..
поточнее расскажи как и что.. может что нить придумается..


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


Новичок
*

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

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


Уважаемый fms, пришли мне свой имейл, и я зброшу тебе пару файликов. А там посмотрим.........В январе сессия............печально..............


--------------------
coitus interruptus
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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