Задачи на языке паскаль в делфи

[8ball]

даны два целых числа: D(день) и M(месяц), определяющие правильную дату високосного года. вывести значения D и M для даты, предшествующей данной. нужно написать программу на языке паскаля

[Stilet]

С потолка:

const mm:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var d,m:byte;
begin
 d:=12;m:=4;
 if d>1 then dec(d) else begin
  d:=1;
  if m>1 then  m:=mm[m-1] else m:=mm[12];
 end;
 write(d,'.',m);
end;

[8ball]

спасибо я попробую

[Serge_Bliznykov]

только год високосный, в феврале 29 дней...

const mm:array[1..12] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);

[8ball]

Описать функцию Min2(A,B) вещественного типа, находящую минимальное значение из двух вещественных чиел A и B. Используя эту функцию описать функцию Min4(A,B,C,D) вещественного типа, находящую минимальное значение из 4 вещественных чисел A, B, C и D.С помощью этой функции найти минимальное из наборов(A,B,C,D) (A,B,C,E) (A,C,D,E) если даны числа A, B, C, D, E.

[Mad_Cat]

Описать функцию Min2(A,B) вещественного типа, находящую минимальное значение из двух вещественных чиел A и B. Используя эту функцию описать функцию Min4(A,B,C,D) вещественного типа, находящую минимальное значение из 4 вещественных чисел A, B, C и D.С помощью этой функции найти минимальное из наборов(A,B,C,D) (A,B,C,E) (A,C,D,E) если даны числа A, B, C, D, E.

аппетит приходит во время еды?

function min2(a,b:real):real;
begin
if a<b then min2:=a
else min2:=b;
end;
function min4(a,b,c,d:real):real;
begin
min4:=min2(min2(a,b),min2(c,d));
end;

[8ball]

напомни как обратиться к функции

[8ball]

Фото0164.jpg

Фото0165.jpg

Фото0167.jpg

помогите пожалуйста 6 вариант

[8ball]

Дан файл f, компоненты которого являются действительными числами. Найти: Наибольшее из значений компонент файла. Записать это значение N раз после наименьшего значения компоненты файла (Можно использовать вспомогательный файл).

[Stilet]

А наработки?