Задачи...одна на описание фун-ии, 2-ая на процедур Опции

[Geroi]

Кто с этим дружит, напишите своё решение...
1. Две геометрические фигуры вырезаны из бумаги: квадрат со стороной A и ромб с диагоналями C и D (данные вещественные). Описать функцию, аргументами которой являются размеры фигур, а результатом будет TRUE, если одна фигура больше другой и по площади и по периметру, и FALSE в противном случае.
2. Задан массив из 20 целых чисел. Описать процедуру для распечатки на экране номера первого среди ненулевых элементов.
Или может продложение как их решать....

[Вася]

Код

program kontr_1;
uses wincrt;
var a,b,e:real;
function l(r,c,d:real):boolean;
 var s1,s2,p1,p2:real;
begin
  s1:=r*r;
  s2:=0.5*c*d;
  p1:=4*r;
  p2:=2*sqrt(c*c+d*d);
  if ((s1>s2) and (p1>p2)) or ((s2>s1) and (p2>p1))
  then l:=true
  else l:=false;
end;
begin
     writeln('Ведите сторону квадрата');
     readln(a);
     writeln('Диагонали ромба');
     readln(b,e);
     writeln(l(a,b,e));
end.

Сообщение отредактировано: volvo - 17.12.2004 2:02