Сделайте блок схему

@МарусяБлин · Регистрация: 27.12.2013

Author24 — интернет-сервис помощи студентам

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
function perimetr (x,y,z:real):real;
begin
if (x>0) and (y>0) and (z>0) and (x+y > z) and (x+z > y) and (y+z > x) then
perimetr := x+y+z 
else perimetr := 0
end.

magirus · 28.12.2013, 11:07

вам тут ничем и никто не обязан, "сделайте", "написать"...
избегайте повелительных наклонений...

@koverzs · 29.12.2013, 02:24

Все банально просто

@Cyborg Drone · 29.12.2013, 14:14

koverzs, МарусяБлин, программа ничего не делает, поэтому бессмысленна, и делать к ней блок-схему нужно только после её исправления, а, может быть, и переписывания.

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	28.12.2013, 11:07	2
	вам тут ничем и никто не обязан, "сделайте", "написать"... избегайте повелительных наклонений... 0

@koverzs 0 / 0 / 0 Регистрация: 29.12.2013 Сообщений: 5
	29.12.2013, 02:24	3
	Все банально просто Миниатюры 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,009
	29.12.2013, 14:14	4
	koverzs, МарусяБлин, программа ничего не делает, поэтому бессмысленна, и делать к ней блок-схему нужно только после её исправления, а, может быть, и переписывания. 2