Как сделать календарь в паскале

Добавил пользователь Евгений Кузнецов
Обновлено: 04.10.2024

Процедуры, необходимые для работы с датой и временем включены в модуль DOS. Подключение модуля осуществляют командой Uses DOS. Модуль обеспечивает связь программы с MS DOS и содержит более 20 процедур и функций. Наиболее часто используются следующие из них:

1) GetTime(H,M,S,S100); – процедура; возвращает установленное в операционной системе текущее время в виде: H – часы (0..23), M – минуты (0..59), S – секунды (0..59), S100 – сотые доли секунды (0..99). Все переменные процедуры имеют тип Word.

2) GetDate (Y,M,D,DW); – процедура; возвращает установленную в операционной системе текущую дату в виде: Y – год (1980..2099), M – месяц (1..12), D – день (1..31), DW - день недели (0..6, где значению "0" соответствует воскресенье). Все данные выходные и имеют тип Word.

Пример. Модуль DOS позволяет запустить из Паскаль-программы другую программу по командной строке DOS, посмотреть атрибуты файла (время создания, имя, тип и т.д.), объем дисковой памяти (общей и свободной) и выполнять другие команды MS DOS.

попробуй вроде работает
uses crt;
var IsCorrectDate:boolean;
d,m,y:integer;
procedure INPUTDATE(var d,m,y:integer;var correctly: boolean);
begin
write('Введите дату в формате ДД ММ ГГГГ: '); readln(d,m,y);
correctly:= (d>=1) and (d =1)
and (m =1582) and (y Jurii Высший разум (172559) 9 лет назад

Если на Гугле забанили, то можно воспользоваться Яндексом!

Мне уже третья ссылка дала полный программный код на запрос:
Паскаль день недели по дате

Как будет выглядеть формула в паскале для вечного календаря W = ( d + [(13m - 1) / 5] + [5y / 4] + [ - 7c / 4] ) % 7.

В условии есть одна неточность : не раскрыта суть операции "квадратные скобки".

На самом деле это функция floor, возвращающая целое число, не большее исходного.

Перепишем формулу в надлежащий математический вид :

$\displaystyle W=\left(d+\left\lfloor\frac\right\rfloor+\left\lfloor\frac\right\rfloor +\left\lfloor\frac\right\rfloor\right)mod \ 7$

В Паскале операция floor для неотрицательного вещественного числа х, а также для отрицательного вещественного числа х с нулевой дробной частью отображается на функцию Trunc(х).

Если дробная часть отрицательного числа ненулевая, нужно использовать отображение Trunc(x) - 1.

Теперь мы можем записать соответствующее выражение для языка Паскаль :

if c mod 4 = 0 then W : = - 7 * (c div 4) else W : = Trunc( - 7 * c / 4) - 1 ;

W : = (d + Trunc((13 * m - 1) / 5) + Trunc(5 * y / 4) + W) mod 7 ;

Найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры?

Найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры.

Примерно представляю, как все должно выглядеть, но вот записать это языком Паскаля не могу никак.

Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов?

Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов.

P. S формулы в программе быть не должно.

Кто силен в паскале?

Решение нужно перевести на паскаль.

То есть математическую формулу перевести на паскаль.

Помогите написать программу в паскале под эту формулу?

Помогите написать программу в паскале под эту формулу.

Напишите программу нахождение площади треугольника по формуле Герона, на Паскале?

Напишите программу нахождение площади треугольника по формуле Герона, на Паскале.

Формулу надо перевести на язык паскаль?

Формулу надо перевести на язык паскаль.

Excel Как будет выглядеть формула = А1 + А2, если её скопировать на две ячейки вправо ?

Excel Как будет выглядеть формула = А1 + А2, если её скопировать на две ячейки вправо :

За решите математическую формулу соответствующую данной формуле на Паскале : a + b / c + c * d / a / b?

Как сделать задание в паскале?

Как сделать задание в паскале.

Ни чего не получается, если можно то формулы напишите для таблиц.

Выполните вычисление по формуле |x| - |y| / 1 + |xy|?

Выполните вычисление по формуле |x| - |y| / 1 + |xy|.

Задание из паскаля.

Вы находитесь на странице вопроса Как будет выглядеть формула в паскале для вечного календаря W = ( d + [(13m - 1) / 5] + [5y / 4] + [ - 7c / 4] ) % 7? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.

Var sum, number : integer ; begin sum : = 0 ; repeat write('Введите число : ') ; readln(number) ; sum : = sum + number ; until (sum > 1000) ; writeln('Сумма чисел : ' + sum) ; end.

Для кодирования номера одного из 256 спортсменов требуется log(2)256 = 8 бит = 1 байт. Объем информации о финише 100 лыжников = 100 * 1 байт = 100 байт.

N : = i + k + n = 1 + 5 + 0 = 6 n : = 6 - 5 = 1 k : = n = 1.

1 - в Рёсгпё тёоуавса 2 - а Классный час 3 зима = 9 10 14 1 к + 9 о + 10 м + 14 п + 1 ь + 9 ю + 10 т + 14 е + 1 р + 9 = ушърезаёщ 4 банк = 2 1 14 11 (без ё) ж - 2 п - 1 ю - 15 щ - 12 е - 2 б - 1 = дорога.

Объем одного символа в 1ом тексте : N = 2 ^ i32 = 2 ^ 5i = 5 битРазмер одного символа во 2 - ом тексте : 64 = 2 ^ 6i = 66 : 5 = 1, 2Ответ : в 1, 2 раза.

64 * 64 = 4096 пикселей 512 байт / 4096 пикселей = 1 / 4 байта на пиксель = 2бита на пиксель 2бита это 4 цвета Ответ : 4 цвета.

1) Алгоритмы бываю линейные, циклические, разветвляющиеся и вспомогательные. 3) это пошаговая инструкция, последовательность действий, описывающая процесс преобразования объекта из начального состояние в конечное.

1)мб0. 03125 бит32768 вроди так.

625 кбайт вес * 1024 * 8 = 5120000 бит вес 5120000 бит вес / 128000 бит сек = 40 сек.

137(10) - А(2)Что бы перевести число 137 в двоичную систему, нужно последовательно делить его на 2. Числа после " : " - остаток 137 / 2 = 68 : 168 / 2 = 34 : 034 / 2 = 17 : 017 / 2 = 8 : 18 / 2 = 4 : 04 / 2 = 2 : 02 / 2 = 1 : 01 / 2 = 0 : 1137(10) =..

© 2000-2022. При полном или частичном использовании материалов ссылка обязательна. 16+
Сайт защищён технологией reCAPTCHA, к которой применяются Политика конфиденциальности и Условия использования от Google.

Эта программа на подобие PAINT.

procedure keydown(key: integer);
begin

if key=Vk_up then S:=S+1;
if key=Vk_down then S:=S-1;

if key=Vk_left then A:=A-1;
if key=Vk_right then A:=A+1;

if A=0 then A:=A+1;
if A=11 then A:=A-1;

if S=0 then S:=S+1;
if S=10 then S:=S-1;

end;
procedure MouseDown(x,y,mb: integer);
begin
MoveTo(x,y);
end;
procedure MouseMove(x,y,mb: integer);
begin

if S=1 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clblack); setbrushcolor(clblack); circle(7,7,A); end;
if S=2 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clgreen); setbrushcolor(clgreen); circle(7,7,A); end;
if S=3 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clred); setbrushcolor(clred); circle(7,7,A); end;
if S=4 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clblue); setbrushcolor(clblue); circle(7,7,A); end;
if S=5 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clyellow); setbrushcolor(clyellow); circle(7,7,A); end;
if S=6 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clbrown); setbrushcolor(clbrown); circle(7,7,A); end;
if S=7 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clsilver); setbrushcolor(clsilver); circle(7,7,A); end;
if S=8 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clpurple); setbrushcolor(clpurple); circle(7,7,A); end;
if S=9 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(cllime); setbrushcolor(cllime); circle(7,7,A); end;

if mb=1 then circle(X,Y,A);
setbrushcolor(clwhite);
setpencolor(clwhite);
if mb=2 then circle(X,Y,A);
end;
begin
gotoxy(1,2);
write('меняйте цвет стрелками на клавиатуре вверх и вниз. стирать пкм, рисовать лкм.');
gotoxy(5,1);
write('менять размер кисти стрелками влево и вправо.');

Onkeydown:=keyDown;
OnMouseDown:=MouseDown;
OnMouseMove:=MouseMove
end.

Читайте также: