[Pascal] Вид треугольника по сторонам - Форум
Вторник, 06.12.2016, 08:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] Вид треугольника по сторонам ([01.05.2010] Циклы)
[Pascal] Вид треугольника по сторонам
nsavДата: Суббота, 24.04.2010, 20:38 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Написать программу, которая определяла бы вид треугольника по длинам его сторон a, b и с(если данные отрезки позволяют его построить). Следует учесть, что в качестве длин сторон могут быть случайно введены как нулевые, так и отрицательные значения.
 
DoKZДата: Воскресенье, 25.04.2010, 21:55 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Code
if (a <= 0) or (b <= 0) or (c <= 0) then begin writeln('Incorrect Data');halt(0);end;

if (a = b) and (b = c) then begin writeln('Равносторонний');halt(0);end;

if (a=b and b<>c) or (a=c and b<>c) or (c=b and a<>c) then begin writeln('Равнобедреный');halt(0);end;

if (a*a + b*b=c*c) or (c*c + b*b=a*a) or (a*a + c*c=b*b) then begin writeln('Прямоугольный');halt(0);end;

writeln('Разносторонний');


Курмангалиев Ельдар, ФМЛ Костанай
KBTU \ IITU \ SDU Abiturient
VK ID: 5369654

Delphi-Architecting
Freelance, помощь в решении задач, консультации =)

Сообщение отредактировал DoKZ - Воскресенье, 25.04.2010, 21:55
 
nsavДата: Понедельник, 26.04.2010, 21:34 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Спасибо большое. 1 вопрос halt(0) что значит? мы что т не проходили.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] Вид треугольника по сторонам ([01.05.2010] Циклы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016