Вопрос № 109809: Доброе утро!
type число=1..31; месяц=1..12; год=1..2000; дата=record ч:число; м:месяц; г:год end; Cчитая, что все даты даются по григорианскому календарю (новому стилю), описать логическую функцию верная дата(d), проверяющую правильность дат...Вопрос № 109861: Господа эксперты подскажите ПОЖАЛУЙСТА как написать элементарную программу с логическими and и and not. Подставляя переменные а, в, с....Вопрос № 109883: пожалуйста помогите
нужно написать программа,которая бы отвечала является ли заданная пользователем квадратная матрица симметричной и теплицевой!
Теплицева матрица-элементы,лежащие на главной диагонали равны,симметричная матрица-"Матрица...
Вопрос № 109.809
Доброе утро!
type число=1..31; месяц=1..12; год=1..2000; дата=record ч:число; м:месяц; г:год end; Cчитая, что все даты даются по григорианскому календарю (новому стилю), описать логическую функцию верная дата(d), проверяющую правильность даты d (т.е. чтобы не было 31 июня и т.п.).
Отправлен: 17.11.2007, 09:42
Вопрос задал: Ezhik (статус: Практикант)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зиновьев Дмитрий Владимирович
Здравствуйте, Ezhik!
<b>program</b> CheckDate;
<b>type</b>
TDay = 1..31;
TMonth = 1..12;
TYear = 1..2000;
<b>type</b>
TMyDate = <b>record</b>
Day: TDay;
Month: TMonth;
Year: TYear;
<b>end</b>;
<b>function</b> Check(InDate: TMyDate): <b>Boolean</b>;
<b>begin</b>
<b>if</b> InDate.month <b>in</b> (1,3,5,7,8,10,12) <b>then</b>
Chek := True;
<b>if</b> InDate.month <b>in</b> (4,6,9,11) <b>then</b>
<b>if</b> InDate.day < 31 <b>then</b>
Chek := True
<b>else</b>
Chek := False;
<b>if</b> InDate.month = 2 <b>then</b>
<b>if</b> InDate.year div 4 = 0 and (InDate.year div 100 <> 0 or InDate.year div 400 = 0) <b>then</b>
<b>if</b> InDate.day <30 <b>then</b>Check := true <b>else</b>
<b>if</b> InDate.day <29 <b>then</b>Check := true <b>else</b>
Check := false;
end;
begin
//Ваша программа
end.
Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс)
Ответ отправлен: 17.11.2007, 10:08 Оценка за ответ: 5
Отвечает: Логвинов Андрей Игоревич
Здравствуйте, Ezhik!
Григорианский календарь начал действовать в Европе с 15 октября 1582, а в России с 14 февраля 1918 г. т.ч. с 1 по 1582 г, по крайней мере не было дат Григорианского календаря... Какие проверки конкретно необходимы ? На високосность и количество дней в разных месяцах ? Я с детства занимаюсь этой задачей - собаку съел и не одну :) могу про Юлианский и Григорианский календарь много рассказать ! ;) У меня есть программы, написанные на Pascal, MIDLetPascal (для мобильников) и различные функции в JavaScript и др.языках.
--------- Всё в жизни к лучшему)))
Ответ отправил: Логвинов Андрей Игоревич (статус: 1-ый класс)
Ответ отправлен: 17.11.2007, 13:10
Вопрос № 109.861
Господа эксперты подскажите ПОЖАЛУЙСТА как написать элементарную программу с логическими and и and not. Подставляя переменные а, в, с.
Отвечает: Зиновьев Дмитрий Владимирович
Здравствуйте, Макаров Сергей !
Я извеняюсь, но какой вопрос, такой ответ.
1. Если a, b, c - логические
IF a AND b AND (not c)
2. Если сложные условия с переменными
IF (a = b) AND (a > c) AND NOT (c = 3)
Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс)
Ответ отправлен: 17.11.2007, 16:29 Оценка за ответ: 4
Вопрос № 109.883
пожалуйста помогите
нужно написать программа,которая бы отвечала является ли заданная пользователем квадратная матрица симметричной и теплицевой!
Теплицева матрица-элементы,лежащие на главной диагонали равны,симметричная матрица-"Матрица"="Матрица транспонированная".
Заранее благодарю!
Отправлен: 17.11.2007, 19:05
Вопрос задал: German1989 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, German1989!
Смотрите приложение.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Специалист)
Ответ отправлен: 21.11.2007, 17:51 Оценка за ответ: 5 Комментарий оценки: спасибо огромное,вы-супер!
