Составить процедуру PlPrTr(A,B,C,S,L), определяющую по значениям длин сторон треугольника, является ли он прямоугольным

@olegin12 · Регистрация: 17.11.2012

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

Решите пожалуйста вот эти задачи. Очень прошу.

№4
Описать функцию Sign(X) целого типа, возвращающую для веще*ственного числа X следующие значения: — 1, если X <0; 0, если X = 0; 1, если X >0. С помощью этой функции найти значение выражения Sign(A) + Sign(B) для данных вещественных чисел A и B.
Составить процедуру PlPrTr(A,B,C,S,L), определяющую по значениям длин сторон треугольника, является ли он прямоугольным. (A, B, C — входные параметры вещественного типа, S, L — выходные параметры; S – параметр вещественного типа, L – параметр логического типа). Если треугольник прямоугольный, то вычислить его площадь.
Полное задание: http://files.etherway.ru/BE00A

@olegin12 · 08.12.2012, 09:23 **[ТС]**

Помогите пожалуйста, очень нужно. Сдать сегодня нужно.

@КонецСвета · 09.12.2012, 12:46

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var za,zb,zc,zs: real;
    zl: boolean;
    
procedure PlPrTr(a,b,c: real; var s: real; var l: boolean);
begin
if (sqr(a)+sqr(b)=sqr(c)) or (sqr(c)+sqr(b)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
   begin
   l:=true;
   s:=a*b/2;
   end else
       begin
       s:=0;
       l:=false;
       end;
end;
 
begin
write('Длина стороны А='); readln(za);
write('Длина стороны B='); readln(zb);
write('Длина стороны C='); readln(zc);
PlPrTr(za,zb,zc,zs,zl);
if zl then writeln('Площадь прямоугольного треугольника=',zs:0:2) else writeln('Треугольник не прямоугольный');
end.

@КонецСвета · 09.12.2012, 21:19

блок-схемы

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@olegin12 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 28

	Составить процедуру PlPrTr(A,B,C,S,L), определяющую по значениям длин сторон треугольника, является ли он прямоугольным 07.12.2012, 00:00. Показов 1598. Ответов 3 Метки нет (Все метки) Решите пожалуйста вот эти задачи. Очень прошу. №4 Описать функцию Sign(X) целого типа, возвращающую для веще*ственного числа X следующие значения: — 1, если X <0; 0, если X = 0; 1, если X >0. С помощью этой функции найти значение выражения Sign(A) + Sign(B) для данных вещественных чисел A и B. Составить процедуру PlPrTr(A,B,C,S,L), определяющую по значениям длин сторон треугольника, является ли он прямоугольным. (A, B, C — входные параметры вещественного типа, S, L — выходные параметры; S – параметр вещественного типа, L – параметр логического типа). Если треугольник прямоугольный, то вычислить его площадь. Полное задание: http://files.etherway.ru/BE00A 0

@olegin12 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 28
	08.12.2012, 09:23 [ТС]
	Помогите пожалуйста, очень нужно. Сдать сегодня нужно. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	09.12.2012, 21:19
	блок-схемы Миниатюры Изображения 1