Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 03.04.2016, 00:54   #1 (permalink)
Programm
Новичок
 
Регистрация: 22.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Положительные числа x, y, z могут быть сторонами треугольника...

Положительные числа x, y, z могут быть сторонами треугольника, если большее из них меньше суммы двух других. Напишите функцию, которая возвращает true, если числа x, y, z могут быть сторонами треугольника, иначе возвращает false.
Programm вне форума   Ответить с цитированием

Старый 03.04.2016, 00:54
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Это ссылки, по которым содержаться схожие с вашей темы

Не работает фотореле, в чем могут быть проблемы?
Могут ли быть причиной насилия видеоигры?
В чем могут быть проблемы?
Могут ли быть помехи в ПК от кондиционера?

Старый 03.04.2016, 02:15   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
По умолчанию

Код:
uses Crt;
function Fun(a,b,c:integer):boolean;
begin
     if a<(b+c)
      then Fun:=true
      else Fun:=false;
end;
var  x,y,z:integer;
begin
     ClrScr;
      repeat
         Write('x= ');
          Readln(x);
           if x<=0
            then Writeln('Neverniy vvod');
      until x>0;
      repeat
         Write('y= ');
          Readln(y);
           if y<=0
            then Writeln('Neverniy vvod');
      until y>0;
      repeat
         Write('z= ');
          Readln(z);
           if z<=0
            then Writeln('Neverniy vvod');
      until z>0;
      if (x>y) and (x>z)
       then
        if Fun(x,y,z)
         then Writeln('Mogut')
         else Writeln('Ne mogut')
       else
        if (y>x) and (y>z)
         then
          if Fun(y,x,z)
           then Writeln('Mogut')
           else Writeln('Ne mogut')
         else
          if (z>x) and (z>y)
           then
            if Fun(z,x,y)
             then Writeln('Mogut')
             else Writeln('Ne mogut');
     ReadKey;
end.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

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

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:56.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.