Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.10.2011, 18:25   #11
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Задача N1
выше по тексту
Задача N2
http://www.programmersforum.ru/showthread.php?t=167348
задача тоже 2
95% сбоев и ошибок приложений, находится в полу метрах от монитора

Последний раз редактировалось JUDAS; 03.10.2011 в 18:29.
JUDAS вне форума
Старый 03.10.2011, 18:25   #12
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

и 2 задачу про года?
пожалуйста.....
Анастасия12 вне форума
Старый 03.10.2011, 18:26   #13
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

Задача N2
http://www.programmersforum.ru/showthread.php?t=167348
это что такое JUDAS??
Анастасия12 вне форума
Старый 03.10.2011, 18:26   #14
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Да я и сам 10 класс)) Только самостоятельно выучил С, Паксаль, асм для АВР))
Диман56 вне форума
Старый 03.10.2011, 18:44   #15
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Настён, задача решена, вам только выудить код.
Вижу что очень сложно
Код:
program Natsy12; 
function CheckYear(Y:integer):string;
var v : byte;
begin
  v:=0;
  if Y mod 10 = 1 then v:=1 else
  if Y mod 10 in [2..4] then v:=2;
  if Y div 10 = 1 then v:=0;

  case v of
   0: CheckYear:='let';
   1: CheckYear:='god';
   2: CheckYear:='goda';
  end;
end;

var K : integer;
     r  : string;
begin
 // 2. Для натурального числа K <100 вывести фразу "K лет".

  writeln('enter year ');read(K);
  if K in [1..150] then
  begin
   r:=CheckYear(K);
   writeln(K,' ',r);
  end else
  writeln('error input');]
  readln;
end.
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума
Старый 03.10.2011, 18:51   #16
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

2 задачу напишите пожалуйста?
Анастасия12 вне форума
Старый 03.10.2011, 18:53   #17
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

блин 2 задача JUDAS вообще слложная по научному решена как то, учитель не поверит что её я решила.
Ты можешь написать как нибудь попроще её?
плииз*)
Анастасия12 вне форума
Старый 03.10.2011, 18:56   #18
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

просто там на уроке мне надо её вводит долго это получится!((
он поймёт что не я решала((
Анастасия12 вне форума
Старый 03.10.2011, 18:58   #19
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

Тогда уж эту помогите пожаалуйста кроме про года которая((
Ввести номер месяца и вывести название времени года.
Пример:
введите номер месяца
4
весна
Анастасия12 вне форума
Старый 03.10.2011, 19:02   #20
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

людиииии, добрые помогите нууууу?
Анастасия12 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
Паскаль KoTЭ Фриланс 2 18.06.2010 13:28
Паскаль Vanta11a Помощь студентам 2 28.05.2008 16:27