Pascal ABC .NET 4 задачи

[Stydent777]

Здраствуйте мне на самостоятельной дали 6 задач (дома оставшиеся дорешать потом принести) 2 я решил остальние не знаю как - запутался знаю что детский сад но все равно помогите, в понедельник уже принести нужно!

Вот

3. Создать подпрограмму, которая по заданному массиву дат возвращает массив тех из них, которые относятся к високосным годам.

4. Создать подпрограмму, которая удаляет из заданного массива дат все более ранние, чем заданная дата. (Используйте параметр заполненность массива.)

5. Описать процедуру ArrayToMatrCol, формирующую по вещественному массиву A за полненности K матрицу B размера M × N (матрица заполняется элементами массива A по столбцам). «Лишние» элементы массива игнорируются; если элементов массива недостаточно, то оставшиеся элементы матрицы полагаются равными 0.

6. Напишите процедуру, которая выводит заданный текст в каждом из четырех углов гра фического окна. (Обратите внимание на то, чтобы текст не выходил за границы окна.)

[Ezhuk]

держи первую

const int N=3;//размер массива с годами
	int A[N]={142,1253,4444},count=0,t=0;
	for(int i=0;i<N;i++)//высчитывает количество высокосных годов
		if(A[i]%4==0)
			count++;
	 int *a = new int [count];//создание нового массива
	
	for(int i=0;i<N;i++)
		if(A[i]%4==0)
			a[t++]=A[i];//заполнение нового массива высокосными годами
	for(int i=0;i<count;i++)//вывод на экран полученный массив
		printf("%d\n",a[i]);

[Косюра]

А ты, милок, на чем пишешь, то? А то тебе щас тут напишут на разных языках и у тя не примут ничего. На чем писать то?

[Stydent777]

на Pascal ABC .NET пожалуйста!

[veniside]

мда, Pascal ABC.. интересно, в SharpDevelop знают об этих кулибиных? Взять чужие исходники, прикрутить немного своих обработчиков, облепить всё левыми копирайтами.. молодцы.


Чтобы не оффтопить:

3. Создать подпрограмму, которая по заданному массиву дат возвращает массив тех из них, которые относятся к високосным годам.

uses
  SysUtils;

type
  TDateArray = array of TDateTime;

// --  --
function GimmeLeapDatesThanks(const inA: TDateArray; out outA: TDateArray): Integer;
var
  i: Integer;
  Y, M, D: Word;
begin
  result := 0;
  for i := low(inA) to high(inA) do begin
    //
    DecodeDate(inA[i], Y, M, D);
    if (IsLeapYear(Y)) then begin
      //
      inc(result);
      SetLength(outA, result);
      outA[result] := inA[i];
    end;
  end;
end;

Код на чистом Delphi. Попробуйте запустить его в Pascal МыУкралиЕго™®©.

Сообщение от Ezhuk

if(A[i]%4==0)
count++;

У меня для вас плохие новости.

[Ezhuk]

veniside, хм... что-то я тогда не о том подумал xD

[Stydent777]

с 5 и 6 друг помог разобраться осталось только 4!
и я еще один номер пропустил

Описать запись Date с полями целого типа, день, месяц и год. Предусмотреть методы
Init и Print. Добавьте в запись метод LeapYear, определяющий является ли год ви
сокосным. (Високосным считается год, делящийся на 4, за исключением тех годов, ко
торые делятся на 100 и не делятся на 400.)

все