ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Оффтоп > Болталка
Перезагрузить страницу помогите по задаче ?((
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

помогите по задаче ?((
  #1  
Старый 08.03.2009, 17:49
An90
Новичок
Регистрация: 19.04.2008
Сообщений: 14
Провел на форуме:
105109

Репутация: 7
По умолчанию помогите по задаче ?((
Определить количество использованного материала, если из прямоугольного листа вырезаются две детали в форме прямоугольников разных размеров. (решить с помощью 1)процедуры 2) функции)
----------------------------------------------------------------------
с меня плюсы.. пасиб всем кто поможет
 
Ответить с цитированием

  #2  
Старый 10.03.2009, 06:19
An90
Новичок
Регистрация: 19.04.2008
Сообщений: 14
Провел на форуме:
105109

Репутация: 7
По умолчанию
се таг слошно?((
 
Ответить с цитированием

  #3  
Старый 10.03.2009, 06:47
159932
Постоянный
Регистрация: 28.09.2007
Сообщений: 820
Провел на форуме:
6722038

Репутация: 1385


По умолчанию
PHP код:
<?
# типо в пикселях  :D 
function del($full = array(2000, 1000), $fst = array(200, 100), $snd = array(400, 200)) {
    $a = $full[0]*$full[1] - $fst[0]*$fst[1] - $snd[0]*$snd[1];
    return ($a > 0) ? $a : 0;
}
echo del();
?>
увы .. ты не уточнял на чём написать ....
и кстате, я не учитывал что может не хватить места на прямоуголнить ........ в том смысле что придёться вырезать и склеивать скотчем


за правильность этого, не отвечаю...
Код:
function del(full,fst,snd:array of integer):integer;
var a:integer;
	begin
		a = full[0]*full[1] - fst[0]*fst[1] - snd[0]*snd[1];
		if a > 0 then result := a
			else result := 0;
	end;

	
procedure del2(full,fst,snd:array of integer);
var a:integer;
	begin
		a = full[0]*full[1] - fst[0]*fst[1] - snd[0]*snd[1];
		if a > 0 then write(a)
			else write(0);
	end;
Последний раз редактировалось 159932; 10.03.2009 в 07:00..
 
Ответить с цитированием

  #4  
Старый 10.03.2009, 20:34
lisa99
Постоянный
Регистрация: 15.07.2008
Сообщений: 444
Провел на форуме:
1417964

Репутация: 665
По умолчанию
ты считаешь остаток (что логично)
но в задаче нужно было - сколько потрачено))
если я правильно поняла
 
Ответить с цитированием

  #5  
Старый 10.03.2009, 20:39
159932
Постоянный
Регистрация: 28.09.2007
Сообщений: 820
Провел на форуме:
6722038

Репутация: 1385


По умолчанию
да.. точно .. ступил ..
ну тогда надо из общего вычетать остаток .. думаю тс разберёться..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Народ!!! Помогите НАМ!!! Помогите покончить с беспределом!!! Monah Чаты 7 24.08.2005 07:06



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ