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

Процедуры, Функции. Организация и Использование

19.12.2008, 21:55. Просмотров 787. Ответов 1
Метки нет (Все метки)

Помогите плиз решить 2 задачки для зачета...

1) Органицазия процедур. Использование процедур.

Составить программу для нахождение НОД четырех натуральных чисел.Используя под программу нахождение НОД двух натуральных чисел.

2) Организация функций. Использование функции.

Даны действительные числа s,t. Составить программу вычесления выражение

f (t,-2s,1.17)+f (2.2.t,s-t) где f(a,b,c)=(2a-b-sin(c))(5+|c|).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2008, 21:55
Ответы с готовыми решениями:

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

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

Использование процедуры
1) Подсчитать число точек, находящихся внутри круга радиусом r с центром в точке с координатами...

Использование процедуры swap
Помогите решить!!! дана матрица mxn, в ней поменять местами строку, номер которой вводиться с...

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

1
Evklid
24 / 19 / 4
Регистрация: 13.03.2008
Сообщений: 79
19.12.2008, 22:55 #2
Лови вторую прогу:
Код
program cyb_45;
uses
 Crt;
var
 s, t: real;
function F(a,b,c: real):real;
begin
 f:= (2*a-b-sin(c))*(5+abs(c));
end;
begin
 ClrScr;
 write('t= ');
 readln(t);
 write('s= ');
 readln(s);
 writeln('F(', t:4:4, ',', -2*s:4:4, ',1.17) = ', F(t,-2*s,1.17):4:4);
 writeln('F(2.2,', t:4:4, ',', s-t:4:4, ') = ', F(2.2,t,s-t):4:4);
 readln;
end.
Добавлено через 19 минут 2 секунды

Добавлено через 4 минуты 22 секунды
Держи первую:
Код
program cyb_46;
uses
 Crt;
var
 x1, x2, x3, x4: longint;
 N, M: longint;
procedure NOD(a,b:longint; var Z: longint);
begin
 while (a<>0) and (b<>0) do
  if a>b then
   a:=a mod b
  else
   b:=b mod a;
 Z:=a+b;
end;
begin
ClrScr;
writeln('Vvedite 4 chisla: ');
write('x1= ');
readln(x1);
write('x2= ');
readln(x2);
write('x3= ');
readln(x3);
write('x4= ');
readln(x4);
NOD(x1,x2,N);
M:= N;
NOD(x3,M,N);
M:= N;
NOD(x4,M,N);
writeln('NOD(',x1,',',x2,',',x3,',',x4,') = ', N);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2008, 22:55

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

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

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


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

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

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