ФУНКЦИИ
и ГРАФИКИ

ЭЛЕМЕНТАРНЫЕ ФУНКЦИИ
ГРАФИКИ
ТЕСТЫ
КОНТАКТЫ
КАРТА САЙТА
НА ГЛАВНУЮ

NEW !!!

ПРОГРАММИРОВАНИЕ
TURBO PASCAL
C++
ПРОВЕРЬ СВОИ ЗНАНИЯ!
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 2
Задача: Даны три числа X, Y, Z. Проверить, существует ли треугольник с такими длинами сторон. Числа X, Y, Z вводятся с клавиатуры. Результат выводится на экран в удобном для восприятия виде.
Решение:
>>Скачать<<
program task2;
var x,y,z,r,r1,r2:real;
procedure obnulenie;
begin
     x:=0;
     y:=0;
     z:=0;
     r:=0;
     r1:=0;
     r2:=0;
end;

procedure vvod;
begin
     writeln('VVEDITE DLINI STORON TREUGOLNIKA X Y Z');
     readln(x,y,z);
end;
procedure proverka;
begin
     if (abs(x-y)      if (abs(x-z)      if (abs(z-y) end;

procedure vivod;
begin
     if (r=1) and (r1=1) and (r2=1) then writeln('Treugolnik suschestvuet!')
     else writeln('Treugolnik ne suschestvuet!');
end;

begin
     obnulenie;
     vvod;
     proverka;
     vivod;
     readln;
end.




Используются технологии uCoz