Функции в циклических процессах

@hoqq · Регистрация: 24.01.2011

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

С клавиатуры ввести числа А,В,С,D. Для каждой тройки этих чисел, соответствующих сторонам треугольника, вычислить площадь, если такой треугольник можно построить. Для проверки чисел и вычисления площади использовать функцию вида S=S(x,y,z). Если треугольник построить нельзя, то принять S=0.
очень нужно!! help please!!!! sos

@Apostate · 28.01.2011, 21:20

Pascal

program abc;
uses crt;
var a,b,c,d:integer;
Function S(a1,b1,c1:integer):extended;
var p:real;
begin
if (a1+b1>c) and (a1+c1>b) and (b1+c1>a)  then begin
                                               p:=(a1+b1+c1)/2; {Полупериметр}
                                               S:=SQRT(p*(p-a1)*(p-b1)*(p-c1)); {площадь}
                                               end else
                                                   s:=0;
end;
 
begin
clrscr;
writeln(' Введите 4 числа');
readln(a,b,c,d);
 
writeln('a,b,c');
writeln(s(a,b,c):2:8);
writeln('a,b,d') ;
writeln(s(a,b,d):2:8);
writeln('a,c,d');
writeln(s(a,c,d):2:8);
writeln('b,c,d');
writeln(S(b,c,d):2:8);
readln;
end.

@hoqq · 30.01.2011, 13:55 **[ТС]**

программа не хочет компилировать =(
на 9 строчке выдает 116 ошибку (Error 116: Must be in 8087 mode to compile this.)
______________________________________________
Всё работает! Можно не отвечать =))

@Puporev · 30.01.2011, 15:54

Напиши

Pascal

1
2
3

program abc;
{$N+}//у тебя не подключена опция 8087/80287 в Compiler
uses crt;

@Mad_Dog · 30.01.2011, 15:57

Да лучше компилятор настрой нормально!

@hoqq 0 / 0 / 0 Регистрация: 24.01.2011 Сообщений: 6
		1
	Функции в циклических процессах 28.01.2011, 15:56. Показов 826. Ответов 4 Метки нет (Все метки) С клавиатуры ввести числа А,В,С,D. Для каждой тройки этих чисел, соответствующих сторонам треугольника, вычислить площадь, если такой треугольник можно построить. Для проверки чисел и вычисления площади использовать функцию вида S=S(x,y,z). Если треугольник построить нельзя, то принять S=0. очень нужно!! help please!!!! sos 0

@hoqq 0 / 0 / 0 Регистрация: 24.01.2011 Сообщений: 6
	30.01.2011, 13:55 [ТС]	3
	программа не хочет компилировать =( на 9 строчке выдает 116 ошибку (Error 116: Must be in 8087 mode to compile this.) ______________________________________________ Всё работает! Можно не отвечать =)) 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	30.01.2011, 15:57	5
	Да лучше компилятор настрой нормально! 0

Опции темы