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

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

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

> определить время года..., 2 простых задачи
Sahsok
сообщение 9.10.2004 20:07
Сообщение #1





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

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


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

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

Сообщение отредактировано: Sahsok - 9.10.2004 20:16
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
Amro
сообщение 9.10.2004 21:44
Сообщение #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 - 9.10.2004 22:11


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


Бывалый
***

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

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


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


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





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

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


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

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

Сообщение отредактировано: Sahsok - 10.10.2004 4:51
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Amro
сообщение 10.10.2004 13:11
Сообщение #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 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 28.07.2025 20:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"