Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи(2) На Описание фун-ии и процедуру!!! Help
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
Geroi
8.01.2003 20:25
Кто с этим дружит, напишите своё решение...
1. Две геометрические фигуры вырезаны из бумаги: квадрат со стороной A и ромб с диагоналями C и D (данные вещественные). Описать функцию, аргументами которой являются размеры фигур, а результатом будет TRUE, если одна фигура больше другой и по площади и по периметру, и FALSE в противном случае.
2. Задан массив из 20 целых чисел. Описать процедуру для распечатки на экране номера первого среди ненулевых элементов.  
Или может продложение как их решать....
Vit
9.01.2003 18:45
1.Вроде так, если я не ошибся с математикой...

Код
Function Check(A,B,C:real):boolean;
var s1,s2,p1,p2:real;
begin
 s1:=sqr(a);// площадь квадрата
 p1:=a*4;// периметер квадрата
 s2:=(c*d)/2;//площадь ромба
 p2:=4*sqrt(sqr(c)/4+sqr(d)/4));//периметер ромба
 result:=((s1>s2) and (p1>p2)) or ((s1<s2) and (p1<p2));
end;



2.
Код

for i:=1 to 20 do
 if a[i]<>0 then
  begin
    write(a[i]);
    break;
  end;
Ivs
9.01.2003 18:51
Vit, я думаю можно удалить эту тему:
все решено здесь :
http://forum.pascal.net.ru/index.php?showt...indpost&p=13193
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.