Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
CapNemo
1 / 1 / 0
Регистрация: 10.12.2012
Сообщений: 24
1

Функцию перевести в процедуру

15.01.2013, 02:26. Просмотров 543. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Test1;
Var a,b,c,d:real ; 
 
  Function TRE (x,y,z:real):real;
     
      Begin
        IF (x+y>z) and (x+z>y) and (z+y>x) then
           Begin
             p:=(x+y+z)/2;
             Writeln(sqrt(p*(p-x)*(p-y)*(p-z)):6:3);
           End
          Else Writeln(‘Треугольник не существует’);
        End;
Begin
  Writeln(‘Введите длины отрезков’);
   Readln(a,b,c,d);
   TRE (a,b,c);
   TRE (a,b,d);
   TRE (a,c,d);
   TRE (b,c,d);
   Readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2013, 02:26
Ответы с готовыми решениями:

Написать программу, используя процедуру/функцию
Написать программу, используя процедуру/функцию Даны числа x,y,z q= ( max( x...

Написать процедуру и функцию, которая вычисляет сумму по формуле
Написать процедуру и функцию, которая вычисляет...

Написать процедуру и функцию преобразования положительного десятичного числа в 8-разрядное двоичное
Написать процедуру и функцию преобразования положительного десятичного числа в...

Написать процедуру и функцию преобразования положительного десятичного числа в 8-разрядное двоичное
Написать процедуру и функцию преобразования положительного десятичного числа в...

Написать процедуру и функцию вычисляющие наименьшее общее кратное трех натуральных чисел
Написать процедуру и функцию вычисляющие наименьшее общее кратное трех...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,721
Записей в блоге: 1
15.01.2013, 09:21 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Test1;
 Var a,b,c,d:real ; 
 
 Procedure TRE (x,y,z:real);
 Var p:real;
 Begin
 IF (x+y>z) and (x+z>y) and (z+y>x) then
 Begin
 p:=(x+y+z)/2;
 Writeln(sqrt(p*(p-x)*(p-y)*(p-z)):6:3);
 End
 Else Writeln('Треугольник не существует');
 End;
 Begin
 Writeln('Введите длины отрезков');
 Readln(a,b,c,d);
 TRE (a,b,c);
 TRE (a,b,d);
 TRE (a,c,d);
 TRE (b,c,d);
 Readln;
 End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2013, 09:21

Написать процедуру и функцию, которая сдвигает элементы массива на одну позицию вправо
Написать процедуру и функцию,которая сдвигает элементы массива на одну позицию...

Оформить процедуру и функцию
заданы векторы R(i=1,...,15) и T(n=1,...,12) Элементы которых вычисляются по...

Изменить процедуру на функцию
Не могу сообразить как сделать так, чтобы программа работала так же, но...


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

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

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