С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Вампирёк
0 / 0 / 0
Регистрация: 27.03.2009
Сообщений: 1
1

процедуры и функции

30.03.2009, 15:40. Просмотров 900. Ответов 1
Метки нет (Все метки)

Разработать 2 версии программы (с использованием как Function, так и Procedure)
для вычисления и вывода в файл мах{f (t-2s;1;17), f(2,2;t;s-t},
где f(a,b,c) = (2a-b-sinc)/(5+|с|),
s и t заданы во входном файле в 2х вариантах : s1=0,6; s2=2,8; t1=-14 t2=4,65
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2009, 15:40
Ответы с готовыми решениями:

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

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и...

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

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

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

1
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.03.2009, 18:31 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
program kkk;
uses crt;
var s,t,k:real;
    input,output:text;
 
function Max(a,b:real):real;
begin
 if a>b then max:=a else max:=b;
end;
 
function FX(a,b,c:real):real;
begin
 fx:=(2*a-b-sin(c))/(5+abs(c));
end;
 
begin
 assign(input,'d:\input.txt');
 assign(output,'d:\output.txt');
 reset(input);
 readln(input,s,t);
 close(input);
 
 rewrite(output);
 k:=max(fx(t-2*s,1,17),fx(2.2,t,s-t));
 writeln(output,k:0:4);
 close(output);
end.
Добавлено через 3 минуты 34 секунды
А это - через процедуры:
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
29
program kkk;
uses crt;
var s,t,k,f1,f2:real;
    input,output:text;
 
procedure Max(a,b:real; var max:real);
begin
 if a>b then max:=a else max:=b;
end;
 
procedure FX(a,b,c:real; var fx:real);
begin
 fx:=(2*a-b-sin(c))/(5+abs(c));
end;
 
begin
 assign(input,'d:\input.txt');
 assign(output,'d:\output.txt');
 reset(input);
 readln(input,s,t);
 close(input);
 
 rewrite(output);
 fx(t-2*s,1,17,f1);
 fx(2.2,t,s-t,f2);
 max(f1,f2,k);
 writeln(output,k:0:4);
 close(output);
end.
Будут вопросы - спрашивай(-те)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2009, 18:31

Процедуры и Функции
№1.Определить колличество натуральных чисел из интервала от 100 до 500 сумма...

Процедуры и функции
В круглой зготовке радиуса R вырезаны два круглых отверстия радиусы которых R1...

Процедуры и функции
Писать в PASCAL. Сгенерировать случайным образом 10 латинских прописных...


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

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

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