IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Задачи(2) На Описание фун-ии и процедуру!!! Help
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29

Репутация: -  0  +


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


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


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;


--------------------
With the best regards Vit

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Vit, я думаю можно удалить эту тему:
все решено здесь :
http://forum.pascal.net.ru/index.php?showt...indpost&p=13193


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.08.2017 19:42
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"