Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
hoqq
0 / 0 / 0
Регистрация: 24.01.2011
Сообщений: 6
#1

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

28.01.2011, 15:56. Просмотров 495. Ответов 4
Метки нет (Все метки)

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

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2011, 15:56
Ответы с готовыми решениями:

Использование функции в циклических процессах
С клавиатуры ввести числа A, B, C. Найти медианы треугольника со сторонами A, ...

Применение функции в линейный и разв. процессах.
Помогите разобраться пожалуйста:(

Применение функции в линейных и разветвляющихся вычислительных процессах
Помогите пожалуйста решить.)

Использование функции в циклических процессах.
Найти предел последовательности Аn, которая вычисляется по формуле An=...

Вычисление значения функции с помощью циклических структур
Помогите пожалуйста составить программу вычисления значения функции с помощью...

4
Apostate
2 / 2 / 3
Регистрация: 01.04.2010
Сообщений: 27
28.01.2011, 21:20 #2
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
25
26
27
28
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.
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
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,516
30.01.2011, 15:54 #4
Напиши
Pascal
1
2
3
program abc;
{$N+}//у тебя не подключена опция 8087/80287 в Compiler
uses crt;
0
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
30.01.2011, 15:57 #5
Да лучше компилятор настрой нормально!
0
30.01.2011, 15:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 15:57

Найдите ошибки в вычислительных процессах.
Пожалуйста, найдите ошибки. Задача: Вычислить p=x^3+ln(x+y)-|y|, если y<>0...

3 циклических
помогите! 1. Напечатать таблицу соответствия расстояний в дюймах расстояниям...

Организация циклических процессов
Здравствуйте!! Прошу помощи в решении задачи Вычислить X – член...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru