ПОМОГИТЕ ПОЖАЛУСТА!! ОЧЕНЬ СРОЧНО!!

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
СтрелоК
Сообщения: 9
Зарегистрирован: 12 янв 2007, 13:28

12 янв 2007, 14:56

ЛЮДИ!!!!!!!! НАПОМОЩЬ!!!!!!!!! К ЭКЗАМЕНУ НЕ ДОПУСКАЮТ!!!!! НАДО СРОЧНО СДЕЛАТЬ ЭТИ ЗАДАЧИ!!!! ПЛИЗ!!!!
1.Найти произведение последних L положительных элементов в массиве A={a}

2.Написать программу, преобразующую строку, содержащую дату в формате мм/дд/уу к форме "день месяц год". Например 12/14/60 в 12 декабря 1960

3.Даны три множества х1={1,2,3..20}, х2={10,20,30..30}, х3={1,3,5..21}.
Сформировать множество У=(х1 х2)(х1 х3)(х2 х3) из которого выделить подмножество У1 чисел, делящихся на 4 без остатка.
Вывести на печать мн-ва У и У1. Исходные ввести с клавиатуры.


4.(эту задачу я сделал, но если у кого есть лишняя минутка, то сделайте и ее. на всякий случай).
Пусть последовательность состоит только из цифр. Определить, упорядоченны ли они по возрастанию.


ЗЫ: Все массивы N<=20 (я все переписывал с листа с заданиями, и если есть какието вопросы, то увы, мне неукого уточнить(( сделайте как понимаете).
кстати, огромная просьба, если не сложно делать небольшие пометки.

ЛЮДИ!!! ЭТО ОЧЕНЬ СРОЧНО!! МОГУТ ИЗ УНИВЕРА ВЫГНАТЬ МЕНЯ!!! СПАСИТЕ!! МНЕ В СУББОТУ УТРОМ НАДО ЭТО ОТНЕСТИ ПРЕПОДУ!!! ПОМОГИТЕ ПОЖАЛУСТА!!!
СтрелоК
Сообщения: 9
Зарегистрирован: 12 янв 2007, 13:28

12 янв 2007, 15:02

Добрые люди! помогите ради бога! вот мое мыло на всякий случай, если что, отвечать можно туда lord-elessar@yandex.ru
Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

12 янв 2007, 20:11

Первое - примерно так:

Код: Выделить всё

mul:=1;
l:=сколько надо
for i :=length(a) downto 1 do
if a[i]>0 then begin
  mul:=mul*a[i];
  l:=l-1;
  if l=0 then break
end;
Вторую - еще проще.

Код: Выделить всё

var months:array[1..12] of string
begin
  months[1]:='января';
  months[2]:='февраля';
...
  months[12]:='декабря';
  s:='12/06/05';
  x:=strtoint(copy(s,4,2)); {вытаскиваем из строки 2 символа, начиная с 4 - собственно 06, номер месяца, и преобразуем его в число}
  result:=copy(s,1,2)+' '+months[x]+' 19'+copy(s,7,2);
end.
То есть копируем первые два символа (день) и последние два (две последние цифры года). Две первые цифры года придумываем сами, я взял 19... То есть получится у нас 12 июня 1905 года

По 3 задаче - непонятно, каким образом формируется множество. Если нет никакой дополнительной информации - я бы не сделал.

4 - вообще в трех строчках
result:=true;
for i:=1 to length(mas)-1:
if mas<=mas[i-1] then result:=false
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
СтрелоК
Сообщения: 9
Зарегистрирован: 12 янв 2007, 13:28

12 янв 2007, 21:56

Хыиуду, спосибо тебе большое. а то я с первой задачей жутко тупил. вроде все ясно, а никак не мог отладить. А в тетей там по ходу дела именно в моем варианте не пропечатались знака между Х-ами(( ладно. пожелай мне удачи сдать все это завтра) Спосибо тебе еще раз! Ты мне очень помог!
Ответить