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

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

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

 
 Ответить  Открыть новую тему 
> определить время года..., 2 простых задачи
сообщение
Сообщение #1





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

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


1) Нужно написать программу,которая по введённой дате определяет время года, корректо, т.е. не должно быть 29 февраля в не высокосный год и т.д.
2)Нужно составить программу которая выводит на экран в обратном порядке символы английского языка из таблицы ASCII.

Просто времени нет, с учёбой напряги. Пожалуйста с описаниями подмогите.

Сообщение отредактировано: Sahsok -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

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

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


В смысле определяет время года??? Это типа ты пишешь дату месяц год и тебе выводится сезон: лето, зима или осень и т.д???? так это и так же понятно !!!! если сентябрь то это осень если январь то это.........и. т.д. этож просто.... поподробнее опиши!!!!
Можь ты просто имеешь ввиду проблему высокосного года???

2)
Код

var
ch:char;
k:byte;
begin
for k:=90 downto 65  do
begin
 ch:=chr(k);
 write(ch:2);
end;
end.


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


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


Бывалый
***

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

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


наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет. smile.gif


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





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

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


Цитата(fms @ 9.10.04 23:13)
наверно имеется в виду что если например 29.02.2003 то д.б. ошибка т.к. такой даты нет. smile.gif

Именно так и есть, или допустим при вводе 99.99.99 то же выдовалась ошибка, а по месяцу там 5 секунд делов, я бы не спрашивал.

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


Пионер
**

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

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


Тагды можно сделать так:

Код

   uses crt;
   const Mes:array[1..12] of String[8]=
             ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
              'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

   const Den:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
   var Day,Month,Year:integer;
   label 1;
   begin
   clrscr;
   write('Year='); readln(Year);
   if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0)  then
   Den[2]:=29
   else
   Den[2]:=28;
      write(' Month='); read(Month);
      if (Month>12) or (Month=0) then begin writeln('Ошибка'); goto 1; end;
      write(' Day='); read(Day);
      if (Day>Den[Month]) or (Day=0) then begin writeln('Ошибка'); goto 1; end;
      writeln(Mes[Month]);
 1:   readkey;
   end.

Врямя года сам напишешь :yes:


--------------------
Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь.
Закон программиста: Семь раз отрежь, ошибся, отмерь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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