Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
hoqq
0 / 0 / 0
Регистрация: 24.01.2011
Сообщений: 6
#1

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

28.01.2011, 15:56. Просмотров 492. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функции в циклических процессах (Turbo Pascal):

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

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

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

Использование функции в циклических процессах. - Pascal
Найти предел последовательности Аn, которая вычисляется по формуле An= (b*n)/корень(n^2 +1)+корень(n^2 -1), n ----> к бесконечности. ...

Вычисление значения функции с помощью циклических структур - Pascal
Помогите пожалуйста составить программу вычисления значения функции с помощью циклических структур. P=\sum_{k=1}^{}\frac{{e}^{k}}{k!}

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

4
Apostate
2 / 2 / 1
Регистрация: 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
Модератор
54012 / 41645 / 14727
Регистрация: 18.05.2008
Сообщений: 97,897
30.01.2011, 15:54 #4
Напиши
Pascal
1
2
3
program abc;
{$N+}//у тебя не подключена опция 8087/80287 в Compiler
uses crt;
0
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 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
Привет! Вот еще темы с ответами:

3 циклических - Pascal
помогите! 1. Напечатать таблицу соответствия расстояний в дюймах расстояниям в сантиметрах для значений 10,11,...,22 дюйма (1 дюйм =...

программирование циклических процессов - Turbo Pascal
Задание: составьте алгоритм и программу вычисления значения функции по её аналитической формуле и как сумму с использованием операторов...

Программирование циклических процессов - Pascal
Подскажет в чем проблема. Должно считать функцию с помощью 2 циклов, внешний с параметром, и внутренний с предусловием.Но почему то...

Программирование циклических алгоритмов - Pascal
Написать программу. Задано целое положительное значение x(x>0). Вычислить сумму всех целых чисел, попадающих в интервал .


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

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

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