С Новым годом! Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Нарисовать анимированную божью коровку Пожалуйста помогите!Мне нужно нарисовать анимированую божью коровку в PascalABC.net Пытался использовать эту божью коровку uses graphABC; var x,y,i:integer; begin hidecursor; setwindowsize(360,400); setpenwidth(3); line(100,120,280,300); https://www.cyberforum.ru/ pascalabc-net/ thread1445088.html Переделайте программу из TurboPascal в PascalABC.Net PascalABC.NET
Помогите пожалуйста!Переделайте программу из TurboPascal в PascalABC.Net Вот программа uses graph; var x1,y1,x2,y2,x3,y3,x4,y4:integer; p:array of pointtype; begin initgraph(x1,y1,''); {определим координаты 4 вершин пирамиды} x3:=getmaxX div 2+200;{низ право}
PascalABC.NET Упростить робота, чтобы он содержал минимальное количество шагов 1) Помогите пожалуйста упростить робота: uses Robot; var i:integer; begin Task('cc5'); for i:=1 to 4 do begin while freefromright do begin right; end; if freefromdown then down; https://www.cyberforum.ru/ pascalabc-net/ thread1444740.html PascalABC.NET Определить симметричность произвольного текста любой длины {Определить симметричность произвольного текста любой длины. Текст должен оканчиваться точкой. Задачу решить с помощью двух стеков.} Я пытался сделать, но моих знаний не хватает, подскажите, что дальше делать,пожалуйста. type PStack=^TStack; TStack=record Data:char; Next:PStack; end; https://www.cyberforum.ru/ pascalabc-net/ thread1444616.html
Найти сумму не кратных 5 элементов каждого массива PascalABC.NET
Всем доброго вечера, помогите решить данное задание т.к. вообще ничего не знаю про процедуры и функции программиста, заранее большое спасибо за любую помощь! :) Заданы три двумерных массива одинаковой размерности. Организовать ввод и вывод на экран массивов с использованием процедур программиста. Найти сумму не кратных 5 элементов каждого массива, используя функцию программиста. В...
PascalABC.NET Рисование фигур https://www.cyberforum.ru/ pascalabc-net/ thread1444455.html
Суть такова. Нужно сделать так, сначала вводишь число и программа строит фигуру с этим количеством вершин (допустим ввел число 5 и построилась фигура в которой пять вершин и все соединены друг с другом). Каждая вершина должна находиться в круге, а внутри круга номер вершины (от 1 до числа которое ты задал). А так же в программе нужно ввести еще два числа (не превышающие кол-во вершин) и в фигуре...
PascalABC.NET Отображение звездопада Всем привет! Возникла проблема при создании программы, реализующая отображение звездопада. В графике ничего не понимаю абсолютно, надеюсь на вашу помощь! Звездопад должен состоять из различных размеров звезд и цветов, и они должны падать в любой траектории) спасибо большое заранее за всё то, что можете мне предложить! https://www.cyberforum.ru/ pascalabc-net/ thread1444278.html PascalABC.NET Нарисовать несколько кругов, и выделить область пересечения
Есть задача: определение попадания точки на плоскость в область пересечения заданных кругов. Подскажите, как нарисовать эти самые круги и саму точку, которая задается координатами? необходимо ввести количество кругов, их координаты и радиусы, и нарисовать все это дело.
PascalABC.NET Определить произведение элементов в тех строках, которые не содержат отрицательных элементов https://www.cyberforum.ru/ pascalabc-net/ thread1443813.html
Дана целочисленная квадратная матрица. Определить: 1. произведение элементов в тех строках, которые не содержат отрицательныхэлементов. 2.Максимум среди сумм элементов диагоналей, параллельных главной диагоналей матрицы.
PascalABC.NET Файлы: Считывание, запись и обработка https://www.cyberforum.ru/ pascalabc-net/ thread1443803.html
Учащиеся n классов выполняли тестовое задание. Результат (оценка по 5-ной системе) поступали в файл. 1. Написать программу, которая имитирует работу занесения информации в файл. 2. Написать программу, которая считывает данные из файла и строит линейный график. 3. Написать программу, которая считывает информацию из файла и подсчитывает среднее значение, количество оценок 1,2,3,4,5. Результат...
PascalABC.NET Сортировка имен, фамилий и отчеств
var s1:string; s:array of string; a:array of string; i,j,j1,k,n:integer; begin read(n); for k:=1 to (n+1) do begin readln(s); for i:=1 to length(s) do
PascalABC.NET Ошибка времени выполнения: Индекс находился вне границ массива https://www.cyberforum.ru/ pascalabc-net/ thread1443439.html
program z_5; var s: array of integer; i, a, b, c: integer; begin a := 0; b := 0; c := 0;
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33006 / 21309 / 8183
Регистрация: 22.10.2011
Сообщений: 36,612
Записей в блоге: 8
13.05.2015, 15:19 0

Определить день недели, на который приходится день с указанной датой - PascalABC.NET - Ответ 7608316

13.05.2015, 15:19. Показов 14155. Ответов 9
Метки (Все метки)

Ответ

Ввести вот такую константу:
Pascal
1
2
3
4
const
  lst : string =
  'MON_ПН_ПОНЕДЕЛЬНИК_TUE_ВТ_    ВТОРНИК_WED_СР_      СРЕДА_' +
  'THU_ЧТ_    ЧЕТВЕРГ_FRI_ПТ_    ПЯТНИЦА_SAT_СБ_    СУББОТА_SUN_ВС_ВОСКРЕСЕНЬЕ_';
, и все это:
Pascal
1
2
3
4
5
6
7
if wd1s in ['MON', 'ПН', 'ПОНЕДЕЛЬНИК'] then kd := 0 //если значение wds = 'mon', 'пн' или 'понедельник', то kd = 1
 else if wd1s in ['TUE', 'ВТ', 'ВТОРНИК'] then kd := 1 //ИНАЧЕ если значение wds = ''tue', 'вт' или 'вторник', то kd = 2 
 else if wd1s in ['WED', 'СР', 'СРЕДА'] then kd := 2 //ИНАЧЕ если...
 else if wd1s in ['THU', 'ЧТ', 'ЧЕТВЕРГ'] then kd := 3 //ИНАЧЕ если..
 else if wd1s in ['FRI', 'ПТ', 'ПЯТНИЦА'] then kd := 4 //ИНАЧЕ если..
 else if wd1s in ['SAT', 'СБ', 'СУББОТА'] then kd := 5 //ИНАЧЕ если..
 else if wd1s in ['SUN', 'ВС', 'ВОСКРЕСЕНЬЕ'] then kd := 6; //ИНАЧЕ если..
заменить на
Pascal
1
kd := pos(wd1s + '_', lst) div 19;


Вернуться к обсуждению:
Определить день недели, на который приходится день с указанной датой PascalABC.NET
1
Заказать работу у эксперта
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.05.2015, 15:19
Готовые ответы и решения:

Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало...

Определить название месяца, на который приходится указанный день
Задан S - номер дня не высокосного года (1< S < 365). Определить название месяца и номер дня такого...

Определить день недели, на который приходится день с датой d (день), m (месяц)
Считая, что год не високосный и его 1 января приходится на день недели wd1, определиь wd -день...

Определить день недели, на который приходится день с введенной датой
имеются следующие описания:число=1..31 день недели(пн,вт,ср,чт,пт,сб).Считая,что год не високосный...

9
13.05.2015, 15:19
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.05.2015, 15:19
Помогаю со студенческими работами здесь

Определить день недели, на который приходится день с датой “d”, “m”.
Считая, что год не високосный и его 1 января приходится на день недели “wd1”, определить день...

Определить день недели, на который приходится день с датой d, m
Объявлены типы и переменные : TYPE ЧИСЛО = 1 .. 31; МЕСЯЦ= ( ЯНВ, ФЕВ, МАР, АПР,...

Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить на какой день недели приходится начало...

Определить день недели, на который приходится дата d
type число =1..31; месяц=1..12; год=1..2000; дата = record ч: число; м: месяц; г: год end;...

0
Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­­­­­­­­­­­­­х­р­о­н­­н­­­ы­­й счётчик с управляющим сигналом зад
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru