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

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

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

> “Игра” в слова, “Игра” в слова
сообщение
Сообщение #1


Гость






Приветик. Плизззз, помогите решить мне эту задачку. Я понятия не имею, как её решать.
Дана последовательность, содержащая от 2 до 5 слов, в каждом из которых
от 1 до 8 строчных латинских букв. Между соседними словами не менее одного пробела. За последним словом точка. Напечатать те слова-последовательности, которые отличаются от последнего слова и удовлетворяют следующему свойству:
1-я буква слова входит в него еще раз.
Заранее огромное спасибо.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
сообщение
Сообщение #2


Гость






даны натуральные числа a,b,c которые обозначает число месяц и год
а) проверить корректность этой даты (пример 30 февраля 900года)
б) найти номер этого дня с начала года
в) определить сколько полных дней осталось до конца года
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






MAX(X+Y+Z,XYZ);
MIN(X+Y+Z,XYZ);
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


Посмотри задачку. Находит день недели по дате.
проверяет дату но в случее неверного ввода выкидывает.
Ёще есть проблемы с високосным годом.
Если сможешь исравить то напиши
Код

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<=31) and (m>=1)
and (m<=12) and (y>=1582) and (y<=4903)
end;
Procedure WriteDay (d,m,y : Integer);
const
Days_of_week : array [0..6] of String [11] =
( ' Понедельник ' , ' Вторник ' , ' Среда ' ,
' Четверг ' , ' Пятница ' , ' Субота ' , ' Воскресенье ' );
var
c, w : Integer;
begin
if m < 3 then
begin
m := m + 10;
y := y - 1
end
else
m := m - 2;
c := y div 100;
y := y mod 100;
w := abs(trunc(2.6*m-0.2)+d+y div 4+y+c div 4-2*c) mod 7;
WriteLn (Days_of_week [w] )
end;
begin
repeat
InputDate (d,m,y, IsCorrectDate);
if IsCorrectDate then
WriteDay (d,m, y )
until not IsCorrectDate
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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