Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
zoyka
0 / 0 / 2
Регистрация: 26.05.2013
Сообщений: 13
#1

процедуры, рекурентная формула - Pascal ABC

26.05.2013, 12:33. Просмотров 278. Ответов 0
Метки нет (Все метки)

помогите составить блок схемы и мат. модель к задачам



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
30
31
32
program zadacha_qq;
var y,x,z:integer;
begin
writeln('Введите значение x, от 0 до 2, x=');
readln(x);
writeln('Введите значение y, от 0 до 2, y=');
readln(y);
if ((y>=0) and (y<=2)) and ((x>=0) and (x<=2))
then
begin
     Case y of
     0: case x of
     0: z:=0;
     1: z:=1;
     2: z:=2;
end;
    1:case x of
    0: z:=2;
    1: z:=1;
    2: z:=0;
end;
    2: case x of
    0: z:=1;
    1: z:=1;
    2: z:=2;
 
          end;
 end;
 writeln('Значение функции введеных вами чисел z=',z);
end
else writeln('Введенные вами числа находятся вне заданого интервада, значение фунции не найдено!');
end.









Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program z1;
var i,n : integer; x,y,z:real;
begin
writeln ( 'введите значение n ');
readln (n);
x:=0; y:=0;  z:=1;
for i := 1 to n do begin
x:=sin(i)+x;
y:= cos(i)+y;
z:= (y/x)*z;
end;
writeln ('Значение выражения = ',z:6:3);
end.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program z1;
var i,n : integer;
function    f (n:integer)  : integer;
begin
if n=0 then f:=0 else
if n=1 then f:=2 else
if n=2 then f:=4 else
f:= f(n+2) -2*(n-2)-2* (n+1)
end;
begin
writeln ( 'введите значение n ');
readln (n);
for i:= 0 to n do
writeln ('f (',i,')=', f (i)) ;
end.


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
uses crt;
function f (cos , sin :real): real;
begin
if  sin > cos then f:= sin else f:= cos;
end;
 function g(cos, sin : real) : real;
 begin
if  sin < cos then g:= sin else g:=cos;
 end;
var x,xn,xk,h:real;
begin
write('xn=');
read(xn);
repeat
write('xk>',xn:0:1,' xk=');
read(xk);
until xk>xn;
repeat
write('h<',xk-xn:0:1,' h=');
read(h);
until h<xk-xn;
x:=xn;
while x<=xk+h/2 do
 begin
  writeln('x=',x:4:1,'  y=',f(sin(x),cos(x))+g(sin(x),cos(x)):0:4);
  x:=x+h;
 end;
end.

http://www.cyberforum.ru/pascalabc/thread732501.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 12:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос процедуры, рекурентная формула (Pascal ABC):

Рекурентная программа: вычисляет n-ый элемент последовательности Фибоначчи
Напишите рекурентную программу , которая вводит с клавиатуры число n и...

Рекурентная формула
Ребят, помогите плиз... У меня проблемма в такой проге, я думал она простая,...

Рекурентная формула
сумма вот такая: 1/4+1/28+1/70+1/130+...+А(n)+... ну вообщем просто формулу...

рекурентная формула для...
подскажите пожалуйста какая рекурентная ф-ла должна здесь быть ...

Прогрессия и рекурентная формула
1. Записать реккурентную формулу для вычесления факториала ик=1/(2*к)! 2. Дана...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 12:33
Привет! Вот еще темы с решениями:

Вычисление с точностью. Рекурентная формула.
Всем привет. Снова необходима помощь форумчан:scratch: Задание прилагается....

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

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

формула в паскаль
тута формула... как написать её в паскале?


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

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

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