помогите по задаче ?((

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ОФФТОП > Болталка
помогите по задаче ?((

Опции темы

Поиск в этой теме

Опции просмотра

помогите по задаче ?((

08.03.2009, 17:49

An90

Новичок

Регистрация: 19.04.2008

Сообщений: 14

С нами: 9505650

Репутация: 7

помогите по задаче ?((

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

𝕏 Twitter Reddit Telegram Копировать ссылку

10.03.2009, 06:19

An90

Новичок

Регистрация: 19.04.2008

Сообщений: 14

С нами: 9505650

Репутация: 7

се таг слошно?((

10.03.2009, 06:47

159932

Постоянный

Регистрация: 28.09.2007

Сообщений: 820

С нами: 9799586

Репутация: 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..