Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Dimasik777
0 / 0 / 1
Регистрация: 15.10.2009
Сообщений: 44
#1

Функции и процедуры - Pascal

29.11.2009, 09:59. Просмотров 396. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста, ничего не понимаю в программировании. Нужно написать проги в Паскале, желательно всю прогу, а не только тело. Буду Вам очень благодарен.

Задания:
1. Описать процедуру Minmax(A,B), записывающую в переменную А минимальное из значений А и В, а в переменную В — максимальное из этих значений (А и В — вещественные параметры, являющиеся одновременно входными и выходными). Используя четыре вызова этой процедуры, найти минимальное и максимальное из чисел А, В, С, D
2. Даны действительные числа s,t. Получить f(t, -2s, 1.17) + f(2.2, t, s-t),
где f(a,b,c) = (2*a - b - sin(c)) / (5 + |c| ).
http://www.cyberforum.ru/pascal/thread967096.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 09:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функции и процедуры (Pascal):

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному...

Нахождение значения функции с использованием процедуры или функции
Найти значение функции у, использовать не менее 1й подпрограммы функции или...

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

Процедуры и функции
Помогите переделать эту программу с процедурами и функциями. program bal;...

1
maladoy
112 / 84 / 56
Регистрация: 09.01.2009
Сообщений: 209
29.11.2009, 10:12 #2
Лучший ответ Сообщение было отмечено Dimasik777 как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
procedure minmax(var a,b:real);
var tmp:real;
begin
if a>b then begin
tmp:=a;
a:=b;
b:=tmp;
end;
end;
2
Delphi
1
2
3
4
5
6
7
8
9
10
11
function f( a,b,c:real):real;
begin
f:= (2*a - b - sin(c)) / (5 + abs(c) );
end;
....
begin
.....
read(t,s);
writeln(f(t, -2s, 1.17) + f(2.2, t, s-t));
...
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 10:12
Привет! Вот еще темы с решениями:

процедуры и функции
1. Описать процедуру PowerA234(А, B, С, D), которая вычисляет вторую, третью и...

Процедуры и функции
1.Напишите функцию логического типа, проверяющую, являются ли все цифры,...

функции и процедуры
Пусть задана квадратная матрица порядка m и натуральное число n. Нужно найти...

Процедуры и функции
:help::help::help::help::help: Составить программу, предусматривающую...


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

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

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