|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.06.2010, 00:03 | #1 |
Пользователь
Регистрация: 31.05.2010
Сообщений: 21
|
Паскаль
Помогите пожалуйста сделать блок-схему к задаче....
Составьте программу, которая определяла бы вид треугольника (если данные отрезки позволяют его построить). program treugolnik; uses crt; var a,b,c: real; begin clrscr; writeln (`введите длины отрезков`); readln (a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then writeln (`треугольник существует, определим вид`) else writeln (`треугольник не существует); if (a=b) or (b=c) or (a=c) then writeln (`треугольник равнобедренный`); if (a=b) and (a=c) then writeln (`треугольник равносторонний); if (a + b = c ) or (a + c = b) or (b + c = a ) then writeln (`треугольник прямоугольный`); else writeln (`треугольник разносторонний`); readln; end. |
11.06.2010, 01:29 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Добавьте только после начала блок описания переенных.
P.S: Правильность написания даже не проверял.Вы выложили => уверены что верно написали.
にんじゃ
|
11.06.2010, 08:39 | #3 |
Пользователь
Регистрация: 31.05.2010
Сообщений: 21
|
Спасибо большое)))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |